2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 97

646 :複乳:2011/07/14(木) 17:44:34.16
>>644
↓を参考にしてくれ。
http://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200903/09030088.txt

先に解決策を書くと、
・sub run()は標準モジュールに記述。
・CommandButton1はシートモジュールに記述するが、内容はCall Runだけ。
・コードは全てSub Run() にまとめる。

Sub Run()
Public OpenFileName As String
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
(中略)
Worksheets("Sheet1").Select
Worksheets("Sheet1").Columns("J:J").Select
End Sub

コマンドボタンの置いてあるシートには
Private Sub CommandButton1_Click()
Call Run
End Sub

345 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.01.03 2014/02/20 Code Monkey ★
FOX ★ DSO(Dynamic Shared Object)