Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10537 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【21188】たしざんについて nori 05/1/14(金) 12:14 質問[未読]
【21191】Re:たしざんについて ichinose 05/1/14(金) 12:23 発言[未読]
【21193】Re:たしざんについて nori 05/1/14(金) 12:40 質問[未読]
【21196】Re:たしざんについて IROC 05/1/14(金) 13:06 回答[未読]
【21197】Re:たしざんについて ichinose 05/1/14(金) 13:13 発言[未読]
【21200】Re:たしざんについて Jaka 05/1/14(金) 15:37 回答[未読]
【21235】Re:たしざんについて nori 05/1/17(月) 10:14 お礼[未読]
【21188】たしざんについて
質問  nori E-MAIL  - 05/1/14(金) 12:14 -
引用なし
パスワード
   教えてください。
下のような採点表があります。
各行が必ず1つの点数（1〜4点）をつけます。
採点後の合計金額を出したいのですが。


　採点前
　　　 列　　A　 B　 C　 D
　行　　1　　4　 3　 2　 1
　　　　2　　4　 3　 2　 1
　　　　3　　4　 3　 2　 1

　　　合計

　採点後
　　　 列　　A　 B　 C　 D
　行　　1　 4.　 3　 2　 1
　　　　2　　4　 3　 2.　 1
　　　　3　　4　 3.　 2　 1

　　　合計　9
【21191】Re:たしざんについて
発言  ichinose  - 05/1/14(金) 12:23 -
引用なし
パスワード
   ▼nori さん：
こんにちは。

>教えてください。
>下のような採点表があります。
>各行が必ず1つの点数（1〜4点）をつけます。
>採点後の合計金額を出したいのですが。

>
>
>　採点前
>　　　 列　　A　 B　 C　 D
>　行　　1　　4　 3　 2　 1
>　　　　2　　4　 3　 2　 1
>　　　　3　　4　 3　 2　 1
>
>　　　合計
>
>　採点後
>　　　 列　　A　 B　 C　 D
>　行　　1　 4.　 3　 2　 1
>　　　　2　　4　 3　 2.　 1
>　　　　3　　4　 3.　 2　 1
>
>　　　合計　9
　　　　　　↑どうして9なのかわかりませんでした。
　　　どこの合計をとりたいのですか？
　　　ワークシート関数にSumがありますが、これを使用するのでは
　　　何か問題がありますか？
【21193】Re:たしざんについて
質問  nori E-MAIL  - 05/1/14(金) 12:40 -
引用なし
パスワード
   ▼ichinose さん：
>▼nori さん：
>こんにちは。
>
>>教えてください。
>>下のような採点表があります。
>>各行が必ず1つの点数（1〜4点）をつけます。
>>採点後の合計金額を出したいのですが。
>
>>
>>
>>　採点前
>>　　　 列　　A　 B　 C　 D
>>　行　　1　　4　 3　 2　 1
>>　　　　2　　4　 3　 2　 1
>>　　　　3　　4　 3　 2　 1
>>
>>　　　合計
>>
>>　採点後
>>　　　 列　　A　 B　 C　 D
>>　行　　1　 4.　 3　 2　 1
>>　　　　2　　4　 3　 2.　 1
>>　　　　3　　4　 3.　 2　 1
>>
>>　　　合計　9
>　　　　　　↑どうして9なのかわかりませんでした。
>　　　どこの合計をとりたいのですか？
>　　　ワークシート関数にSumがありますが、これを使用するのでは
>　　　何か問題がありますか？

すいません。
数字の４に○印をつけた文字をつかった
のですが４．と表示されているみたいです。
私の思いは
以前皆さんに教わった、Ｗクリックで４が4.になるように
して○印のついた部分の計算をさせようと考えたのですが、
4.は文字になるのでSUM関数は無理なようですね。
何か良い方法は？
【21196】Re:たしざんについて
回答  IROC  - 05/1/14(金) 13:06 -
引用なし
パスワード
   クリックで、セルに色が付くようにして、
色の付いたセルだけ計算しては如何でしょうか？
【21197】Re:たしざんについて
発言  ichinose  - 05/1/14(金) 13:13 -
引用なし
パスワード
   IROC さん、こんにちは。
>クリックで、セルに色が付くようにして、
>色の付いたセルだけ計算しては如何でしょうか？
私も↑これに賛成ですが・・・・。
シートのダブルクリックのイベントで

'=============================================
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　 With Target
　　　.Value = Evaluate("=char(" & .Address & "+11552)")
　　　End With
　 Cancel = True
End Sub

こんなことしているのでしょうか？

取りあえず、例題だけ・・・。
'========================================================
Sub test()
　 Dim asum As Long
　 asum = 0
　 For Each rng In Range("a1:d3")
　　 With rng
　　　 wk = Evaluate("code(" & .Address & ")")
　　　 If wk >= 11553 And wk <= 11556 Then
　　　　　asum = asum + wk - 11552
　　　　　End If
　　　 End With
　　 Next
　 MsgBox asum
End Sub

上記は、a1:d3の範囲で○で囲んだ数字の合計を計算しています。

出かけてしまうので、後は、よろしくお願いします。
【21200】Re:たしざんについて
回答  Jaka  - 05/1/14(金) 15:37 -
引用なし
パスワード
   こんにちは。

〇文字使っちゃダメなんだけど....。
文字化けした人ごめんなさい。
無理やりSUM関数で作ってみました。

=SUM(COUNTIF(D2:D11,"1.")*1,COUNTIF(D2:D11,"2.")*2,COUNTIF(D2:D11,"3.")*3,COUNTIF(D2:D11,"4.")*4)
【21235】Re:たしざんについて
お礼  nori E-MAIL  - 05/1/17(月) 10:14 -
引用なし
パスワード
   ▼Jaka さん：
>こんにちは。
>
>〇文字使っちゃダメなんだけど....。
>文字化けした人ごめんなさい。
>無理やりSUM関数で作ってみました。
>
>=SUM(COUNTIF(D2:D11,"1.")*1,COUNTIF(D2:D11,"2.")*2,COUNTIF(D2:D11,"3.")*3,COUNTIF(D2:D11,"4.")*4)

Jakaさん。
おはようございます。
結果OKです。
いろんな考えがあるものだと
感心しました。
また、教えてください。
返事が遅れて申し訳ありませんでした。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10537 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free