Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7596 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【38001】ShowDataFormについて akamomo 06/5/24(水) 23:24 質問[未読]
【38008】Re:ShowDataFormについて ichinose 06/5/25(木) 7:15 発言[未読]
【38012】Re:ShowDataFormについて akamomo 06/5/25(木) 8:57 質問[未読]
【38068】Re:ShowDataFormについて ichinose 06/5/25(木) 21:42 発言[未読]
【38009】Re:ShowDataFormについて uchu 06/5/25(木) 8:17 回答[未読]
【38013】Re:ShowDataFormについて akamomo 06/5/25(木) 9:17 お礼[未読]
【38001】ShowDataFormについて
質問  akamomo E-MAIL  - 06/5/24(水) 23:24 -
引用なし
パスワード
   同じシートに複数の表を作ってEXCEL標準のデータのフォームを利用して内容の変更をしたいのですが、マクロではどのようにすればいいのでしょうか。A1セルを基準の表でしかできません。どのようにすればできるのでしょうか。教えてください。よろしくおねがいします。
【38008】Re:ShowDataFormについて
発言  ichinose  - 06/5/25(木) 7:15 -
引用なし
パスワード
   ▼akamomo さん：
おはようございます。

>同じシートに複数の表を作ってEXCEL標準のデータのフォームを利用して内容の変更をしたいのですが、マクロではどのようにすればいいのでしょうか。A1セルを基準の表でしかできません。どのようにすればできるのでしょうか。

例えば、
表がアクティブシートのセルＦ１６から、Ｉ２２の範囲で
　　　　　Ｆ　　　　Ｇ　　　　　Ｈ　　　　　Ｉ
１６　　項目1　　項目2　　項目3　　項目4
１７　　　1　　　　　a　　　　100　　　　aa
１８　　　2　　　　　b　　　　101　　　　bb
１９　　　3　　　　　c　　　　102　　　　cc
２０　　　4　　　　　d　　　　103　　　　dd
２１　　　5　　　　　e　　　　104　　　　ee
２２　　　6　　　　　f　　　　105　　　　ff

とあったとします。

このＦ１６から、Ｉ２２というセル範囲を選択した状態で

「データ」-----「フォーム」とクリックすれば､
選択した表（F16:I22）のデータフォームが表示されます。


この操作をマクロの記録でコード化して見てください。


１７
１８
【38009】Re:ShowDataFormについて
回答  uchu  - 06/5/25(木) 8:17 -
引用なし
パスワード
   データ範囲に Database という名前を定義

または

Range("C5").Select
Application.ExecuteExcel4Macro "DATA.FORM()"
【38012】Re:ShowDataFormについて
質問  akamomo E-MAIL  - 06/5/25(木) 8:57 -
引用なし
パスワード
   ▼ichinose さん：
>▼akamomo さん：
>おはようございます。
>
>>同じシートに複数の表を作ってEXCEL標準のデータのフォームを利用して内容の変更をしたいのですが、マクロではどのようにすればいいのでしょうか。A1セルを基準の表でしかできません。どのようにすればできるのでしょうか。
>
>例えば、
>表がアクティブシートのセルＦ１６から、Ｉ２２の範囲で
>　　　　　Ｆ　　　　Ｇ　　　　　Ｈ　　　　　Ｉ
>１６　　項目1　　項目2　　項目3　　項目4
>１７　　　1　　　　　a　　　　100　　　　aa
>１８　　　2　　　　　b　　　　101　　　　bb
>１９　　　3　　　　　c　　　　102　　　　cc
>２０　　　4　　　　　d　　　　103　　　　dd
>２１　　　5　　　　　e　　　　104　　　　ee
>２２　　　6　　　　　f　　　　105　　　　ff
>
>とあったとします。
>
>このＦ１６から、Ｉ２２というセル範囲を選択した状態で
>
>「データ」-----「フォーム」とクリックすれば､
>選択した表（F16:I22）のデータフォームが表示されます。
>
>
>この操作をマクロの記録でコード化して見てください。
>
>
>１７
>１８
早速お答えを頂きありがとうございます。教えていただいた方法でやってみましたが、ﾏｸﾛ記録ではうまくいきますが、記録したﾏｸﾛを実行すると”列見出しを含むﾘｽﾄまたは選択範囲の行を特定できません。−−−−と表示されうまく動きません。ﾏｸﾛ記録以外に何か+しなければいけないのでしょうか。お手数ですが再度ご教示お願いいたします。
【38013】Re:ShowDataFormについて
お礼  akamomo E-MAIL  - 06/5/25(木) 9:17 -
引用なし
パスワード
   ▼uchu さん：
>データ範囲に Database という名前を定義
>
>または
>
>Range("C5").Select
>Application.ExecuteExcel4Macro "DATA.FORM()"
早速やってみました。うまくいきました。ありがとうございます。いろいろな本を購入して勉強していますが、ここに載っているような実践的な方法が載っている本にまだ出会ったことがありません。また判らないことがあれば投稿させていただきます。今後とも宜しくお願いします。
【38068】Re:ShowDataFormについて
発言  ichinose  - 06/5/25(木) 21:42 -
引用なし
パスワード
   akamomo さん、 uchu さん、こんばんは。

>早速お答えを頂きありがとうございます。教えていただいた方法でやってみましたが、ﾏｸﾛ記録ではうまくいきますが、記録したﾏｸﾛを実行すると”列見出しを含むﾘｽﾄまたは選択範囲の行を特定できません。−−−−と表示されうまく動きません。ﾏｸﾛ記録以外に何か+しなければいけないのでしょうか。お手数ですが再度ご教示お願いいたします。

あら、本当ですね、
ごめんなさい。マクロの記録で作成されたものを確認してませんでした。
（手動操作で出来たので、てっきり　大丈夫だと思ってました）。

uchu さんのExcel4Macroだときちんと表示されました！！
ありがとうございます。

Excel4Macroを使わないと出来ないのでしょうかねえ？？

Sub testtest()
　　Const cmbid = 30011
　　Const btnid = 860
　　Dim cont As CommandBarControl
　　Dim btn As CommandBarControl
　　Range("D11:G11").Select
　　For Each cont In CommandBars("Worksheet Menu Bar").Controls
　　　 If cont.ID = cmbid Then
　　　　　For Each btn In cont.Controls
　　　　　　 If btn.ID = btnid Then
　　　　　　　　btn.Execute
　　　　　　　　End
　　　　　　　　End If
　　　　　　 Next
　　　　　End If
　　　 Next
End Sub

無理やりだとこんなコードしか思いつきませんでした。

ExecuteExcel4Macro "DATA.FORM()"
これは、メモメモです。

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7596 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free