マクロ・VBA 勉強会、吉田拳さんの本を使って４回目：Windowsのパソコン：SSブログ

	ブログをはじめるログイン

マクロ・VBA 勉強会、吉田拳さんの..｜マクロ・VBA 勉強会、吉田拳さんの.. ブログトップ

マクロ・VBA 勉強会、吉田拳さんの本を使って４回目　[マニュアル本　解説書] [編集]

11月25日、つまり今日が、４回目でした。
最近、ホームページのワードプレスのテーマを、
無料テーマから、有料のThe Thor に変更して、
変更作業で落ち着かなくて、あまり、こちらの復習はしてませんでした。

そういえば、３回目に何をやったかも、
ブログに書いてませんでした。
第２章の終わりまでやって、第３章を少しやったと思いますが、
２週間経ってしまうと、記憶が定かではありません。

昨夜、いままでの復習兼予習をしておこうと、
第３章を読みながら、打ち込んでいました。

札幌に初雪が降ったのが、11月20日（火）（これって、かなり遅い）で、
23日の未明にかなり降ったのか、車の上に20センチも積もっていました。
その雪が、今日はとけてしまって、歩道が、雪解け水で最悪状態。
車で行こうかと、途中まで車で行ったのですが、
ナビが高速に入る道を示唆するので、
途中の琴似の駐車場に車を止めて、
「琴似」から「ひばりが丘」まで地下鉄で行きました。

30分前に着いたので、この講座は５回で終了なので、
たぶん、第３章までで終わりになると思います。それで、
「この続きの、講座はやらないんですか？」と聞いてみました。
「やりたい人が集まれば、やりますよ」ということ。
通うのが遠くて、少したいへんだけど、
続きもやってもらいたいな～と思いました。

４回目は、いつも通り３人で受講でした。
ほかのふたりの方は、高校の同級生だったそう。
まだ、若いんでしょうね。

１ページだけですが、「今日やること」
と、プリントをいただきました。
★マークのところ、
★挑戦！　罫線の太さの指定、罫線の色の指定方法を調べてみよう！

Excel VBA 罫線　太さ　で検索、上位に出てくるサイト
　　http://excel.style-mods.net/tips_vba/tips_vba_2_15.htm
　　　太線
　　　Range("A1:B2").Borders.Weight = xlThick
　　だと、罫線で囲まれるので、下線を引きたい時は、
　　Range("A1:B2").Borders(xlEdgeBottom).Weight = xlThick　　　

VBA　罫線　色　で検索
　　https://www.tipsfound.com/vba/07012　　
ここには、色のところが、RGB(255, 0, 0) ' A1　
になってましたが、
本と同じように、vbRed などの指定でいいそうです。
　　　色
　　　Range("B2:C2").Borders.Color = vbRed

今、検索したら、こちらの方がわかりやすいかも。

　https://www.sejuku.net/blog/31826
　

Range(範囲).Borders(引きたい箇所).Weight = 線の太さ
　　Range("C3:E5").Borders(xlEdgeBottom).Weight = xlThick

Range(範囲).Boders(引きたい箇所).Linestyle = 罫線の種類
　　Range("A3:A5").Borders.LineStyle = xlDashDotDot

Range(範囲).Borders(引きたい箇所).Color = 色
　　Range("A6:E7").Borders(xlEdgeBottom).Color = vbRed

　　

★挑戦！　形式を選択して貼り付けで、文具売上表.xls の
A3～H8の範囲を J3 起点に書式のみ貼り付けしてみよう！
貼り付け方法は調べよう！
ついでに、貼り付けされたセルの書式をクリアする
プロシージャも作ってみよう。

文具売上表.xlsというのは、

この表、Range("A3:H8") を、Range("J3") 以降に、
書式だけ貼り付けるのを、
プロシージャで書くとどうなるかということです。

「貼り付け方法は調べよう！」
つまり、検索で見つけるわけです。これかな！
　　　VBAでセルのコピペ時に値や書式のみを貼り付ける　

　
　 Range("A3:H8").Copy　　
　 Range("J3").PasteSpecial Paste:=xlPasteFormats　　

あとで、本を読み直してみたら、118ページにも書いてある、
   　 Range("A3:H8").Copy　　
   　 Range("J3").PasteSpecial Paste:=xlPasteValues
   　 Application.CutCopyMode = False　　
の、xlPasteValue　→　xlPasteFormats　に変更するだけでした。

検索で見つけたサイトのは、３行目
　　 Application.CutCopyMode = False　　
が抜けているけど、どうなんでしょうね。
もう一度、試してみたら、３行目が抜けてると、
コピーした時の、コピー元の点線が残った状態なのがわかりました。
３行目は必須ですね。
ということで、検索サイトに書いてあることも、
さいごまでちゃんと読まないと、中途半端だったりします。
いくつかのサイトを読み比べてみる必要もあるということでしょう。

貼り付けされたセルの書式をクリアするプロシージャは、検索で。　　
「みんな同じサイト見てる」と、先生。　　　　　　　　　　　　