Q&A
取扱説明書・マニュアル (文書検索対応分のみ)
"シート"4 件の検索結果
"シート" 一致するキーワードは見つかりませんでした。
全般
質問者が納得読み間違っている可能性がありますのでテストデータ（コピー）でお試しください。エラーその他は補足でどうぞ！
Sub MyMacro1()
Dim sh(3) As Worksheet
Dim rng(1) As Range
Dim lastRow As Long
Dim titleRow As Long
Dim i As Long
'OSに制御を戻す
DoEvents
'画面更新を停止する
Application.ScreenUpdating = False
'シートを変数に設定する
Set sh(0) = ...
4618日前view30
全般
質問者が納得① IF 文の意味をご存知でしょうか？
Q15の値が空欄かどうかは、下記のうにすれば判定できます。
参考にして下さい。
If Range("Q15").Value = "" Then
MsgBox "空欄"
Else
MsgBox "データ有り"
End If
②に付いては質問が理解出来ません。
5218日前view0
全般
質問者が納得細かく見る気がないのですが INDIRECT関数を使っている時点で 対象
となるブックを開いてないと 処理されません。
数式で計算したいなら シートはむやみに分けてはいけません。
それか SUMIFの計算式を 全てのシートの決められたセルに入れるように
して それを集計するかですね。 INDIRECTは不可です。
4457日前view44
全般
質問者が納得質問者様の例題どおりに今、同じことを舞も行ってみました。
①月間売り上げデーターをカラム７と８に打ち込んで
②目盛の最大値と最小値をカラム３に打ち込んで
③ＶＢＡに質問者様のコードをコピーして
④すんなり、動きましたよ。
エラーは出ませんでした。
もう一度、最初からゆっくりと実行してみてください。
できれば、全て初めから。
それに、してもカラム３に最大最小を配置なさるなんて、ちょっと素敵です。 アイデアを頂いてもいいかしら？
5516日前view0
- 1
