Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46469 / 76732

←次へ　｜　前へ→


	【35233】Re:シートの文字をプロシージャに書き込み

ichinose - 06/2/24(金) 7:14 -


	引用なし

	パスワード

▼dona さん：
おはようございます。

Application.Runメソッドを使用すると可能です。

新規ブックの標準モジュールに

'==================================================================
Sub main()
　　Dim pnmarray As Variant
　　Dim idx As Long
　　On Error Resume Next
　　Range("a1:a3").Value = Application.Transpose(Array("abc", "def", "ghi"))
　　'↑サンプルデータの作成
　　pnmarray = Range("a1", Cells(Rows.Count, "a").End(xlUp)).Value
　　For idx = LBound(pnmarray, 1) To UBound(pnmarray, 1)
　　　 Err.Clear
　　　 Application.Run pnmarray(idx, 1)
　　　 If Err.Number <> 0 Then
　　　　　MsgBox Err.Description
　　　　　End If
　　　 Next
　　On Error GoTo 0
End Sub
'==================================================================
Sub abc()
　　MsgBox "abc"
End Sub
'==================================================================
Sub def()
　　MsgBox "def"
End Sub
'==================================================================
Sub ghi()
　　MsgBox "ghi"
End Sub

でmainを実行してみて下さい

1 hits

▼

【35230】シートの文字をプロシージャに書き込み dona 06/2/24(金) 1:59