Excel VBA質問箱 IV

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

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


13248 / 13644 ツリー ←次へ | 前へ→

【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.」という
4つのシートが存在して、そのうちの
シート名に「仕入」という文字を含むシートだけ、
(つまり「仕入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行の値が入力されている一番下の行に
プラス1行足した行の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)"

この式でうまくできました!
ありがとうございました!

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