Excel VBA質問箱 IV

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

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


68469 / 76734 ←次へ | 前へ→

【12802】Re:VBAで文字数カウントしたいのですが(...
質問  ima  - 04/4/15(木) 13:42 -

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

こんにちは。説明不足ですみません。前回説明しなかったのですが、「元ブック」のA列には不定数(X名)の質問があり、最後の質問の次の行には「注記」、その次の行(最終行)には「回答者」が来ます。最終的に文字数としてカウントするのは各質問の回答の文字数だけなので、教えていただいたコードの段階でこの「注記」および「回答者」に記入された文字をカウントをしないようにするか、カウントしても最終的に合計を出す段階で集計に加えられないようにしたいのです。

元ブック-Sheet1(一人目)      元ブック-Sheet2(二人目)…SheetXまである    
  A       B            A    B
1 Q1      ○○○(文字列)   1 Q1    ●●●●
2 Q2      △△△△       2 Q2    ■■
3 Q3      ◇◇         3 Q3    ▲▲▲
・ ・       ・         ・ ・     ・
・ ・       ・         ・ ・     ・
・ QX(最後の質問)×××       ・ QX    ???
・ 注記     ◎◎         ・ 注記    □□
・ 回答者    AAAA         ・ 回答者   BBBB

ichinoseさんが考えてくださったコードを元ブックで実行すると、下記集計ブックのようになります。

集計ブック-Sheet1(Q1のシート)
  A列        B列      C列
1 シート番号    回答      文字数
2   1       ○○○      3
・  2       ●●●●     4
・  ・       ・       ・
・  ・       ・       ・
・  X       \\\       3

集計ブック-最後のSheet(回答者)
  A列        B列      C列
1 シート番号    回答      文字数
2  1        AAAA      4
・  2        BBBB      4
・  ・        ・      ・
・  ・        ・      ・
・  X         YYYY     4

もうひとつは、最終目的である、各回答の文字数の総計を新しいシートに出したいのです。イメージとしては、集計ブックの新しいシートに下記のようなものができればよいのですが・・(レイアウトは問いません)

    A列        B列        
1    シート名     文字数小計
2    Q1       (上記集計ブック-Sheet1のC列の合計値)
3    Q2       (Sheet2のC列の合計値)
・    ・          ・
・    ・          ・    
z    QX       (最後の質問のSheetのC列の合計値)
z+1           (B2:Bzの総計)  

集計ブックの各シートのC列は修正した値を手入力する場合があるので(例えば、文字列にスペースが含まれていると1文字としてカウントしてしまうので、1文字削除するとか、誤字脱字があった場合の文字数の増減など)、C列の値を変更した場合、変更した値が反映される総計になればベストなのですが、無理そうなら手作業で行うつもりです。なお、前回質問したとおり、「回答」が空欄の場合「O」となり1文字としてカウントされる件は数式の変更で可能なのでしょうか?

本当に細かいところまで聞いてしまってすみません。まだまだ初心者で教えてもらったコードをひとつひとつ解読して「なるほど!」と納得しているレベルですので・・希望はあっても自分ではどこから手をつけていいのかわからなくて、ichinoseさんには感謝しています。

0 hits

【12739】VBAで文字数カウントしたいのですが(長... ima 04/4/13(火) 17:04 質問
【12744】Re:VBAで文字数カウントしたいのですが(長... ichinose 04/4/13(火) 19:11 回答
【12755】Re:VBAで文字数カウントしたいのですが(... ima 04/4/14(水) 11:23 質問
【12784】Re:VBAで文字数カウントしたいのですが(... ichinose 04/4/14(水) 19:09 発言
【12802】Re:VBAで文字数カウントしたいのですが(... ima 04/4/15(木) 13:42 質問
【12814】Re:VBAで文字数カウントしたいのですが(... ichinose 04/4/15(木) 21:32 回答
【12839】Re:VBAで文字数カウントしたいのですが(... ima 04/4/16(金) 17:29 質問
【12861】Re:VBAで文字数カウントしたいのですが(... ichinose 04/4/17(土) 11:50 発言
【12910】Re:VBAで文字数カウントしたいのですが(... ima 04/4/19(月) 16:23 お礼
【12840】Re:VBAで文字数カウントしたいのですが(... ima 04/4/16(金) 17:33 発言

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