・;・^;・:月夜:・;^・;・

並び替え

依頼があったお仕事
データの整理がやっと終わりそうです
現在進捗４０％

今ある山を越えれば先は見えてくる
家に持ち帰ってかたづければ
工期は間に合うはず

並び替え

セルの結合は外したはずなのに
見えないところに隠れているから
並び替えができない

やっかい

どこに隠れているんだろう
探し出さなきゃ先に進めない
またネットを頼りに調査です

Unionメソッド

現在、お仕事でグラフを作成しています
グラフは苦手
それなのにＶＢＡで作れ、とのご命令

無茶です（笑）

とっても楽しい♪
知らないことがいっぱい
でもそれだけ勉強すれば吸収して自分のものになる

新しいことへのチャレンジって
どうしてこんなにわくわくするのだろう☆
たまらずＨＯＭＥに持って帰ってきてしまいましたっ

グラフ云々の前に大きな壁が一つ
VBA 『Range』 『Cells』 の関係
Unionメソッドを使用するのは知らなかった

複数のセルを併せて参照する(Unionメソッド)
複数のセル範囲を集合させ、1つのオブジェクトのように参照することができます。
既存のセル範囲に新しいセル範囲を追加して、併せて参照したい場合に便利です。

今夜は徹夜になりそうです

Application.Run

現在のbookから
マクロでひらいたbookのボタンをプッシュ
できる？？

Application.Run "'C:\*****.xlsm'!sheet1.CommandButton1_Click"
Application.Run "Book2!Test2"
※ブック名とプロシージャ名を「!」でつなぐ

あは！
何でもできるんだ、すごい♪
明日はこれでお仕事が進みます

ネットってとっても便利
ありがたいです
・・・頼ってばかりなので素だとかけませんっ

QRコード

お仕事で扱うことになったＱＲコード
月夜にはできるのかな。。。
不安があります

会社の担当者様がいつも指導くださる
それに従って取り組めばよい
何も心配いらない？とおもうけど。。。

callで呼び出すだけ
あとはちょこっと整備すれば。。
今のうちに「部品」を作っておこうかな

メールで会社に送ればスムーズだよね
うん、そうしよう
月曜日は組み立て作業に没頭です

Row Column

いつもどっちがどっちだかわかんなくなりますっ

wb1sh2.Rows(1).RowHeight = 12.75　　'9.75
wb1sh2.Columns("G".ColumnWidth = 16.38

'印刷範囲設定

wb1sh2.Activate
Count2 = wb1sh2.Range("G65536".End(xlUp).Row
myStrg = "$G$" & "1" & ":$G$" & Count2
ActiveSheet.PageSetup.PrintArea = myStrg

　 '印刷余白設定

With wb1sh2.PageSetup

.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)

End With