Excelのこととか色々

マクロをどんな Excel ファイルにも実行できるように設定して、3秒かかる操作も1秒で完了。あといろいろ書いてみます・・・

【VBAスタンダードに挑戦!】変数の演算/文字列の結合

【VBAスタンダードに挑戦!】

f:id:tuna-kichi:20200614200940p:plain

 

本日の5分勉強の内容

 

 

********************************************************

変数の演算

代入演算子

・「=」のこと

・LastColumn = 100 ・・・LastColumn という変数に 100 を入れる
 「LastColumn が 100」ではなく「LastColumn を 100 にする」って感じ?
 (表現が難しい・・・)

・変数の宣言後に初期値が代入される
 Long の場合は「0」、String の場合は「""」(空欄)など

 

文字列の結合

・「&」(Ampersand/アンパサンド)を使用して文字列を結合する

********************************************************

こんな表をイメージしてみた。

f:id:tuna-kichi:20200727093412p:plain

Sub 変数演算()

 Dim r As Long 'Row の r 
 Dim LastR As Long '最終行を入れる
 Dim Cnt As Long 'Count(カウント) この時点で「0」が代入される

 LastR = Cells(Rows.Count, 2).Row '最終行を取得

 For r = 2 To LastR '2行目から最終行まで繰り返し
  If Instr( Cells( r , 1 ), "Trial" ) > 0 Then '1行目に Trial という文字があれば
   Cnt = Cnt + 1 'Cnt に1追加する

  End If

  Cells( r , 4 ) = Cells( r , 2 ) & Cells( r , 3)  
 '4列目に2列目と3列目の文字列を結合した値を入力
 Next r

 MsgBox Cnt

End Sub

 

********************************************************

今日の範囲は、良く使用しているから問題なく理解できた。

サンプルのコードは変かもしれないけど・・・

 

文字列の結合は VBA 上ではなく関数でよく使います。

Unique な ID を作成していない表を扱っているので、

Vlookup 用に一時的に作成して完了したら削除。

 

※Unique・・・唯一、一意

 

_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/

 

  Graspyで無料プログラミング講座を受講する