□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 親トピックをトピックトップへ ]
このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ～ん。誰か～！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

このトピック参照回数 :
Re[6]: シート、セルを指定してセル値を入力

    [196323] Re[6]: シート、セルを指定してセル値を入力-

    ■解決！！ありがとうございました！ / 記事引用/メール受信=OFF■

    □投稿者/ ヤーボー -(2024/11/18(08:12))
    □U R L/

      返信がおそくなり申し訳ありませんでした。おかげさまで解決しました。
      ありがとうございました。



    [196319] Re[5]: シート、セルを指定してセル値を入力-

    ■記事引用/メール受信=OFF■

    □投稿者/ 匿名 -(2024/11/09(11:30))
    □U R L/ 
      以下に２つサンプルを掲載します。
ちなみに、私がやるとしたら、「www2」の方です。

Sub www()
    'sheet3(Sheet1のセルC5のセル値）のセルA5のセル値をSheet1のセルE5に書き込む
    
    Worksheets("Sheet1").Range("E5").Value = Worksheets("sheet" & Worksheets("Sheet1").Range("C5").Value).Range("A5").Value
    
    '【解説】
    '①Worksheets("Sheet1").Range("E5").Value =　→　ワークシートの"Sheet1"というシート名のE5セルに対して値に代入せよ
    '
    '②"sheet" & Worksheets("Sheet1").Range("C5").Value
    '                                            →　"sheet"という文字列と、Sheet1のC5セルの値をつなげた文字列(例：sheet3)を作成せよ
    '
    '③Worksheets("sheet" & Worksheets("Sheet1").Range("C5").Value).Range("A5").Value
    '                                            →ワークシートの②で作成された文字列(ワークシート名)のA5セルの値を取得せよ
    '
    'を1行で書いています
    

End Sub

Sub www2()
    'sheet3(Sheet1のセルC5のセル値）のセルA5のセル値をSheet1のセルE5に書き込む
    Dim shSrc As Worksheet
    Dim shDst As Worksheet
    Dim strSheetNo As String
    
    Set shDst = Worksheets("Sheet1") '　"Sheet1"という名前のワークシートを「shSrc」という名前のワークシートオブジェクトとして扱え
    strSheetNo = shDst.Range("C5").Value '　「strSheetNo」という文字列型の変数に、ワークシートオブジェクト「shDst」のC5セルの値を代入せよ
        
    Set shSrc = Worksheets("sheet" & strSheetNo) '　"sheet"という文字列と変数「strSheetNo」の値を文字列結合した結果のワークシート名のワークシートオブジェクトを「shSrc」として扱え
    
    shDst.Range("E5").Value = shSrc.Range("A5").Value '　「shSrc」というワークシートオブジェクトのA5セルの値を、「shDst」というワークシートオブジェクトのE5セルの値に代入せよ
        
    Set shDst = Nothing  'ワークシートオブジェクト「shDst」の切り離し
    Set shSrc = Nothing  'ワークシートオブジェクト「shSrc」の切り離し
    
End Sub


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [196318] （削除）-

    ■記事引用/メール受信=OFF■

    □投稿者/ / -(2024/11/08(16:51))
    □U R L/

      この記事は削除されました



    [196317] Re[3]: シート、セルを指定してセル値を入力-

    ■記事引用/メール受信=ON■

    □投稿者/ ヤーボー -(2024/11/08(11:26))
    □U R L/

      前の投稿は意味がわからないので書き直します。
      1.aaシートのセルC5に数値3を入力
      2.ボタンXをクリックしたらモジュールWWWを実行するマクロを教えてください。

      sub　WWW()
      bb3(3はaaシートのC5セルのセル値）シートのセルA5のセル値をシートaaのセルE5
      に書き込む
      End sub



    [196316] Re[2]: シート、セルを指定してセル値を入力-

    ■記事引用/メール受信=OFF■

    □投稿者/ ヤーボー -(2024/11/08(08:17))
    □U R L/

      1.Sheet1のセルC5に数値3を入力
      2.ボタンXをクリックしたらモジュールWWWを実行するマクロを教えてください。

      sub　WWW()
      sheet3(Sheet1のセルC5のセル値）のセルA5のセル値をSheet1のセルE5
      に書き込む
      End sub



    [196315] Re[1]: シート、セルを指定してセル値を入力-

    ■記事引用/メール受信=OFF■

    □投稿者/ 匿名 -(2024/11/07(17:27))
    □U R L/

      まずは、質問を具体的にしてください。
      例）
      1.Sheet1という名前のA1セルに、数値「1」を入力
      2.Sheet1という名前のA2セルに、文字「A5」を入力
      3.A2セルに文字を入力後、Enterキーを押すと、
      　1というシート名のA5セルの値を、Sheet1のA3セルに表示する
      という様に、書いてみてください。

      そして、どの部分が分からないかを質問するようにしてください。
      丸投げでは、自分でできるようにならないし、
      後から追加や修正などのメンテナンスもできるようになりません。



    [196313] シート、セルを指定してセル値を入力-

    ■親トピック/記事引用/メール受信=ON■

    □投稿者/ ヤーボー -(2024/11/07(09:58))
    □U R L/

      Excelの元シートのあるセルに数値を入力し、その数値のシート名のセル値を元のシートの
      指定セルに書きこむマクロを教えたください。



このトピック内容の全ページ数 / [0]
- Child Forum -
Edit:ゆう-Ｇ