Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13899 / 76733 ←次へ | 前へ→

【68335】Re:新しいファイルを作成し、シートをコピーする
質問  nakataka  - 11/2/24(木) 13:28 -

引用なし
パスワード
   返信ありがとうございます。

エラーは出ませんが、全くコピーされません。

誰か教えて下さい

Dim i As String
  
  
  strNewWorkbookName = f_NewWorkbook()
  
  i = 1  
  Do Until i < 11
  
  i = i + 1
  If ThisWorkbook.Sheets(i).Range("B2").Value <> "" Then
   
  ThisWorkbook.Sheets(i).Copy Before:=Workbooks(strNewWorkbookName).Sheets(i - 1)
  
  End If
  
  Loop
 
2 hits

【68327】新しいファイルを作成し、シートをコピーする nakataka 11/2/24(木) 10:15 質問
【68328】Re:新しいファイルを作成し、シートをコピ... Jaka 11/2/24(木) 10:32 発言
【68329】Re:新しいファイルを作成し、シートをコピ... nakataka 11/2/24(木) 10:56 質問
【68330】Re:新しいファイルを作成し、シートをコピ... UO3 11/2/24(木) 11:27 回答
【68334】Re:新しいファイルを作成し、シートをコピ... Jaka 11/2/24(木) 11:48 発言
【68335】Re:新しいファイルを作成し、シートをコピ... nakataka 11/2/24(木) 13:28 質問
【68340】Re:新しいファイルを作成し、シートをコピ... Jaka 11/2/24(木) 17:11 発言

13899 / 76733 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free