2024年3月
        1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29    
無料ブログはココログ

 

« 今週届いた本 | トップページ | 2016年第2四半期開始アニメの感想 »

2016年5月 7日 (土)

Excel VBAの小ネタ 3つ

(1)全てのシート名を取得する

for each a in ActiveWorkbook.Sheets : Debug.Print a.name : next 
Sheet1
Sheet2
Sheet3

(2)特定のシートにある複数のセルの内容を取得する

for each a in ActiveWorkbook.Sheets("sheet1").range("B1:B3") : Debug.Print a.value : next 
a
b
c

(3)セルに入れたシート名にリンクを貼る

for each a in ActiveWorkbook.Sheets("sheet1").range("A1:A3") : a.HyperLinks.Add Anchor:=a, Address:="", SubAddress:=a.value & "!A1" : next 

Excel_cellsworks

« 今週届いた本 | トップページ | 2016年第2四半期開始アニメの感想 »

コメント

コメントを書く

(ウェブ上には掲載しません)

トラックバック


この記事へのトラックバック一覧です: Excel VBAの小ネタ 3つ:

« 今週届いた本 | トップページ | 2016年第2四半期開始アニメの感想 »