Excel VBA質問箱 IV

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

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


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

27189 / 76738

←次へ　｜　前へ→


	【54873】Re:転記したワークシートのデーターをユーザーフォームで閲覧する

Hirofumi - 08/4/2(水) 19:17 -


	引用なし

	パスワード

>上記のコードは、UserForm4のコード中にそのまま、
>upしていただいたコードと共にそのまま貼り付けています。
>上記のコードの貼り付ける場所は、UserForm4のコード内のままで宜しいですか？

違います
このコードは標準モジュールに記述して下さい
UserForm4に書いて有るUpされたコードは削除して下さい

1、シートのボタンで操作する場合
　（この場合、標準モジュールに、Upされたコードを記述しなくても構いません）
　シートに張り付けられるボタンが何んで有るかに因って替わりますが、
　コントロールツールボックスから張りつけたボタンなら、（CommandButton1と2とします）
　ボタンの有る、シートのコードモジュールに以下の様に記述します
　（若しくは、現状のボタンのコードを以下の様に直して下さい）

Option Explicit

Private Sub CommandButton1_Click()

'　入力フォーム表示

　　With UserForm4
　　　　.blnInput = True
　　　　.Show
　　End With
　　　　
End Sub

Private Sub CommandButton2_Click()

'　閲覧フォーム表示

　　With UserForm4
　　　　.blnInput = False
　　　　.Show
　　End With
　　
End Sub

2、「シートにボタンをつけない場合は」で運用する場合は、
　Upされたコードを標準モジュール（「挿入」→「を標準モジュール」で追加されます）
　に其のまま記述して下さい
　ただしUserForm1の所は、ReginaさんのUserFormのオブジェクト名に直して下さい
　実行は、シートの画面で（VBEの画面では有りませんの気を付けて下さい）
　「ツール」→「マクロ」→「マクロ」でマクロのダイアログが出ますので
　そこから、「ViewOnly」を選べば、閲覧フォームが開きますし、
　「InputForm」を選べば、入力フォームが開きます

0 hits

▼

【54674】転記したワークシートのデーターをユーザーフォームで閲覧する Regina 08/3/25(火) 22:25