エクセルの学校：全文検索：Hyper Estraier：条件付き書式

Results of 1 - 1 of about 4502 for 条件付き書式 (0.007 sec.)

[[20220614105238]]: #score: 3708; @digest: 9ce859f6682d0d55015c17dfb7872fc2; @id: 91541; @mdate: 2022-06-14T02:37:01Z; @size: 1943; @type: text/plain; #keywords: wscells (15497), ル★☆ (15497), ¥☆★ (7748), 中se (7748), hello (7441), 部di (6721), ★☆ (4655), ダ" (2393), 言部 (2132), activeworkbook (1428), desktop (1314), しフ (1131), じ処 (1096), savechanges (973), も起 (964), path (942), book (916), ダ内 (915), （通 (880), トオ (878), 火) (872), ォル (835), 2022 (817), 数宣 (814), ルダ (715), save (667), 宣言 (661), users (655), フォ (586), close (577), ルー (545), workbooks (516); 『VBA フォルダ内のブックに同じ処理を行う』（ふふ）
フォルダ内のブックに同じ処理をさせるVBAを試しに書こうとしたのですが、なぜか実行しても何も起きません。どうしてでしょうか? 全てのブックに『Hello!』と入力されるものを書いているつもりでしたが、、、 VBAに詳しい方、どうかご教授願います。m（_ _）m Sub Sample() Dim Path As String Dim Book As String Path = "C:¥Users¥fu¥Desktop¥☆★エクセル★☆ ¥VBA 試しフォルダ" Book = Dir(Path & "*.xlsx") Do While Book <> "" Workbooks.Open Path & Book Cells(1.1).Value = "Hello!" ActiveWorkbook.Save ActiveWorkbook.Close Book = Dir() Loop End Sub ＜使用 Excel:Excel2019、使用 OS:Windows10 ＞ ---- ＞なぜか実行しても何も起きません。「C:¥Users¥fu¥Desktop」フォルダに、「☆★エクセル★☆ ¥VBA 試しフォルダ*.xlsx」というファイルが存在しないからでしょう。（わからん） 2022/06/14(火) 11:06 ---- 被りますが。 Pathの最後の「¥」が抜けてるから。（通りすがり） 2022/06/14(火) 11:08 ---- > ActiveWorkbook.Save > ActiveWorkbook.Close ループの中に入ってますが大丈夫でしょうか? 一つ目で閉じちゃいますよ。（通りすがり） 2022/06/14(火) 11:13 ---- ↑ループの中でないとダメでしたね。スルー願います。（通りすがり） 2022/06/14(火) 11:14 ---- ブックオブジェクト、ワークシートオブジェクトを変数で宣言して処理する方法です。 ※コードの一部のみ '変数宣言部 Dim wb As Workbook Dim ws As Worksheet 'ループの中 Set wb = Workbooks.Open(Path & Book) Set ws = wb.Worksheets(1) wsCells(1.1).Value = "Hello!" wb.Close SaveChanges:=True Set ws = Nothing Set wb = Nothing （通りすがり） 2022/06/14(火) 11:22 ---- > wsCells(1.1).Value = "Hello!" ↓の間違いでした。 ws.Cells(1.1).Value = "Hello!" （通りすがり） 2022/06/14(火) 11:23 ---- 無事に解決しました。ありがとうございました!! （ふふ） 2022/06/14(火) 11:37 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/202206/20220614105238.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ