- ベストアンサー
エクセルVBAで、テキストボックスに値を入れる（３）
nishi6の回答
- nishi6
- ベストアンサー率67% (869/1280)
挿入する２行を WakuView Val(sPatt), False WakuView Val(sPatt), True としてみてください。
関連するQ&A
- エクセルVBAで、テキストボックスにセルの値を入れる（２）
エクセルVBAで、テキストボックスにセルの値を入れる（１）の 回答13で ＞うまくいったとしてもデータの書込みとテキストボックスの更新が同期がとれない時がある という部分で これは、どういった理由で同期がとれなくなるのでしょうか？ それとその場合の対処法を教えてください。 前回URL：http://oshiete1.goo.ne.jp/kotaeru.php3?qid=79173
- ベストアンサー
- オフィス系ソフト
- テキストボックスに値を入れる（４）
テキストボックスに値を入れる（３）で回答をいただいた、終了ボタンなんですが、このときは、２つのファイルを上書き保存して終了させたのですが、「OkWeb_Menu.xls」の方だけ、上書きせずに終了させたいのですが、どうしたらよいでしょうか？ いろいろ試して見ましたが、うまくいきません。よろしくお願いします。 前回の回答 ２）終了ボタン～Sheet7に配置～ ここでは、メニュー（終了できる方）を「OkWeb_Menu.xls」 データシートを「OkWeb_Data.xls」とします。（ご自分のファイル名に変えてください） １．タイトルバーの左のアイコンのクリック、 ２．タイトルバーの右クリック ３．タイトルバーの×ボタン、 ４．メニュー→閉じる、 ５．ブックの× では閉じれなくする データシートのThisWorkBookのシートモジュールに貼り付けます。 Private Sub Workbook_BeforeClose(Cancel As Boolean) If Workbooks("OkWeb_Menu.xls").saveOk = False Then MsgBox "メニューから終了させてください！", vbOKOnly Cancel = True Else ActiveWorkbook.Save End If End Sub ***省略*** Workbooks("OkWeb_Menu.xls").saveOk = True Workbooks("OkWeb_Data.xls").Close saveChanges:=True ActiveWorkbook.Save Application.Quit End Sub 前回のURL（３）：http://oshiete1.goo.ne.jp/kotaeru.php3?q=85392 （１） http://oshiete1.goo.ne.jp/kotaeru.php3?qid=79173 （２） http://oshiete1.goo.ne.jp/kotaeru.php3?qid=85389
- ベストアンサー
- オフィス系ソフト
- テキストボックスの移動（２）
前回、質問しましたが、回答いただいたプログラムで、別のシートから複数のシートのテキストボックスの移動を移動させたいのですが・・・ たとえば、Sheet1・Sheet2・Sheet3にテキストボックス１が配置してあって、Ａ位置とＢ位置に動くようにしてあります。 前回のプログラムでは、各シートに位置を指定するボタンが配置してありましたが、このボタンをSheet5に配置して、Sheet1・Sheet2・Sheet3の各テキストボックス１が一斉に動くようにしたいのですがよろしくお願いします。 前回のURL → http://oshiete1.goo.ne.jp/kotaeru.php3?q=85846
- ベストアンサー
- オフィス系ソフト
- エクセルVBAで、テキストボックスにセルの値を入れる
宜しくお願いします。 エクセルデータの各項目を、すでに書式（表）が印刷された用紙のそれぞれの項目の位置に印刷させたいのですが・・・ 各項目には、500行ぐらいのデータがあり、別のワークシートの表示させたい位置（すでに印刷された用紙にあわせてある）に各項目ごとのテキストボックスを作っておいて、そのテキストボックスに各項目のデータを1行ごとに表示させて、テキストボックスのフォント調整、印刷 ～を繰り返したいのですが、どのようなコードを書けばよいのでしょうか？ 進め方としては、データシートからテキストボックスに各項目のデータが表示されたら、シート上でテキストボックスのフォントや位置の微調整が出来るようにしておいて、印刷ボタンをクリックすると印刷され、次へのボタンをクリックすると、次の行のデータがテキストボックスに表示されるようにしたい。 ※印刷する場合は、テキストボックス内の文字のみ印刷（シートには印刷したくない文字書きたいので・・・） また、そのフォームには、パターンが５つあって、データには1行ごとにパターン番号が入力されているとして、それぞれのパターンにあわせたテキストボックスの配置してあるシートへ行くようにもしたい。 データの入れ替わりが多いので、別のワークブックと繋がるような仕組みにしておいて、テキストボックスの配置してあるブック側から、データのあるブックを呼びに行ってデータを取りに行くようにしておきたい。 以上、条件が多くてすみませんが、VBAは初心者で、ほんの部分的にしかまだ分かりません。どなたか詳しい方宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- テキストボックスをグループ化するＶＢＡ
エクセル上に並んだテキストボックスを、ボタンを押すことで、任意のテキストボックスをグループ化させたい。また、別のボタンでグループ化の解除が出来るようなＶＢＡをおしえてください。 テキストボックスは、Sheet１～３まであって、ボタンもそれぞれに配置してあり、 どこのSheetのボタンを押しても、各シート、それぞれに任意の設定したテキストボックスがグループ化できるようにしたい ※各シート、グループ化するテキストボックスはおなじでなない・・・ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- テキストボックスの値をExcelシートに反映
ユーザーフォームのテキストボックス２個の値がExcelシート１の値にマッチしたらそのシート１の値が任意の値に変換される。VBA初心者ですご教授のほどよろしくお願いします。
- ベストアンサー
- Visual Basic
- テキストボックスの大きさを、基準の大きさに戻す（エクセルVBA）
図形のテキストボックスの大きさを取得して、その値を各テキストボックスの基準の大きさとして記録しておき、テキストボックスの大きさをマウスでドラッグして大きさを変えた後、ボタン1つでもとの大きさに戻したいのですが、どのようにすればよいでしょうか？ １）図形のテキストボックス、大きさの取得方法は？ ２）基準の大きさと記録する方法は？ ３）記録された大きさに戻すには？（シート上に配置されたボタンで実行） ※ 複数のシートに複数のテキストボックスがあります。 ※ シート毎にセットします。（シート毎にテキストボックスのサイズが違う為） ※ 現在、各テキストボックスには、基準位置がセットしてあり、ボタンで基準位置へ戻る仕組みが組まれています。（これをそのままにして・・・） ※ エクセル97と2000で使えるようにします。（作成は97） 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBA テキストボックスを見やすくしたい
いつもお世話になっております。 ＥＸＣＥＬ ＶＢＡ のユーザーフォーム上の テキストボックスについて教えて下さい。 大きめのテキストボックスを作り 改行を許可して、数十文字を表示させることができたのですが、行と行の間が詰まりすぎていて、見づらいのです。 行間を空ける方法を教えて下さい。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBAについて、ワークシート上に置いたTextBoxに値を入れる方法について
すいませんEXCEL VBAについて質問があります。 エクセルのワークシート上にコントロールツールボックスから テキストボックスを２つ、コマンドボタンを１つ設置する。 アクティブになっているテキストボックスに”goo”という値を入れる。 これをVBAで処理するにはどうしたらよろしいのでしょうか。 ユーザーフォームのテキストボックスであれば Private Sub CommandButton1_Click() Dim i As Object Set i = ActiveControl If TypeOf i Is MSForms.TextBox Then i.Text = i.Text & "goo" End If Set i = Nothing End Sub これでできるはずですが、シート上に置くテキストボックスだと うまくいきません。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- フィルター後の表示セルの値をテキストボックスへ
おせわになります。 エクセルのVBAで、 フィルターを掛けて表示されている行のセルの値を、 ユーザーフォーム・テキストボックスへ表示させたいと思っています。 ユーザーフォームの「進む」「戻る」ボタンを使って、 表示行の値を1行づつ取得したいのですが、 ・表示されているセルの値取得 ・ボタンを押すごとに表示行のみ一行づつ移動 がわからずにつまづいています。 よろしくお願い致します。
- ベストアンサー
- その他MS Office製品
補足
お返事が遅れてすみません。 ＯＫです。うまくいきました。 今、本データで試してます。それでまたもや質問ですが・・・ おしえていただいた、下記のコードで・・・ ***(3)***該当しなかった場合にその行のデータを別のシートに並べること出来ませんか？ ***(2)***Ａ列に、データがある場合は、判定せずにデータをフォームのシートに送らないと言うことをさせたいのですが、よろしくお願いします。 Public Function Hantei(rowNo As Long) 'パターンの自動認識 With Workbooks(wbNM).Worksheets(wsNM) 'データシートを見る Hantei = 0 Select Case True '各パターン認識設定（項目にデータの有無を判定） Case .Range("E" & rowNo + 1) <> "" 'And .Range("E" & rowNo + 1) <> "" Hantei = 1 Case .Range("C" & rowNo + 1) <> "" And .Range("F" & rowNo + 1) <> "" Hantei = 2 Case .Range("F" & rowNo + 1) <> "" And .Range("I" & rowNo + 1) <> "" Hantei = 3 Case .Range("C" & rowNo + 1) <> "" And .Range("I" & rowNo + 1) <> "" Hantei = 4 End Select End With End Function '判定終了 ***(3)***それから、贅沢なんですが・・・ プログラムが動いているときに、しばらくお待ちください。と表示させること出来ますか？ ***(4)*** 結構、いろいろ付け加えてきました。で・・・ユーザーフォームを表示させて値をセルに入れているんですが、この処理が（ＯＫボタンを押したあと）ユーザーフォームを自動で消すには、どんなコードを書いたらいいのですか？ 「表示させるには、ＵｓｅｒＦｏｒｍ１．ｓｈｏｗ でその反対は？」 またお世話になりますが、よろしくお願いします。