いつも、大変お世話になっております。
vbaの記述で配列関数の部分が分からず投稿させていただきました。ご指導お願いいたします。
ご迷惑をおかけしないように、注意を払っておりますが、不行き等ございましたら、ご容赦ください。
具体的なコードと致しましては、下記です。
With ThisWorkbook.Worksheets("chart").Range("C4").Resize(myrows, 200)
.Formula = "=MIN(IF((作業NO=$A4)*(C$1<=作業日)*(作業日<=C$1+6),NO))"
End With
式を埋め込んで、一つ一つのセルを選択して「ctrl+shift+enter」ボタンを押せば、いいのですが手間なので、
自動的に一括して「ctrl+shift+enter」ボタンを押してもらえるような記述内容の変更の仕方をご指導いただけないでしょうか
当方、excel2000を使用しています。
よろしくお願いいたします。
No.3ベストアンサー
- 回答日時:
とりあえず確実に簡単にできる方法としては,次のようなマクロにします。
with thisworkbook.worksheets("chart")
.range("C4").formulaarray = "=MIN(IF((作業NO=$A4)*(C$1<=作業日)*(作業日<=C$1+6),NO))"
.range("C4").copy destination:=.range("D4").resize(1, 199)
.range("C4").resize(1,200).copy destination:=.range("C5").resize(myrows-1, 200)
end with
マクロ以前にエクセル画面で,どうやってその式を使うかと言えば
1.C4セルに数式を記入してCtrl+Shift+Enterで入力する
2.右に下にコピー貼り付ける
という手順を行います。
上述は,この「出来る手順」をそのままマクロに仕立てたものです。
先に範囲を選択してその式を記入し,Ctrl+Shift+Enterしても,意図した計算結果は得られません。
つまり
セル範囲まとめて.formulaarray = "=今の配列数式"
というマクロを書いても,上手く行かないということです。
ありがとうございました。
同じセルにコピーの行き先(destination)を指定できればいいのに、と思いましたが。
やりたいことはできました。
ありがとうございました。
No.2
- 回答日時:
ここの質問コーナーに答えている程度では、VBAで配列数式を問題にする例は無かった。
VBAでやるなら個々のセルをプログラムを組んで処理する、別の方法があるものだ。そちらを使うのが筋だろう。
配列数式の関数式をセルに埋め込むなど邪道だろう。
関数式だってVBAでセルに埋め込もうとは思わない。
出来るとしても、凝った方法を使いすぎだと思う。質問者はそこまでVBAの熟練者なのか。
他の方法ではできないのか。
ーー
配列数式を離れて、やりたいことをデータ例をあげて、説明してみたらどうすか。
読者に数式を読み解かせ、Resizeしてみたりして、なにをやりたいか意味がわかりにくい。
>式を埋め込んで、一つ一つのセルを選択して「ctrl+shift+enter」ボタンを押せば、いいのですが手間なので、
なぜそうなるのか情況を説明してないのでは。?
MINならMINを求めるセルだけで良いのでは。
ーーー
例えば、先日のわたしの回答例だが
A2:C9の名前を「あ1」とつけた場合
Sub test01()
Worksheets("Sheet2").Range("a2:C9").FormulaArray = "=あ1"
End Sub
は、コピーと同じで
Sub test02()
Worksheets("Sheet1").Range("a2").CurrentRegion.Copy Worksheets("Sheet2").Range("a2")
End Sub
出できると思う。
ーー
よくある条件付き加算の場合
例データ
A2:B10
a1
b2
c3
d4
a5
d6
c7
a8
s9
で、aの行のB列を足すのは、配列数式操作は 例えばC12セルに、=SUM(IF(A2:A10="a",B2:B10,0)) と入れて Shift+CTRL+ENTERで14になるが、
例えばD12にVBAでセットする場合は
Sub test03()
Range("D12").FormulaArray = "=SUM(IF(A2:A10=""a"",B2:B10,0))"
End Sub
の実行で出来た。
こういうのは参考になるかな?
質問の場合はどううまく行かないのか。
No.1
- 回答日時:
.Formula = "=MIN(IF((作業NO=$A4)*(C$1<=作業日)*(作業日<=C$1+6),NO))"
↓
.FormulaArray = "=MIN(IF((作業NO=$A4)*(C$1<=作業日)*(作業日<=C$1+6),NO))"
ということとは違いますか。
解答ありがとうございます。私の説明不足で、申し訳ございません。
ご教授いただいた記述(.FormulaArray)ですと、resizeしたほかのセルも全て同じ値(絶対参照)になってしまいます。
これを、解消するためには、Formula で式を埋め込むしかないと思うのですが、その後で、まとめて 各セルに「ctrl+shift+enter」ボタンをおすなんて、記述ができればと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Windows 10 Windowsのショートカットキーの割り当てについて質問です。 Ctrl+Shift+Rという入力を 1 2022/11/07 09:53
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで表
-
【マクロ】for next構文について
-
職場の人から聞かれており、こ...
-
ユーザー定義関数をアドイン登...
-
PDFの請求明細をエクセルにしたい
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
エクセルの関数について教えて...
-
エクセルで不等号記号(≠)が上に...
-
スプレッドシート、Excelでの数...
-
スプレッドシートで使う数式を...
-
Excelで50個のセルに同じ文字を...
-
[オートフィルタ]で抽出された...
-
エクセルの問題です。絶対値の...
-
エクセル関数を教えてください
-
各ページの1番上の表示について
-
Microsoft Officeの中古は信用...
-
pdfの表をexcelにはりつけて計...
-
Excelのif関数で文字が見えなく...
-
Excel 2019 は、SPILL機能があ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報