• ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：テキストボックスにセルの値を複写する方法）

Excel VB (Excel 2007) の質問：テキストボックスにセルの値を複写する方法

jcctairaの回答

  • ベストアンサー
  • jcctaira
  • ベストアンサー率58% (119/204)
回答No.2

テキストボックスにセルの値を入れるのだけならマクロは必要はありません。 　 【操作手順】 　・テキストボックスス「テキスト ボックス 1」を選択する。 　・数式バーで「=D1」を入力して【Enter】キーを押す。 　　以上を"テキスト ボックス 2"、"テキスト ボックス 3"を同様に行う。 ネットでも色々説明しています。以下は手順を絵的に説明しています。 http://www.bayclotho.jp/blog/archives/907

Rivinus
質問者

お礼

早速の回答有難うございました。 こんなに簡単にできるとは驚きました。

この回答がついた質問に戻る
回答 全件
>テキスト ボックス 1"に複写 ここに、質問者が、エクセルのことがよ…
コピー＆ペーストではなく、「値の代入」と考えればよいのではないでしょう…
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • テキストボックスの値を他のブックのセルで表示したい

    ＥＸＣＥＬsolo365　Windows10です (1)A.xism を開くとユーザーフォームが開く (2)そのユーザーフォームにテキストボックス設置 (3)テキストボックスに2020/04/20と入力 (4)セル”A1”にも2020/04/20が表示される これを、他ブックB.xlsmのセル　”Ｕ2”に直接リンクして 表示したいです。よろしくお願いします。 マクロの記録でやると、「worksheetクラスのPasteメソッドが 失敗しました。」のエラーが出てしまします。 Sub test() Workbooks.Open Filename:=ThisWorkbook.Path & "A.xlsm" Windows("A.xlsm").Activate Range("A1").Select Selection.Copy Windows("B.xlsm").Activate Sheets("CC").Select Range("D1").Select ActiveSheet.Paste Link:=True End Sub

  • 複数シートをループさせてマクロを簡素化したい

    win7 Excel2007 でマクロ作成中の初心者です。 シート数の変動する複数シートの特定範囲を一枚のシートに右列方向に、値を貼り付けたいです。 自動記録でコード作成しましたが、もっと簡素化して軽くしたいです。 シートに対するループ等の作成ができません。どうかご指導お願いします。 Sub 勤怠最終データ作成() Worksheets(1).Select '1番左のシートを選択 ActiveSheet.Unprotect Range("B29:BM60").Select '複写範囲はすべて同じ Selection.Copy Sheets("総括").Select '値の貼り付けシートはすべて同じ Range("A2").Select '値の貼り付け先 Selection.PasteSpecial Paste:=xlPasteValues ’-------------------------------------- Worksheets(2).Select '2枚目のシートを複写 ActiveSheet.Unprotect Range("B29:BM60").Select Selection.Copy Sheets("総括").Select 最終セルの選択 '値の貼り付け先 Selection.PasteSpecial Paste:=xlPasteValues ’-------------------------------------- Worksheets(3).Select '3枚目のシートを複写 ActiveSheet.Unprotect Range("B29:BM60").Select Selection.Copy Sheets("総括").Select 最終セルの選択 Selection.PasteSpecial Paste:=xlPasteValues ’-------------------------------------- Worksheets(4).Select '4枚目のシートを複写 ActiveSheet.Unprotect Range("B29:BM60").Select Selection.Copy Sheets("総括").Select 最終セルの選択 Selection.PasteSpecial Paste:=xlPasteValues 以下省略 End Sub

  • セルの値をテキストボックスに表示したい

    excelマクロ初心者です。教えてください。 ＜やりたいこと＞ 選択したセルと同じ行のうち特定の列のセルの値をフォームの テキストボックスに表示し、そのフォーム上で表示したテキスト ボックスの値をコマンドボタンでコピーしたい。 また、もうひとうつのコマンドボタンをおすと選択したセルと 同じ行の別のセルに"完了"と入力できるようにしたい。

  • ｖbaで別のシートにセルで選択した列を反映させたい

    初めて質問させて頂きます。 vbaで別のシートにセルで選択した項目を反映させたいのですが出来ず困っております。 どなたかご教授頂けますでしょうか。 SR.xlsm ・B4からB100まで4桁の店舗コードがあります。 ・C4からC100までは住所。 ・D4からD100までは電話番号。 master.xlsx ・A1に店舗コードを貼り付けたい ・B2に住所を貼り付けたい ・D3に電話番号を貼り付けたい 作業内容としては以下をしたいのです。 例えばSR.xlsmのB50を選択してボタンをクリックすると master.xlsxが自動的に立ち上がり、 master.xlsxのA1 ⇒ B50を貼り付け master.xlsxのB2 ⇒ C50を貼り付け master.xlsxのD3 ⇒ D50を貼り付け 以下、自分なりにやってみたのですがどのセルを選択してボタンを押してもB4の列しか反映されません。 大変お手数をおかけいたしますがご教授願いますでしょうか。 宜しくお願い致します。 Sub click() ' ' click Macro ' ' Range("B4").Select Selection.Copy Workbooks.Open Filename:= _ "\\0000000\22\33\44\master.xlsx" ActiveSheet.Paste Windows("SR.xlsm").Activate Range("C4").Select Application.CutCopyMode = False Selection.Copy Windows("master.xlsx").Activate Range("E2").Select ActiveSheet.Paste Windows("SR.xlsm").Activate Range("D4").Select Application.CutCopyMode = False Selection.Copy Windows("master.xlsx").Activate Range("E4:H4").Select ActiveSheet.Paste Windows("SR.xlsm").Activate Range("E4").Select Application.CutCopyMode = False Selection.Copy Windows("master.xlsx").Activate Range("H2:H3").Select ActiveSheet.Paste End Sub

  • セルの値を1桁ずつ、テキストボックスへ

    幾つかの値が入力されたセルから1桁ずつ取り出して、テキストボックスへバラバラに表示させたいのですが・・・よろしくお願いします。 例えば1234567等の7桁の値が入力されたセルがあって、それを指定したテキストボックスへ１、２、３、４、５、６、７と7つのテキストボックスへ表示させたいのです。 セルからセルだったらＭＩＤ（Ａ1，１，１）で“１”を取得できますが、これをテキストボックスで取得したいのです。 事前にセルで取得してテキストボックスとリンクさせていたのですが、元のデータが変わるたびにやり直さないといけないので、テキストボックスから直接取得させたいのですが、何か良い方法がありましたら宜しくお願いします。

  • セルの値をテキストボックスに表示したい

    excel-vba初心者です。教えてください。 選択したセルと同じ行の別の列のセルの値をフォームの テキストボックスに表示する方法を教えてください。

  • テキストボックスへにセル値の入力

    エクセルマクロの初心者で恐縮なのですが、ユーザーフォームのテキストボックスに下記のようなことは可能でしょうか？ 例１）ユーザーフォーム上にある「テキストボックス」に「オプションボタン１」を選択するとワークシートのセル値を入力（反映）することは可能でしょうか？ 例２）次に、「オプションボタン２」を選択すると、例１でテキストボックスに入力（反映）した値を消去し、かつ、このテキストボックスに数値を直接入力したら、ワークシートの別セルに入力した数値が反映されるようにすることは可能でしょうか？ 例１・２）についてどのようなマクロを組めばよいのでしょうか？ マクロにお詳しい方、大変申し訳ございませんか、ご指導お願いいたします。

  • セルの値をテキストボックスへ記入及び名前変更

    範囲選択したセルに丸オートシェイプを挿入すると共に、それぞれのセルの値をテキストで追加及び、図形名を同じ値にしたいと思っています（下記の＊＊＊の部分）。この時セルは結合されている場合があります。 描写は下記のようにしたのですが、セルの読み込みで詰まってしまいました。セルの値を読み込むにはどの様なしたらいいのでしょうか？ 宜しくお願い致します。 Sub 選択されたセルに丸テキスト挿入() Dim X As Double Dim Y As Double Dim L As Double Dim c As Range If Not TypeName(Selection) = "Range" Then Exit Sub For Each c In Selection With c.MergeArea If c.Address = .Item(1).Address Then L = IIf(.Width > .Height, .Height, .Width) X = .Left + (.Width - L) / 2 Y = .Top + (.Height - L) / 2 ActiveSheet.Shapes.AddShape(msoShapeOval, X, Y, L, L).Select Selection.Name = ＊＊＊ Selection.Characters.Text = "＊＊＊" Selection.ShapeRange.Fill.Visible = msoFalse 　　 　　Selection.HorizontalAlignment = xlCenter With Selection.Characters(Start:=1, Length:=3).Font .Size = 8 End With End If End With Next End Sub

  • 別ブックのセルをSelectionで操作する方法

    Excelの別ブックのセルをSelectionやActiveCellで操作する方法 Excel2010のVBAで別のブックを開いて、 別のブックのあるシートのあるセルを選択して、 この選択したセルに対して SelectionやActiveCellで操作する場合、 ブック、シートはどのように指定をすればよいのでしょうか。 例えば、 MYBOOKに以下のようなVBAコードを記述して、 OTHERBOOKのSHEET4シートの選択されているセルに対して、 SelectionまたはActiveCellでRowを取得する場合、 (1)のように「Selection.Row」や (2)のように「ActiveCell.Row」を記述しただけでは、 MYBOOKのアクティブシートの選択セルの行番号が 取得されてしまいます。 (3)(4)(5)(6)のように記述しても、 「実行時エラー'438': 　オブジェクトは、このプロパティまたは 　メソッドをサポートしていません。」 というエラーが発生してしまいます。 OTHERBOOKのSHEET4の選択セルの行番号を取得するには、 どのように記述すればよいのでしょうか。 ---------------------------------------------- Dim OTHERBOOK As Excel.Workbook Dim row_no As Integer Set oApp = CreateObject("Excel.Application") oApp.Visible = True Set OTHERBOOK = oApp.Workbooks.Add OTHERBOOK.Activate OTHERBOOK.Worksheets.Add(after:=OTHERBOOK. _ Worksheets(OTHERBOOK.Worksheets.Count)).Name = "SHEET4" OTHERBOOK.Worksheets("SHEET4").Activate '(省略) '(OTHERBOOKのSHEET4シートの中のあるセルが選択されるが ' どのセルが選択されるのかは未定) '(省略) '(1) row_no = Selection.Row '(2) row_no = ActiveWindow.ActiveCell.Row '(3) row_no = OTHERBOOK.Selection.Row '(4) row_no = OTHERBOOK.ActiveSheet.Selection.Row '(5) row_no = OTHERBOOK.Worksheets("SHEET4").Selection.Row '(6) row_no = Application.ActiveWorkbook.ActiveSheet.Selection.Row oApp.Application.Quit Set oApp = Nothing ----------------------------------------------

  • テキストボックスより値を取得して送信

    １つのテキストボックスにあるデータの値を取得して送信するボタンが作りたいのですが、どうしたら良いでしょう。 値を取得（テキストボックスのデータをinput type=hiddenに複写する）というjavascriptは出来ました。 でも複写するボタンをまずクリックして値を複写してからから、送信ボタンを押すという２回クリックが要ります。 なんとか、１回ボタンを押すと、テキストボックスの値を複写して、送信するという仕組みにしたいのですが、どんなfunctionを書けば良いかわかりません。 小生Javascriptは初心者に近いですが、がんばってますので宜しくご教授ください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する