Excel VBA 質問スレ Part62

[1 2019/06/24(月) 00:21:37.48]

!extend:checked:vvvvv:1000:512

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part61
http://mevius.5ch.net/test/read.cgi/tech/1556203263/

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured

[984 デフォルトの名無しさん (ﾜｯﾁｮｲ 7f59-yzII) 2019/09/15(日) 10:19:11.53 ID:5uhhTsGd0]

PowerQueryは謎な挙動が多すぎる

[985 デフォルトの名無しさん (ｽﾌﾟｯｯ Sd1f-VNsZ) 2019/09/15(日) 15:08:13.09 ID:M+l28bS0d]

VBAよりSQLの方が簡単だからSQL覚えておくと良いと思う。
SQLはどう使うかで難しくなるけど。

[986 デフォルトの名無しさん (ｽﾌﾟｯｯ Sd1f-VNsZ) 2019/09/15(日) 15:09:44.24 ID:M+l28bS0d]

>>983
M言語は全く分からん。
やってみても良いんじゃない?
様子見もありだけど。

[987 デフォルトの名無しさん (ﾜｯﾁｮｲ ff8c-gAGy) 2019/09/15(日) 15:30:29.07 ID:vKevM/ZS0]

ExcelのM言語ってMUIMPSのことなの？　それとも全くの別物？

[988 デフォルトの名無しさん (ﾜｯﾁｮｲ 7f59-yzII) 2019/09/15(日) 16:59:17.31 ID:5uhhTsGd0]

M言語の仕様
英語だけど。

https://docs.microsoft.com/en-us/powerquery-m/power-query-m-language-specification

[989 デフォルトの名無しさん (ｻｻｸｯﾃﾛ Sp73-KBBU) 2019/09/15(日) 17:58:13.89 ID:k9jPpUfmp]

どうしても今すぐ仕事で使いたく、無知なまま質問することをお許し下さい。
ワンクリックでセルに色が付き(塗りつぶし)、色を付けたところを再度クリック(こちらはダブルクリックが理想)すると元に戻る(白くなる)ようにしたいです。
知恵袋で近い回答を見つけたのですが範囲の指定方法が分からず。ただ、こちらは白に戻すのをワンクリックで行うため理想とは若干異なります。一応載せておきます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub '※１
Select Case Target.Interior.ColorIndex
Case Is = xlNone
Target.Interior.ColorIndex = 3 '※２
Case Else
Target.Interior.ColorIndex = xlNone
End Select
End Sub
※１：数字の 1 はA列を意味します。C列なら 3 です。
※２：数字の 3 は赤で、4=緑、5=青、6=黄、7=ピンク、8=水色、です。

難しくなってしまうようでしたら元に戻す動作もワンクリックで大丈夫です。ご教示頂けると嬉しいです。

[990 デフォルトの名無しさん (ﾜｯﾁｮｲ 7fda-Nl8y) 2019/09/15(日) 18:10:30.21 ID:ttkdv6CO0]

>>972
高速化について調べていったら、最終的に行き着くのがSQLって感じ。
あとは、会社のPCにAccessが入ってないとか。

[991 デフォルトの名無しさん (ﾜｯﾁｮｲ fff7-uS//) 2019/09/15(日) 18:16:17.99 ID:gmNpe+SH0]

>>989
SelectionChangeは選択範囲を変更した場合のイベントだね
BeforeDoubleClickに変えればいいんじゃない

[992 デフォルトの名無しさん (ｽﾌﾟｯｯ Sd9f-htbz) 2019/09/15(日) 18:22:27.35 ID:SlyZta/Pd]

アクセスをDBと思ってる人は少数だろう

[993 デフォルトの名無しさん (ｻｻｸｯﾃﾛ Sp73-KBBU) 2019/09/15(日) 18:27:50.10 ID:k9jPpUfmp]

>>991
ありがとうございます。beforedoubleclickに変更すると範囲指定できるようになるのでしょうか？このコードだと 1 と入力されているところが範囲指定の部分だと理解しているのですが、例えば("A1:C5")と入れてもエラーになってしまって、、

[994 デフォルトの名無しさん (ﾜｯﾁｮｲ fff7-+dKN) 2019/09/15(日) 18:34:44.00 ID:gmNpe+SH0]

>>993
ならこれだ。
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Call changeCellColor(0, Target) '0は空白色を指します。

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Call changeCellColor(3, Target) 'ColorIndexに対応。3=赤、4=緑、5=青, 6=黄など。

End Sub

Private Sub changeCellColor(IndexCode As Long, Target As Excel.Range)

Dim LimitedRange As Excel.Range
Set LimitedRange = Target.Worksheet.Range("A1:E10") 'A1:E10のセル範囲み動作するが、変更を。
If Not Excel.Application.Intersect(Target, LimitedRange) Is Nothing Then
Target.Interior.ColorIndex = IndexCode
End If

End Sub

[995 デフォルトの名無しさん (ﾜｯﾁｮｲ fff7-+dKN) 2019/09/15(日) 18:37:38.41 ID:gmNpe+SH0]

>>993
ちなみに元のコードは、選択セルが1行目でなければ変更、という意味になるんで座標入れてもNG.
座標で効果範囲を制限したい、ってちゃんと言っといた方がよかったね。

[996 デフォルトの名無しさん (ﾜｯﾁｮｲ 9f01-KBBU) 2019/09/15(日) 18:42:08.05 ID:VJ7AKcnf0]

>>994
すごい…作ってくださりありがとうございます！！
今手元にパソコンがないので明後日職場で試してみます。お時間を割いて頂きありがとうございました！

[997 デフォルトの名無しさん (ﾜｯﾁｮｲ 9f01-KBBU) 2019/09/15(日) 18:45:30.40 ID:VJ7AKcnf0]

>>995
なるほど…そういう意味だったのですね！ご親切にありがとうございます！

[998 デフォルトの名無しさん (ﾜｯﾁｮｲ fff7-+dKN) 2019/09/15(日) 18:45:54.98 ID:gmNpe+SH0]

間違えた。元のコードは選択セルが1「列」目でなければ変更。
あとこれ、ドラッグ選択すると制限外セルの色まで変わっちゃうな。問題あれば
Target.Interior.ColorIndex = IndexCode　を
Excel.Application.Intersect(Target, LimitedRange).Interior.ColorIndex = IndexCode　に変えといて

[999 デフォルトの名無しさん (ﾜｯﾁｮｲ 9f01-KBBU) 2019/09/15(日) 18:49:06.25 ID:VJ7AKcnf0]

>>998
了解しました！どうもありがとうございます♪

[1000 デフォルトの名無しさん (ﾜｯﾁｮｲ 9f8e-J3NS) 2019/09/15(日) 20:32:37.28 ID:60BoiHy40]

意味もわからずネットで見つけたコードを使う馬鹿の作ったVBA