- ベストアンサー
エクセルVBAで、テキストボックスに値を入れる（３）
nishi6の回答
- nishi6
- ベストアンサー率67% (869/1280)
原因が分かりました。 rurucomさんが試されたのは、「エクセルＶＢＡで、テキストボックスにセルの値を入れる」で回答したANo.#13のようです。私はANo.#１４でＯＫと思い、「エクセルＶＢＡで、テキストボックスにセルの値を入れる(３)」のANo.#7では、ANo.#１４の印刷ＶＢＡを想定して書いています。 問題無ければ修正版のANo.#１４で試して下さい。 少し説明を・・・・ ANo.#１４の印刷ルーティンは各シートから呼び出したり、一括指示等をしたいということなので Public Sub page_Print(sPatt, iPatt As Integer) に修正しました。 sPattは印刷パターン（＝シート番号） iPattは各シートから印刷する時は印刷パターン、一括指示する時はゼロ（全部の意味）です。 こうやって、iPattでＶＢＡ内部で処理を分岐させています。 WakuView sPatt, False は sPattは印刷パターン（＝シート番号） Falseは線を消す WakuView sPatt, True True は線を表示する意味です。 印刷時うまくいっていれば、シート番号はsPattで分かっているので、WakuViewを使って印刷前に強制的に線を消して印刷後線を表示できると考えています。多分、ANo.#１４に２行追加でうまくいくと思います。
関連する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製品
補足
すみません！私も振り返ってみていたら、14番だったことにきずきました。なんだか違うなぁと思いながらすすめてました。 で、早速やってみましたら、コンパイルエラー「ＢyRef 引数の型が一致しません」になってしましました。多分また私が簡単なミスをしているのじゃないかなぁ？・・・・・ 何度の見直してみたのですが、どうもパニックです。またお世話になりますが、よろしくお願いします。 Public Sub page_Print(sPatt, iPatt As Integer)******ここに黄色マーク Dim myMsg As String 'メセージ If iPatt = 0 Then myMsg = (Worksheets("Sheet1").Range("B5") - 1) & " 行目" & vbLf myMsg = myMsg & "印刷パターン " & StrConv(sPatt, vbWide) & " を印刷します。" & vbLf myMsg = myMsg & " 用紙をセットしてください。" & vbLf & vbLf myMsg = myMsg & "（印刷しない場合はキャンセルを押します。）" & vbLf & vbLf If MsgBox(myMsg, vbOKCancel) = vbCancel Then Exit Sub End If End If WakuView sPatt, False '******* 追加 ******* →sPattここが反転（範囲指定状態）で印 Range("Print_Area").Select: Selection.Font.ColorIndex = 2 ActiveWindow.SelectedSheets.PrintPreview 'PrintOut Selection.Font.ColorIndex = xlAutomatic Range("Print_Area").Cells(1, 1).Select WakuView sPatt, True '******* 追加 ******* End Sub