ALIENWARE M17xR2

アクセスカウンタ

zoom RSS Excel VBAマクロ サンプル

<<   作成日時 : 2010/06/18 11:16   >>

ブログ気持玉 0 / トラックバック 0 / コメント 0

エクセルでメインフォームから特定のシートの特定のセルに値をセットする簡単なマクロを作ってみました。
メインフォーム
画像

シート1〜3
画像
画像
画像


メインフォームで対象シートbニ値1〜値3を入力し、処理実行を押します。
するとマクロが実行され以下のようになります。
画像
画像
画像

シート2、3も同様に操作すると以下のようになります。
画像
画像

尚、対象シートb間違えると、エラーメッセージが表示されます。
画像


マクロは以下の通りです

クリアマクロ

Sub フィールドクリア()
'
' フィールドクリア Macro
' メインのD4からD7をクリアします。
'
'
Range("D4:D7").Select
Selection.ClearContents
Range("C10") = ""
Range("D4").Select

End Sub

処理実行マクロ

Sub 処理実行()
'
' 処理実行 Macro
'

'
' 内部変数宣言
'
Dim S_NO As Integer
Dim Itm1 As Integer
Dim Itm2 As Integer
Dim Itm3 As Integer
Dim MSG$

'
' 内部変数初期化
'
S_NO = 0
Itm1 = 0
Itm2 = 0
Itm3 = 0
MSG_OK$ = "正常に処理されました。"
MSG_NG$ = "シートbノ誤りがあります。"
'
' メイン処理
'
Sheets("メイン").Select
S_NO = Range("D4")
Itm1 = Range("D5")
Itm2 = Range("D6")
Itm3 = Range("D7")
Range("C10") = MSG_OK$

Select Case S_NO
Case 1
Sheets("シート1").Select
Case 2
Sheets("シート2").Select
Case 3
Sheets("シート3").Select
Case Else
Range("C10") = MSG_NG$
GoTo Exit1
End Select

Range("D5") = Itm1
Range("D6") = Itm2
Range("D7") = Itm3

Exit1:

Sheets("メイン").Select
Range("D4").Select

End Sub

比較的簡単なマクロなので是非挑戦してみてください。
Excelの可能性が広がりますよ。

テーマ

関連テーマ 一覧


月別リンク

ブログ気持玉

クリックして気持ちを伝えよう!
ログインしてクリックすれば、自分のブログへのリンクが付きます。
→ログインへ

トラックバック(0件)

タイトル (本文) ブログ名/日時

トラックバック用URL help


自分のブログにトラックバック記事作成(会員用) help

タイトル
本 文

コメント(0件)

内 容 ニックネーム/日時

コメントする help

ニックネーム
本 文
Excel VBAマクロ サンプル ALIENWARE M17xR2/BIGLOBEウェブリブログ
文字サイズ:       閉じる