- ベストアンサー
エクセルのバージョン別の使用について
ham_kamoの回答
こんにちは、また回答させていただきます。 回答するかどうか迷ったのですが、それは、実は「私にもわからない」からです。 私が使用しているのがExcel2000なので、Excel2003で何が変わったか、ということについては詳しくないのです。 ただ、お書きになっているような単純なマクロが（元々は私が書いたものですが）Excel2000で動いてExcel2003で動かない、ということはないと思います。唯一思い当たるとしたら、「ツール」＞「マクロ」＞「セキュリティ」の「セキュリティレベル」が「高」になっていて、マクロが実行されないのかもしれない、というところです。 もう一つの文字入力ができない件も、もう少し詳しく状況を説明していただかないと何とも言えないです。セルの書式設定から「ロック」のチェックを外してシート保護すると、ロックを外したセルには入力できるはずなので、 ・どういう手順でシート保護をして、 ・どういう現象が起きるのか（普通だとロックされている場合にはエラーメッセージが出るのですが、今回のケースではどうなのか） などを詳しく書かれた方がよいと思います。 それで、この質問はコンピュータ[技術者向け]>運用・管理 に投稿されていますが、このカテゴリーはファイルサーバのバックアップ運用をどうしたらいいか、などの技術的な質問をするカテゴリーなので、こちらはいったん締め切って、コンピュータ[家庭向け]>ソフトウェア>Office系ソフト の方に改めて質問された方がよいと思います。そのカテゴリーならOfficeに詳しい人がたくさんチェックしていますので。
関連するQ&A
- エクセルの互換性について
お世話になっております。 一度、技術者向けに投稿させていただきましたが、 この内容については、こちらのほうが良いかもしれないとの アドバイスをいただきました。よろしくお願いします。 タイムカードをエクセルで作成しました。 下記に示すようなマクロを組んで、打刻ボタンを設定してあります。 マスターを各自コピーして使用しています。 開く環境によってエラーが出たりしますが、セキュリティを 高→中に変えることで対応が可能です。 しかし、上記変更を行っても、打刻ボタンが押せないとった 状況もあります。 漠然とした書き方で大変わかりにくいと思いますが・・・ 互換性など、何か解決の糸口を教えていただければ幸いです。 作成・・・Win/XP Office2003 不具合は、Office2000・2002・MAC/Office2002 で出ています。 Private Sub CommandButton1_Click() Cells(2, Day(Date) + 1).Value = Time CommandButton1.Enabled = False End Sub 不足点はご指摘戴ければ追加させていただきます。よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 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
- ベストアンサー
- オフィス系ソフト
- エクセル 別のエクセルの特定のシートを開きたいのですが
宜しくおねがいします。 現在、エクセルで 下記のようなVBAを使用しております。 Private Sub CommandButton1_Click() Workbooks.Open Filename:="テスト.xls" End Sub テストのエクセルのSheet2を開きたい場合はどうすれば よろしいのでしょうか？ 教えて下さい。宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 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
- ユーザーフォームに入力したデーターが転記できない
いつもお世話になります。 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製品
- エクセル・見積表の抽出印刷方法？その３
先日（No．130709とNo．130958）、エクセルで作成した見積表の数量を入力した行のみを印刷したいとお聞きした者です。その際は、多くの方に回答を頂き、誠にありがとうございました。おかげさまで完成間近ですが、もう1つ問題が出てきてしまいました。宜しくお願いします。 商品によっては、行を追加し手で入力しなくてはならないものがあるので、あらかじめ空白行（金額列には０が入っています）を設けておきたいのですが、そうすると抽出した際、空白行も一緒に抽出されてしまいます。空白行がある場合は、下記の構文のやり方では無理なのでしょうか？空白行も非表示にしたいのです。 Private Sub CommandButton1_Click() Dim i As Integer i=2 Do Until i=-1 If Worksheets("Sheet1").Cells(i,1).Value=""Then i=-1 Else If Worksheets("Sheet1").Cells(i,6).Text=0Or_ Worksheets("Sheet1").Cells(i,6).Text=""Then Worksheets("Sheet1").Rows(i).Select Selection.EntireRow.Hidden=True End If i=i+1 End If Loop End Sub Private Sub CommandButton2_Click() Worksheets("Sheet1").Cells.Select Selection.Rows.Hidden=False End Sub 以上です。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excelで検索結果表示の修正
下記のマクロでA列だけ検索できるようにしたいのですが、どこを修正したらいいのか教えてください。 Private Sub CommandButton1_Click() AAA End Sub Sub AAA() strMoji$ = UserForm1.TextBox1.Text If UserForm1.TextBox1.Text = "" Then MsgBox "検索条件を入力してください。", 48 Exit Sub End If On Error GoTo Fail Cells.Find(What:=strMoji, After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ ).Activate lonNUM& = Selection.Row UserForm1.TextBox2.Text = Cells(lonNUM, 2).Value UserForm1.TextBox3.Text = Cells(lonNUM, 3).Value Exit Sub Fail: MsgBox "該当なし", 48 End Sub Private Sub UserForm_Click() End Sub
- ベストアンサー
- オフィス系ソフト
お礼
回答ありがとうございます。 そうですよね・・・なんのこっちゃ、不具合具合がわからない 文章で、大変失礼いたしました。 2003同士は、セキュリティレベルで解消されたようです。 ありがとうございます。 2000については、もう少々調べて、解消されないようであれば、 アドバイスいただいたカテゴリにて再度質問させていただきます。 木目細やかなアドバイス、いたみいります。 本当にありがとうございました。