Excel VBA質問箱 IV

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

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


43703 / 76732 ←次へ | 前へ→

【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()"
これは、メモメモです。

ありがとうございました。

1 hits

【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 お礼

43703 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free