Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13250 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【6325】シート名が一部一致について りん 03/6/24(火) 14:50 質問
【6329】Re:シート名が一部一致について Jaka 03/6/24(火) 16:26 回答
【6345】Re:シート名が一部一致について りん 03/6/25(水) 15:32 質問
【6349】Re:シート名が一部一致について Jaka 03/6/25(水) 16:07 回答
【6350】Re:シート名が一部一致について りん 03/6/25(水) 16:25 お礼
【6325】シート名が一部一致について
質問  りん  - 03/6/24(火) 14:50 -
引用なし
パスワード
   こんにちは。VBA初心者です。
一つのBookの中に
｢Sheet1｣｢仕入1.｣｢仕入2.｣｢仕入3.｣という
４つのシートが存在して、そのうちの
シート名に｢仕入｣という文字を含むシートだけ、
（つまり｢仕入1.｣｢仕入2.｣｢仕入3.｣のシートにだけ）
A1：A10の合計をB11に表示するような式を
作りたいのですが、
｢仕入｣という文字を含むシートにだけ
処理を施す方法がわかりません。
教えいただけないでしょうか。
よろしくお願いします。
【6329】Re:シート名が一部一致について
回答  Jaka  - 03/6/24(火) 16:26 -
引用なし
パスワード
   こんにちは。
こんなかな．．。

For i = 1 To Worksheets.Count
　　If Worksheets(i).Name Like "*仕入1.*" Or _
　　　 Worksheets(i).Name Like "*仕入2.*" Or _
　　　 Worksheets(i).Name Like "*仕入3.*" Then
　　　 'Worksheets(i).Select
　　　 'MsgBox "仕入1.、仕入2.、仕入2.のどれか"
　　　 With Worksheets(i).Range("B11")
　　　　　 .Formula = "=sum(A1：A10)"
　　　 End With
　　End If
Next
【6345】Re:シート名が一部一致について
質問  りん  - 03/6/25(水) 15:32 -
引用なし
パスワード
   こんにちは。回答ありがとうございます。
教えていただいた式をアレンジして使ってみたのですが、
どうもうまくいきません。

>　　　 With Worksheets(i).Range("B11")
>　　　　　 .Formula = "=sum(A1：A10)"

実はこの部分は実際に使う表ではA行のセルが特定されて
いません。A行の値が入力されている一番下の行に
プラス１行足した行のB列に
合計を入力したいのです。そこで、

y = Worksheets(i).Range("A65536").End(xlUp).Row
Worksheets(i).Cells((y + 1), 2).Formula = "=SUM(A:A)"

というような式をどこかに入れて、
A行の合計値を求めたいのですが
どこにこのような式を入れたらよいのかわかりません。
教えて下さい！！お願いします。
【6349】Re:シート名が一部一致について
回答  Jaka  - 03/6/25(水) 16:07 -
引用なし
パスワード
   >　　　 With Worksheets(i)
>　　　　　 y = .Range("A65536").End(xlUp).Row
　　　　　 .Cells((y + 1), 2).Formula = "=SUM(A:A)"
【6350】Re:シート名が一部一致について
お礼  りん  - 03/6/25(水) 16:25 -
引用なし
パスワード
   ▼Jaka さん：
>>　　　 With Worksheets(i)
>>　　　　　 y = .Range("A65536").End(xlUp).Row
>　　　　　 .Cells((y + 1), 2).Formula = "=SUM(A:A)"

この式でうまくできました！
ありがとうございました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13250 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free