エクストラライセンス

こんにちはまいです。

エクストラライセンスで写真が売れました(*˙︶˙*)☆*°

 

44395305

 

(c)photomai画像素材 PIXTA –

 

どんな媒体で使用されるのか気になりますね。

 

とある番組を見ていたら自分の写真が出てきた時は嬉しかったです。

教えてくれたら録画したのに。。。(  ・᷄-・᷅ )

新作

こんにちはまいです。

新作が公開された後、定額でも直ぐにダウンロードしてもらえるとホッとします。

 

48344370

 

(c)photomai画像素材 PIXTA –

 

定額だけでなく単品購入もされることを祈っています。。。(。-人-。)

カップル撮影

こんにちはまいです。

久しぶりにちゃんとモデルさんをキャスティングしたストックフォトの撮影を行いました!
どのくらい久しぶりかと言うと…今年初!

今回は1日ではなく半日で撮影しました。

まずは屋外での撮影
曇り空でしたが、空を入れない撮影であれば曇りが一番綺麗だと思います♪

レビュー会

りんかんです

PIXTAさんのレビュー会に参加してきました。

仕事の関係で30分ほど遅れて到着した所、すでにレビューがはじまっていました。

クリエイターの参加者は男女半々で想像より女性が多くおどろきました。

“レビュー会” の続きを読む

自己紹介

お絵かきが大好きな子供時代を過ごす。
高校時代友人がホームページ制作ソフトでホームページを作っているのに感化されるが、
macではソフトがなく(高く)、htmlの本を購入し初めてHPを1から制作する。
パソコンが面白くなり、大学では理工学部の情報システム学科に進学。
在学中にはサッカーロボットを制作したり、C言語などのプログラム、3Dモデリングなど幅広く学んだが最終的にはデザインコースを専攻する。

新卒では某転職サイト運営会社にWEB件DTPデザイナーとして就職
その後、モバイルコンテンツプロバイダーのベンチャー企業にてデザインの仕事だけでは無く、サイト運営、ディレクター業務を行う様になる。残念な事に社長辞任により、一緒に退職を選ぶ

その後、FMラジオ局の子会社にてモバイルHPの制作運営、タレント撮影やサイト活性化の為のイベント開催等、様々な仕事を経験する

33歳にて出産
34歳時短復帰をするが、時短勤務の為部署の経理業務担当となる
無駄な手作業が多くexel自動化の為、VBAを勉強する

やはりデザインを職業としたいため現在試行錯誤中

VBA数式を無視して値の範囲を指定する

こんにちはりんかんです。

vbaでの最終行を指定する方法は調べると割とスグでてきましたが、エクセル自体に数式が入っていて…vlookupで作られている表とか、結構あるんですよね。。。

しかも最終行が変動する場合にも範囲指定が出来る方法です。

 

16行目以降には値は入っていませんが関数が入っています。

なので、

Range("B4").End(xlDown).Row

を使うと、B100なんかが取得されてしまうんですよね。。。

 

なので値検索の出来るFindをつかってみました。

Sub 最終()

Dim r
Dim last

Set r = Columns(2).Find("", , xlValues, 1)
r.Select

last = ActiveCell.Offset(-1, 6).Address
MsgBox last
Range("B4:" & last).Select
Selection.Copy

End Sub

 

これで今回の画像だとB4:H15が範囲指定できます。

行が増えても大丈夫!(…とりあえず)