Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8085 / 76736

←次へ　｜　前へ→


	【74229】数式を配列に入れて貼り付けたい

タカシ - 13/4/30(火) 23:40 -


	引用なし

	パスワード

現在、数式を配列に入れて、セルに一括で貼り付けたいと考えています。下のような方法で数式は貼り付けることができるのですが、計算結果が表示されずに数式がそのまま表示されてしまいます。数式をF2で選択して、決定キーを押すと計算されるのですが。どうにかvbaでうまく処理する方法はあるのでしょうか？
御存じの方いらっしゃいましたら、ご教授いただけると助かります。よろしくお願いいたします。

Sub 例()
Dim data() As String,i as long
ReDim data(1 To 3)
For i = 1 To 3
'R1C1形式で数式をつくり、A1形式に変換
data(i) = Application.ConvertFormula("=R1C" & i, xlR1C1, xlA1)
Next i
range("A2").Resize(1, UBound(data)).Formula = data '一括で貼り付け
End Sub

0 hits

▼

【74229】数式を配列に入れて貼り付けたい タカシ 13/4/30(火) 23:40

≪