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

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

このトピック参照回数 :
Re[9]: セルに入力したシート名を使いたい

    [195915] Re[9]: セルに入力したシート名を使いたい-

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

    □投稿者/ Green -(2023/09/03(14:28))
    □U R L/

      ありがとうございます。

      そうです。

      Option Explicit ← 入れてます。

      Workbook が「SubまたはFunctionが定義されていません」とか
      THBKやThisBK が「変数が定義されていません」
      出ました。 s ですね。

      試してみます。




    [195914] Re[8]: セルに入力したシート名を使いたい-

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

    □投稿者/ 半平太 -(2023/09/03(12:37))
    □U R L/
      >冒頭にこちらを追加しましたが、最初からエラーになります。
      Green さんは、モジュールシートの最初に
      これを入れてないのですか?
       ↓
      Option Explicit
      
      入れてあれば、
      Workbook が「SubまたはFunctionが定義されていません」とか
      THBKやThisBK が「変数が定義されていません」と出るハズなんですけど。
      
      因みに、そこは「s」を補ってください。
      >Workbook("ファイル名.xlsm")
        Workbooks("ファイル名.xlsm")
               ↑
      




    [195913] Re[7]: セルに入力したシート名を使いたい-

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

    □投稿者/ Green -(2023/09/03(11:32))
    □U R L/
      冒頭にこちらを追加しましたが、最初からエラーになります。
      他のコードではエラーにはならないのですが。
      他のエラーが出たり、さっきあったエラーが別の箇所で表示したり、
      もう少し確認します。
      
      Sub test()
          Dim ThisBook As Workbook
          Set THBK = Workbook("ファイル名.xlsm")
          'Set THBK = ThisWorkbook
          Set THWS = ThisBK.Sheet("Sheet1")


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

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




    [195912] Re[6]: セルに入力したシート名を使いたい-

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

    □投稿者/ 半平太 -(2023/09/03(10:19))
    □U R L/
      >インデックスが有効範囲にありません
      そんなシート名は無いと言う事でしょうね。
      
      >オブジェクト変数または With ブロック変数が設定されていません
      >Wb1.Sheets(Wsn1).Range("A1").Copy
      あれ? そんな文は質問に無かったような・・
      
      全文が分からないと的確にアドバイスするのは難しいです。




    [195911] Re[5]: セルに入力したシート名を使いたい-

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

    □投稿者/ Green -(2023/09/02(23:46))
    □U R L/

      ありがとうございます。

      実行時エラー 9  修正できるのかな? 教えて
      インデックスが有効範囲にありません

      いろいろ修正して、時々こちらが表示されます。

      実行時エラー 91
      オブジェクト変数または With ブロック変数が設定されていません

      Wb1.Sheets(Wsn1).Range("A1").Copy

      宜しくお願い致します。




    [195910] Re[4]: セルに入力したシート名を使いたい-

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

    □投稿者/ 半平太 -(2023/09/02(09:10))
    □U R L/
      >エラーになります
      
      何というエラーなんですか?
      どこのステートメントで発生するのですか?




    [195909] Re[3]: セルに入力したシート名を使いたい-

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

    □投稿者/ Green -(2023/09/02(06:35))
    □U R L/
      ありがとうございます。
      
      半平太さん
      
       Wb1 に格納できていないような気がします。
      
      
      MKさん
      
       やっぱり、String が気になっています。
      
      
      ・似てるコードが他にもあって、そちらは問題ないのですが、本当に問題がないのかも気になっています。
      
      もう少し試して戻ってきます。宜しくお願い致します。
      


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

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




    [195907] Re[2]: セルに入力したシート名を使いたい-

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

    □投稿者/ MK -(2023/09/01(19:21))
    □U R L/

      直接の回答ではありません。
      参考まで。

      ht tps://excelwork.info/excel/datatype/




    [195906] Re[1]: セルに入力したシート名を使いたい-

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

    □投稿者/ 半平太 -(2023/09/01(13:12))
    □U R L/
      Wb1とかに、ちゃんとブックが格納されていますか?
      




    [195904] セルに入力したシート名を使いたい-

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

    □投稿者/ Green -(2023/08/31(22:55))
    □U R L/
      ファイルが3つあります
      ThisWorkbook  workbook1  workbook2
      
      ThisWorkbook シート名「本の名前」のA列には workbook1 のシート名が入っている
      ThisWorkbook シート名「本の名前」のB列には workbook2 のシート名が入っている
      
      A列、B列のシート名を使って コピー&ペースト をしたい
      エラーになります、このような書き方はしなしのでしょうか。
      どの様に修正するのか教えてください。  Windows10 Excel2019
      
      
          Dim Copy1, Copy2 As String
          Dim Paste1, Paste2 As String
      
          Copy1 = ThisWorkbook.Sheets("本の名前").Range("A2").Value
          Copy2 = ThisWorkbook.Sheets("本の名前").Range("A3").Value
      
          Paste1 = ThisWorkbook.Sheets("本の名前").Range("B2").Value
          Paste2 = ThisWorkbook.Sheets("本の名前").Range("B3").Value
      
          ' コピーとペースト操作を修正
          Wb1.Sheets(Copy1).Range("B3:D3").Copy
          Wb2.Sheets(Paste1).Range("E6:G6").PasteSpecial xlPasteValues
      
          Wb1.Sheets(Copy2).Range("B5:D5").Copy
          Wb2.Sheets(Paste2).Range("E6:G6").PasteSpecial xlPasteValues


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

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



このトピック内容の全ページ数 / [0]

- Child Forum -
Edit:ゆう-G