- ベストアンサー
エクセルの互換性について
ham_kamoの回答
- ham_kamo
- ベストアンサー率55% (659/1197)
こんにちは、元のマクロを書いたham_kamoです。 この質問は http://oshiete1.goo.ne.jp/kotaeru.php3?qid=2847069 の続きなのです。 誰かに指摘されそうなので急いで回答しようと思ったら、やはりWendy02さんに突っ込まれてしまいました。 CommandButton1.Enabled = False が入っている理由は前の質問を参照していただければご理解いただけるかと思います。 それで、怪しいなと思うのはその辺なのですが、「ボタンが押せない」というのは、ボタン上の文字が薄くなって、ボタン自体が押せなくなっているのでしょうか。もしそうなら、時刻が入るセルが空白のように見えて、半角（全角）スペースなどが入っていませんか？
関連するQ&A
- エクセル バージョン別の使用について
お世話になっております。 こちらでアドバイスをいただいて、完成したタイムカードですが 開く環境によって使用できなかったりします。 漠然とした書き方で大変わかりにくいと思いますが・・・。 Office2003では 打刻ができません。 （以下が打刻部分のマクロ） Private Sub CommandButton1_Click() Cells(2, Day(Date) + 1).Value = Time CommandButton1.Enabled = False End Sub Office2000では 文字入力ができません。 （保護をかけてありますが、許可している部分でも不可能です） それぞれのバージョンの性質上、回避できないのでしょうか？ 何か対策等ご存知でしたら、教えてください。
- ベストアンサー
- その他（ITシステム運用・管理）
- VBマクロ 経過時間の表示
こんにちは。ＶＢ勉強中の初心者です。 時間を計ろうと[start][stop]ボタンと [スタート時刻][ストップ時刻][経過時間]を表示するテキストボックスを作り、 WEB検索やテキストなどから引用し、以下のようなコードを書き込みました。 Private Sub CommandButton1_Click() StartTime = Time TextBox1.Text = StartTime TextBox2.Text = "" TextBox3.Text = "" CommandButton1.Enabled = False CommandButton2.Enabled = True End Sub Private Sub CommandButton2_Click() StopTime = Time t = (StopTime, StartTime)*24*3600 TextBox1.Text = StartTime TextBox2.Text = StopTime TextBox3.Text = t CommandButton1.Enabled = True CommandButton2.Enabled = False End Sub ですが、これでは[経過時間]の表示が秒単位の整数です。 表示方法を[時刻]と同様に「h:mm:ss」とすることは可能でしょうか？ また、可能であれば、どのように加工したらよいでしょうか？ よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- EXCELでの変数によるMacro自動実行について
すいませんが教えてください・・・・・・ EXCELシートにツールボックスより、コマンドボタンを2つ配置しました。 （AUTOMATICはPublic変数で標準モジュールで定義しています Dim AUTOMATIC As Boolean ） ------------------------------------------------------------------ CommandButton_1 : Private Sub CommandButton1_Click() AUTOMATIC = True End Sub CommandButton_2 : Private Sub CommandButton2_Click() AUTOMATIC = False End Sub ------------------------------------------------------------------ あとはEXCELを起動中に、AUTOMATICが Trueでセル（例えばA2のセル）の 値が100のときには Macroを起動したいのですが、どこにどう記述したら いいか教えて欲しいのです。 ------------------------------------------------------------------ CommandButton_1 : Private Sub CommandButton1_Click() if Cells(2,1) = 100 then 'A2はCells(2,1) Macro実行 end if End Sub とAUTOMATICを使用せずに記述しても、毎回CommandButton_1をクリックしな ければMacroが起動することができないので煮詰まってしまいました。 （一度CommandButton_1をクリックしておくとあとはA2セルを監視するだけ でMacroを起動させたい） すいませんがわかる方、教えていただけないでしょうか よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- サブルーチンの使い方
こんにちは 以前 このサイトでサブルーチンを教えて頂いたのですが 今回は、このサブルーチンを使って Commandbuttonに Sheets("20年7月度").Cells(2, 6).Value = Cells(2, 6) & Mojiを 入れたいのですが、どのようにすれば いいですか？ 宜しくお願い致します。 Private Sub mySub(Moji) '数字 If Me.MultiPage1.Value = 0 Then TextBox3.Value = TextBox3 & Moji Else: TextBox1.Value = TextBox1 & Moji End If End Sub Private Sub CommandButton1_Click() 'サブルーチン Call mySub("1") End Sub Private Sub CommandButton2_Click() Call mySub("2") End Sub Private Sub CommandButton3_Click() Call mySub("3") End Sub Private Sub CommandButton4_Click() Call mySub("4") End Sub Private Sub CommandButton5_Click() Call mySub("5") End Sub Private Sub CommandButton6_Click() Call mySub("6") End Sub Private Sub CommandButton7_Click() Call mySub("7") End Sub Private Sub CommandButton8_Click() Call mySub("8") End Sub Private Sub CommandButton9_Click() Call mySub("9") End Sub Private Sub CommandButton10_Click() Call mySub("0") End Sub Private Sub CommandButton11_Click() Call mySub("00") End Sub Private Sub CommandButton12_Click() Call mySub("000") End Sub
- ベストアンサー
- オフィス系ソフト
- VB6でスロットを作成したい
VB6歴2ヶ月の初心者です。 フォーム上に ラベルコントロールが三つ コマンドボタンが二つ タイマーコントロールが一つ あります。 タイマーのプロパティは Enabled False Interval 10 です。 スロットを作成したいのですが、 ボタン1を一回押すごとに左からスロットが回り、 最後にボタン2で動きを止めたいのです。 一応自分でも書いてみたのですが、ここで行き詰まりました。 ウワァァァァァァヽ(｀Д´)ノァァァァァァン! Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Dim slot As Integer slot = Int(Rnd(1) * 9 + 1) Label1.Caption = slot End Sub 思い通りに動かすにはどんなコードにしたらいいですか？
- ベストアンサー
- Visual Basic
- VBA コマンドボタン 頭に0がでない
各ボタンに以下を入れる Private Sub CommandButton1_Click() Selection.Value = Selection.Value & "1" End Sub Private Sub CommandButton2_Click() Selection.Value = Selection.Value & "2" End Sub . . Private Sub CommandButton10_Click() Selection.Value = Selection.Value & "0" End Sub Private Sub CommandButton11_Click() Selection.Value = Selection.Value & "." End Sub 0.1と入力しても0.1が表示できなく、1となってしまいます。 また.1と入力しても0.1でなく、1になってしまいます。 どうすれば良いでしょうか？
- ベストアンサー
- Visual Basic
- EXCEL VBAのユーザーフォーム上のテキストボックスの入力方法について
すいません教えていただきたいことがあります。 EXCEL VBAのユーザーフォームについて、 コマンドボタンにタグを設定して、これにキーボードと同じ機能を持たせて テキストボックス内に入力することは可能でしょうか。 例えばコマンドボタンを「あ」～「ん」まで作り、それぞれのボタンに「あ」～「ん」までのタグを設定する。 Private Sub UserForm_Initialize() CommandButton1.Tag = "あ" CommandButton2.Tag = "い" ・・・・「ん」までボタンを作成する。 次に、 Private Sub CommandButton1_Click() TextBox1.Value = TextBox1.Value & CommandButton1.Tag End Sub Private Sub CommandButton2_Click() TextBox1.Value = TextBox1.Value & CommandButton3.Tag End Sub ・・・「ん」まで作成する。 この設定では、コマンドボタンのクリックで文字の追加はできますが、ボタンを押すと常に文字が一番後ろに追加されるため、 テキストボックスをクリックしても文章の途中に文字を挿入することが出来ません。 通常のキーボードの入力と同じようにテキストボックス内でクリックした箇所からコマンドボタンで入力を開始するような設定は可能でしょうか。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- ユーザーフォームに入力したデーターが転記できない
いつもお世話になります。 Windows7 excell2010 です。 いろんなものに勉強してここまでに作成したユーザーフォームですが、データーは入力できるのですがコマンドボタンをクリックしても各セルに反映されません。 色々と試行錯誤していますがうまくゆきません。 どこに不具合があるかわからず恐れ入りますがどなたかご指導いただけませんか。 参考にコードは参考に下記にします。 ユーザフォームのVBAは下記です コード ※Module1 Sub 売上() Do UserForm1.Show Loop End Sub Sub 入金() Do UserForm2.Show Loop End Sub ※UserForm1 Private Sub UserForm_Initialize() With ComboBox1 .AddItem "1" .AddItem "2" .AddItem "3" End With End Sub Private Sub CommandButton1_Click() n = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(n, 2) = UserForm1.TextBox1.Text Cells(n, 3) = UserForm1.TextBox2.Text Cells(n, 4) = UserForm1.TextBox3.Text Cells(n, 11) = UserForm1.ComboBox1.Text Unload Me End Sub Private Sub CommandButton2_Click() Unload Me End End Sub ※UserForm2 Private Sub CommandButton1_Click() n = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(n, 2) = UserForm2.TextBox1.Text Cells(n, 3) = UserForm2.TextBox2.Text Cells(n, 4) = UserForm2.TextBox3.Text Unload Me End Sub Private Sub CommandButton2_Click() Unload Me End End Sub
- 締切済み
- その他MS Office製品
- excel vba です
シートにActiveXコントロールでボタンを作りました そのボタン押下時、 標準モージュールにあるソースを直接呼出したいのですが、 ボタンとそのモジュールの割り当て方がわかりません 教えてください (1) sheet1 に CommandButton1 というボタンがあります (2) 標準モージュールにある、 Sub test() というモジュールを直接呼び出したい 普通にやると、Sheet1 に Private Sub CommandButton1_Click() というモジュールができてしまいます そこから、Sub test() をcall するのではなく、直接呼び出したいのです 教えてください、宜しくお願いします
- 締切済み
- Visual Basic
- エクセルVBAでユーザーフォーム
エクセルVBAでユーザーフォーム上にオプションボタンが2つ、コンボボックスが6つあります。 OptionButton1をクリックした場合のComboboxの動きの制御について以下のように書いてみました。 これでも期待通りCombobox1~3は動き4~6は動かなくなります。 ただ、もっと別の簡単な書き方があるのではないかと思い質問しました。 宜しくお願いします。 Private Sub OptionButton1_Click() ComboBox1.Enabled = True ComboBox1.ListIndex = 0 ComboBox2.Enabled = True ComboBox2.ListIndex = 0 ComboBox3.Enabled = True ComboBox3.ListIndex = 0 ComboBox4.Enabled = False ComboBox4.ListIndex = 0 ComboBox5.Enabled = False ComboBox5.ListIndex = 0 ComboBox6.Enabled = False ComboBox6.ListIndex = 0 End Sub
- ベストアンサー
- Excel（エクセル）
補足
お世話になっております。 ham_kamo様・・・大変すみません。 説明不足で、嫌な気分にさせていましたら申し訳なく また、適切なご解説ありがとうございます。 ボタンが押せない状況については、最新の回答欄に補足を付けさせていただきます。