人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルVBAについて質問です。次のページにあるような2つのマクロを作ってください。
http://hatena88.web.fc2.com/hatena/newpage1.shtml
なお、現在勉強中ですので、下記の質問の回答者4の方のような解説を付け加えてください。
http://q.hatena.ne.jp/1158311664

●質問者: taroemon
●カテゴリ:コンピュータ
✍キーワード:VBA エクセル マクロ 勉強 回答者
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● きゃづみぃ
●200ポイント

マクロ?


Sub Macro1()

'

' Macro1 Macro

'

' Keyboard Shortcut: Ctrl+q

'

b = 50 'オートフィルする行数

'何列まであるのか調査

For a = 1 To 256

If Cells(1, a) = "" Then Exit For

Next a

a = a - 1

'オートフィルする個所を選択

Cells(1, a).Select

'オートフィル

Selection.AutoFill Destination:=Range(Cells(1, a), Cells(b, a)), Type:=xlFillDefault

'オートフィルする列以外のコピー

e = ""

For c = 1 To b

For d = 1 To a - 1

Cells(c, d) = Cells(1, d)

e = e & Cells(c, d)

Next d

Cells(c, a + 1) = e & Cells(c, a)

Cells(c, a + 1).Select

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _

e & Cells(c, a), TextToDisplay:=e & Cells(c, a)

e = ""

Next c

End Sub


なお、URLは、ハイパーリンクをつけました。


マクロ?

ハイパーリンクをつけたので クリックして開くのを マクロでやりました。

Sub Macro2()

'

' Macro2 Macro

'

'何列まであるのか調査

For a = 1 To 256

If Cells(1, a) = "" Then Exit For

Next a

a = a - 1

For b = 1 To 65536

If Cells(b, a) = "" Then Exit For

Cells(b, a).Select

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Application.WindowState = xlNormal

Next b

End Sub

http://q.hatena.ne.jp/answer

◎質問者からの返答

ご回答ありがとうございました。

完璧です。


2 ● kn1967
●60ポイント

■マクロ1

Sub Macro1()
 Dim r As Long, lp As Long
 r = 50
 Range("F1").FormulaR1C1 = "=RC[-5]&RC[-4]&RC[-3]&RC[-2]&RC[-1]"
 Range("A1:F1").Select
 Selection.AutoFill Destination:=Range("A1:F" & r), Type:=xlFillDefault
 Range("A1:F" & r).Select
 For lp = 1 To r
 Range("F" & lp).Select
 ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Selection.Value
 Next lp
End Sub

■マクロ2

Sub Macro2()
 Dim r As Long, lp As Long
 r = 50
 For lp = 1 To r
 Range("F" & r).Select
 Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
 Application.WindowState = xlNormal
 Next lp
End Sub

何れも行数は r = 50 としています。

http://q.hatena.ne.jp/ダミー

◎質問者からの返答

ご回答ありがとうございました。

ちゃんとできました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ