- ベストアンサー
エクセル マクロ Sheet上のTextBox
シート上にTextBoxがありそこに 名前を記載しています。 そこで今回悩んでいるのが 次の人がこのエクセルBookを開けたとき 前の人の名前があるのにそのまま記載してコピーしてしまう ケースが多いので、Bookを開いた時にTextBox1..Text = "" のように空白にしたいです！ どのようにすれば良いか悩んでいます。 Private Sub Worksheet_Activate() TextBox1.Text = "" End Sub これだと他のシートから戻るときにはTextBox1は空白になりますが・・・ 開いた時に空白が良いです！！ すいません教えて下さい
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- エクセル シート上TextBox（日付）
Sheet上にTextBox＝”hiduke”とする このBookを開いた時に 現在に日付にしたいのですが どのようにしたら良いのでしょうか？ Private Sub Worksheet_Activate() ならSheetをアクティブにしたら現在の日付に なるのですが・・Bookを開いた時に 現在の日付にしたいです。 すいません教えて下さい。 Private Sub Workbook_Open() Me.hiduke.Value = Format(Now(), "yyyy/mm/dd") End Sub
- ベストアンサー
- オフィス系ソフト
- エクセル デバッグできるのとできないのがある
シートイベントについて教えてください。 シートモジュールに --------------------------------------------------------- Option Explicit Private Sub Worksheet_Activate() MsgBox "" End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) MsgBox "" End Sub Private Sub Worksheet_Change(ByVal Target As Range) MsgBox "" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox "" End Sub --------------------------------------------------------- と記載した時に、 Ｆ８で動かせるのは、Worksheet_Activateだけなのですがなぜでしょうか？ ほかのイベントは、F8で実行させても、ＯＳの音が鳴るだけで、マクロの実行はされません。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル シート上のTextBox（日付）
今まではForm上にTextBoxを貼り、スピンボタンにて日付を変化させるのは できるのですが、これをシート上で日付を動かすと どのような記述の変化が必要なのでしょうか？ TextBoxはhidukeという名でしています！日付は出るのですが スピンボタンは動きません！ すいません教えて下さい！ Private Sub SpinButton1_SpinDown() Me.hiduke.Value = DateAdd("d", -1, Me.hiduke.Value) End Sub Private Sub SpinButton1_SpinUp() Me.hiduke.Value = DateAdd("d", 1, Me.hiduke.Value) End Sub Private Sub hiduke_Change() Me.hiduke.Value = Format(Now(), "yyyy/mm/dd") End Sub
- ベストアンサー
- オフィス系ソフト
- EXCEL VBAにてのワークシート作成
エクセルのVBAにてワークシートを作成することで困っています。 自分で書き込んだのは Private Sub CommandButton1_Click() Worksheets("原紙").Copy ActiveSheet.Name = TextBox1 Worksheets.Add After:=Worksheets(2) End Sub Private Sub UserForm_Initialize() TextBox1 = Format(Date, "yy.mm.dd") End Sub 実行したいことはCommandButton1クリック時に 左から２番目にあるワークシート 原紙を テキストボックス１に入力されている（日付） 名前を付けて左から３番目に新規で作成したいのですが 思うように動かずエラーが出てしまいます。 どの様に修正すれば宜しいでしょうか？ またクリック時にすでにテキストボックス１と同じ 名前のワークシートが存在した場合はそのワークシートを Activeにしたいのですがどの様に書き込めば宜しいでしょうか？ 重ね重ねですが宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- マクロ シートの順番を認識してシートをアクティブに
シート名に反応して、シートをアクティブにするマクロは分かるのですが、 シートの順番を元に、アクティブにするマクロを実行したいです。 例えば、 １枚目のシートに あああ、２枚目のシートに いいい、３枚目のシートに ううう と名前を付けているブックがあるとして、あああ のシートをアクティブにしたいとき、 Sub あああ のシートをアクティブにする() Sheets("あああ").Activate End Sub としたいわけではなく、「１枚目だからアクティブにした」 といったマクロを実行したいと思っています。
- ベストアンサー
- Excel（エクセル）
- 他Book(シートモジュール）のマクロを実行したい
ご教授ください。 Book1 WorkSheets(1)で UserForm1. TextBox1 TextBox2 エクセルにハイパーリンクを設定 Application.Run "Book2.xls!.Worksheet_FollowHyperlink" →エラー1004 マクロが見つかりません。 Book2 WorkSheets(2)の シートモジュールに Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 行番号 = Target.Range.Row UserForm1.TextBox2.Text = Cells(行番号, 5).Value → エラー424 オブジェクトが必要です UserForm1.Show Book1で開いたUserForm1に送りたく、いろいろ試したのですがどうしても出来ません。 よろしくお願いいたします。 使用 Excel：Excel2003、使用 OS：WindowsXP
- ベストアンサー
- Excel（エクセル）
- TextBox.2 に Vlookupを入れる記述を教えて下さい。
VBA初心者です。見よう見真似で売上伝票を作っています。 TextBox1には入力したコードをSheet2B1に書き込みたいです。 TextBox2にはTextBox1に入力したコードを見てVlookupのように、 商品リストから参照し、TextBox2に反映させたいです。 自分で作成してみたのですが、全く動きませんでした。 是非教えて下さい。宜しくお願い致します。 Private Sub CommandButton1_Click() With Worksheets("Sheet2") .Range("B1") = TextBox1.Text End With With Worksheets("商品リスト") TextBox2.Text = Application.WorksheetFunction.VLookup(Val(TextBox1.Value), RangeA, 2, False) End With End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルマクロ＿テキストボックスをシートに反映（その２）
エクセルマクロ初心者です。（２００３使用＿ユーザーフォーム） 先ほどは大変お世話になりました。 複数行に応用させようとしたのですが、管理番号が余計に記載（テキストボックス（出荷日など）が空欄であっても、管理番号だけはとられてしまいます）されてしまいます。すみませんが、ご教授よろしくお願いいたします。 リストボックス１のデータは、Sheet1を表示しています。→管理番号はSheet2のＡ最終行に記載されます。 テキストボックス１（回答日）は、上記の管理番号記載のとなりに、 テキストボックス２（出荷日）は、テキストボックス１記載のとなりに、 ・・・とテキストボックス４（コメント）（これはＫ列）に１行で記載されます。 ↑ここまでは、教えていただいたので、完璧なのですが、 テキストボックス２～４までの内容を、あと複数行（４件）追加できるように試してみたのですが、空欄であっても管理番号だけは常に記載されてしまいます。 テキストボックス２と５に記載されている場合は、Sheet2に値を反映させるが、空欄の場合は、値を反映させないようにしたいのです。 （Sheet1=データベース） Ｃ５ Ｄ５ 管理番号 品名 アカ12 りんご アオ56 みかん クロ34 なし クロ89 すいか アオ12 もも （Sheet2=入力シート） Ａ（管理番号） Ｂ（回答日） Ｃ（出荷日） Ｄ（数量） Ｋ（コメント） アオ56 8月9日 8月10日 75 送り先の確認 アオ56 8月11日 80 クロ34 9月4日 9月5日 80 （今回は、２行で作成した場合のマクロを記載しました） Private Sub UserForm_Initialize() With ListBox1 .ColumnWidths = "0;0;50;50" .ColumnCount = 4 .RowSource = "Sheet1!A5:D" & Worksheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Row End With End Sub Private Sub CommandButton1_Click() If TextBox2.Value Then Dim lRow As Long With Worksheets("Sheet2") lRow = .Range("A" & Rows.Count).End(xlUp).Row .Range("A" & lRow + 1).Value = ListBox1.List(ListBox1.ListIndex, 2) If IsDate(TextBox1.Value) Then .Range("B" & lRow + 1).Value = TextBox1.Value End If If IsDate(TextBox2.Value) Then .Range("C" & lRow + 1).Value = TextBox2.Value End If If IsNumeric(TextBox3.Value) Then .Range("D" & lRow + 1).Value = TextBox3.Value End If .Range("K" & lRow + 1).Value = TextBox4.Value End With End If If TextBox5.Value Then Dim llRow As Long With Worksheets("Sheet2") llRow = .Range("A" & Rows.Count).End(xlUp).Row .Range("A" & llRow + 1).Value = ListBox1.List(ListBox1.ListIndex, 2) If IsDate(TextBox5.Value) Then .Range("C" & llRow + 1).Value = TextBox5.Value End If If IsNumeric(TextBox6.Value) Then .Range("D" & llRow + 1).Value = TextBox6.Value End If .Range("K" & llRow + 1).Value = TextBox7.Value End With End If Dim myCtrl As Control For Each myCtrl In Controls If TypeName(myCtrl) = "TextBox" Then myCtrl.Value = vbNullString End If Next End Sub （ユーザーフォーム） リストボックス１＝Sheet1のデータを反映 テキストボックス１（回答日） テキストボックス２（出荷日）,テキストボックス３（数量）,テキストボックス４（コメント）←１件目 テキストボックス５（出荷日）,テキストボックス６（数量）,テキストボックス７（コメント）←２件目 ↑１件目のみでコマンドボタンを押した場合は、１件目のみの管理番号取得をしたいのです。が今は、２件目が空欄でも管理番号はとられてしまいます。 長くなってしまいすみません。 どなたかご回答いただければ幸いです。よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- Excel VBAでの初期設定
Excel VBA 初心者です。Excelは2013です。VBAでBookを開いたときにあるシートの初期設定をしたいと考えています。Activateイベントを使おうと思いましたがイベントが発生しないことがあるため質問しています。 例として以下のようなコードを記述したとき、sheet1以外を開いて保存している場合にはActivateイベントは発生しますが、sheet1を開いて保存している場合にはイベントが発生しないため初期設定の処理ができませんでした。 対応方法をお分かりの方ご教授いただけないでしょうか。 ============================= '"以下をThisWorkbook"に記述 Private Sub Workbook_Open() '②Worksheets("sheet2").Activate も入れれば Activateイベントは発生する Worksheets("sheet1").Activate '①もともと sheet1がActiveで保存されていた場合、Activateイベントは発生しなかった End Sub ============================= '"以下をsheet1"に記述 Private Sub Worksheet_Activate() '初期設定処理 MsgBox "sheet1の初期設定をしました" End Sub ============================= 宜しくお願いします。
- ベストアンサー
- Excel（エクセル）
- エクセルVBA テキストボックス
いつもお世話になっております。 エクセルでVBAを使いユーザーフォームのテキストボックスで 文章入力をしようと思っているのですが、少しトラブルがありましたのでお教え願います。 エクセルシートの横がa～k、縦を9～34までのシートを結合して その中にテキストボックスで入力した文章を入れるように作っています。 MultiLineとEnterKeyBehaviorをTrueにして Private Sub CommandButton1_Click() Unload Me End Sub Private Sub TextBox1_Change() Sheets("sheet1").Range("a9") = UserForm1.TextBox1 End Sub Private Sub UserForm_Initialize() TextBox1.Value = Range("a9").Value End Sub Private Sub UserForm_Activate() With Me .Left = Application.Left .Top = Application.Top .Left = .Left + 350 .Top = .Top + 80 End With End Sub という状態になっているのですが、文章を入力して16行目で改行するとシートの方で「＃VALUE！」と出てきてしまうので一旦ユーザーフォームを閉じてもう一度フォームを立ち上げると 「実行時エラー’-2147352571(80020005) Valueプロパティが設定できません。種類が一致しません。」 と出てきます。 デバッグすると Private Sub CommandButton1_Click() → UserForm1.Show End Sub と出てきます。 なにがおかしいのでしょうか？ 今回初めてVBAを作っているので初歩的な間違いかもしれませんがよろしくお願いします
- ベストアンサー
- オフィス系ソフト
