Excel VBA質問箱 IV

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

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


2250 / 13645 ツリー ←次へ | 前へ→

【69148】CSVデータ GGG 11/5/20(金) 18:34 質問[未読]
【69149】Re:CSVデータ kanabun 11/5/20(金) 18:40 発言[未読]
【69150】Re:CSVデータ GGG 11/5/20(金) 19:49 質問[未読]
【69151】Re:CSVデータ H. C. Shinopy 11/5/20(金) 20:13 回答[未読]
【69152】Re:CSVデータ GGG 11/5/20(金) 20:35 お礼[未読]

【69148】CSVデータ
質問  GGG  - 11/5/20(金) 18:34 -

引用なし
パスワード
   EXCEL2003です

EXCELで読むための CSVファイルを作成しています

CSVファイルに数式を埋め込みたいのですが

countif( , ) や subtotal(1, ) を 
うまく埋め込めないでしょうか?

カンマでセルが分かれて数式が成り立ちません

どうか、ご教授お願いします

【69149】Re:CSVデータ
発言  kanabun  - 11/5/20(金) 18:40 -

引用なし
パスワード
   ▼GGG さん:

>CSVファイルに数式を埋め込みたいのですが
>
>countif( , ) や subtotal(1, ) を 
>うまく埋め込めないでしょうか?

CSVファイルはテキストファイルの一種です。
数式は埋め込めません。

【69150】Re:CSVデータ
質問  GGG  - 11/5/20(金) 19:49 -

引用なし
パスワード
   ▼kanabun さん:
>▼GGG さん:
>
>>CSVファイルに数式を埋め込みたいのですが
>>
>>countif( , ) や subtotal(1, ) を 
>>うまく埋め込めないでしょうか?
>
>CSVファイルはテキストファイルの一種です。
>数式は埋め込めません。

=sum(A:A)

なら excelで開いたときに計算します
カンマの処理について
おたずねしてます

【69151】Re:CSVデータ
回答  H. C. Shinopy  - 11/5/20(金) 20:13 -

引用なし
パスワード
   "=countif( , )" というように引用符で囲むと問題なくできそうですが…

ただ、Excelで開いたCSVファイルのブックを保存すると、値だけ保存されるし、
"=countif( , )" を書き込んだCSVファイルを開けばエラーが表示されし
(単なる警告だけですが、エラーをすべて無視する操作が必要ですね)…

その辺は、更にマクロで前後の処理をする必要があるでしょう。
うまくいったらやり方を教えて下さい。

【69152】Re:CSVデータ
お礼  GGG  - 11/5/20(金) 20:35 -

引用なし
パスワード
   ▼H. C. Shinopy さん:
>"=countif( , )" というように引用符で囲むと問題なくできそうですが…
>
>ただ、Excelで開いたCSVファイルのブックを保存すると、値だけ保存されるし、
>"=countif( , )" を書き込んだCSVファイルを開けばエラーが表示されし
>(単なる警告だけですが、エラーをすべて無視する操作が必要ですね)…
>
>その辺は、更にマクロで前後の処理をする必要があるでしょう。
>うまくいったらやり方を教えて下さい。

H. C. Shinopy さん
有り難うございました
引用符をいろいろ付けてみていけました

Private Sub Command1_Click()
 Dim fileNo As Integer
 Dim I AS Integer
 Dim aaa(1 to 7)
 
 aaa(1) = "2," & """=countif(A:A,""""G"""")"""
 aaa(2) = "G"
 aaa(3) = "2"
 aaa(4) = "2"
 aaa(5) = "G"
 aaa(6) = "G"
 aaa(7) = "2"
 
 fileNo = FreeFile            
 Open "c:\111111E.CSV" For Append As #fileNo
 For I = 1 To 7
    Print #fileNo, aaa(I)         
 Next
 Close #fileNo              
End Sub

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