Excel VBA 質問スレ Part66

**1000** · 2020/05/10(日) 13:43:45.00

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

※前スレ
Excel VBA 質問スレ Part65
https://mevius.5ch.net/test/read.cgi/tech/1584430040/

※デフォルト設定

**デフォルトの名無しさん** · 2020/05/10(日) 14:01:00.89

馬鹿はお断りです

**デフォルトの名無しさん** · 2020/05/10(日) 14:06:35.91

>>2
ここには馬鹿しか来ませんよ
貴方と私を含めて

**デフォルトの名無しさん** · 2020/05/10(日) 14:40:29.46

相談させてください。

あるデータ群に対して、データの大小が分かりやすいように
「条件付き書式」→「カラースケール」でセルの色付けをしています。
セルに色付けた後に、セル中の数字が邪魔で、数字を見えなくしたいと考えています。

最初考えたのは、各セルに対してセル色と同色のフォント設定をすればよいと思いました。
が、どうも条件付き書式でつけられたセルの色は、セルの色ではないらしく
.Interior.Color→色なし（16777215）、とのことで詰まってしまいました。

カラースケールで色付けた後に、文字が見えなる方法について存知の方、
アイディア思いつく方いましたらご教授お願いいたします。

**デフォルトの名無しさん** · 2020/05/10(日) 15:15:18.60

表示形式を ;;; にする

**デフォルトの名無しさん** · 2020/05/10(日) 15:54:19.09

最初からデータは別の位置に書いて色付けしたいセルは空白のままにしときゃいいんじゃね

**デフォルトの名無しさん** · 2020/05/10(日) 15:59:47.87

ID:KpBIrL5Ad
ID:74X5YOol0
ID:MibsCGor0

＞バカと違って質問の意味が分かってる人はこういう答えになるから何通り等の方法等とならないことを知っている。

＞出来る奴は瞬時に何通りかは思いつく。

＞もっとも、これ10年以上前の話だし、それで修正するとかいう話でもないけどな。

＞瞬時に5通り思いついたとして、5年後に知らない技術を獲得した時に、あの時これ使えばもっと良くなったなあと思うとか。

**デフォルトの名無しさん** · 2020/05/10(日) 18:27:55.19

>>5
ありがとうございます。
思った通りの表示になってくれました。
勉強になりました。

>>6
返信ありがとうございました。
>>4でも書いた通りカラースケールでの色付けは、
セルに色をつけている訳ではないようなのです。
（カラースケールで色付けしたセルをコピー→書式のみ貼り付け、などで試すと分かるかと思います）

**デフォルトの名無しさん** · 2020/05/10(日) 18:58:46.91

>>8
セルに色を付けた場合、条件付き書式の条件が成り立った場合に指定した書式で上書きされる

**デフォルトの名無しさん** · 2020/05/10(日) 22:53:46.38

>>7
日本語勉強しろなwww
人の言ってることも理解出来ない、質問の意味も分からないじゃ話にならんよw

**デフォルトの名無しさん** · 2020/05/10(日) 23:36:04.86

>>1
ﾜｯﾁｮｲ外すなよ…

**デフォルトの名無しさん** · 2020/05/11(月) 00:07:01.29

>>4
元々、そのデータ全部の文字を見えなくしたいなら条件付き書式で文字も背景色と一緒にすれば可能だけどお勧めはしないね。

**デフォルトの名無しさん** · 2020/05/11(月) 00:39:33.76

>>10

そうだな、日本語勉強して自分で書き込んだ↓の意味を整理して答えてくれww

ID:KpBIrL5Ad
ID:74X5YOol0
ID:MibsCGor0
ID:EYEPvAyt

＞バカと違って質問の意味が分かってる人はこういう答えになるから何通り等の方法等とならないことを知っている。

＞出来る奴は瞬時に何通りかは思いつく。

＞もっとも、これ10年以上前の話だし、それで修正するとかいう話でもないけどな。

＞瞬時に5通り思いついたとして、5年後に知らない技術を獲得した時に、あの時これ使えばもっと良くなったなあと思うとか。

**デフォルトの名無しさん** · 2020/05/11(月) 07:43:54.86

>>13
まだ分かって無かったの?
5通り思いつくなんて言って無いんだがw

**デフォルトの名無しさん** · 2020/05/11(月) 09:32:52.11

>>14

じゃあ具体的に何通り思い付くんだよw
ww
で、それが最善じゃないのか？できる奴の癖にww
＞出来る奴は瞬時に何通りかは思いつく。
＞出来る奴は瞬時に何通りかは思いつく。
＞バカと違って質問の意味が分かってる人はこういう答えになるから何通り等の方法等とならないことを知っている。
＞バカと違って質問の意味が分かってる人はこういう答えになるから何通り等の方法等とならないことを知っている。

ID:KpBIrL5Ad
ID:74X5YOol0
ID:MibsCGor0
ID:EYEPvAyt

＞バカと違って質問の意味が分かってる人はこういう答えになるから何通り等の方法等とならないことを知っている。

＞出来る奴は瞬時に何通りかは思いつく。

＞もっとも、これ10年以上前の話だし、それで修正するとかいう話でもないけどな。

＞瞬時に5通り思いついたとして、5年後に知らない技術を獲得した時に、あの時これ使えばもっと良くなったなあと思うとか。

**デフォルトの名無しさん** · 2020/05/11(月) 12:22:41.47

中坊の喧嘩だなｗ

**デフォルトの名無しさん** · 2020/05/11(月) 12:31:54.72

>>15
やっと理解出来たようだな。
勝手な思い込みで先走るのはいかんね。
理解出来たら、勝手な思い込みで迷惑かけてるんだから謝罪するのがまともだと思うがw

具体的って、そんなの内容によるわな。
最善って、だからその場合は1通りだが、条件等で最善は変わるから条件が詰められて無ければ1通りじゃ無いぞ。

ここみたいな質問の場合は条件が詰められて無いことも多いしな。
具体的な例なら今は無理だから帰りの時だな。

**デフォルトの名無しさん** · 2020/05/11(月) 13:33:17.39

>>17
>>14

具体的に何通りだよw
言うことブレブレすぎだww
お前は「言ってることがブレブレでごめんなさいもうしません」って謝れよww
それともあれか？「質問の意味がわかってないバカです」て認めるか？ww

＞出来る奴は瞬時に何通りかは思いつく。
＞バカと違って質問の意味が分かってる人はこういう答えになるから何通り等の方法等とならないことを知っている。

ID:KpBIrL5Ad
ID:74X5YOol0
ID:MibsCGor0
ID:EYEPvAyt

＞バカと違って質問の意味が分かってる人はこういう答えになるから何通り等の方法等とならないことを知っている。

＞出来る奴は瞬時に何通りかは思いつく。

＞もっとも、これ10年以上前の話だし、それで修正するとかいう話でもないけどな。

＞瞬時に5通り思いついたとして、5年後に知らない技術を獲得した時に、あの時これ使えばもっと良くなったなあと思うとか。

**デフォルトの名無しさん** · 2020/05/11(月) 13:36:33.50

まだやってたのか

**デフォルトの名無しさん** · 2020/05/11(月) 13:49:01.07

自称「できるやつ」の名言集w
でもこいつは回答にコードも出さない素人以下ww

ID:KpBIrL5Ad
ID:74X5YOol0
ID:MibsCGor0
ID:EYEPvAyt
ID:bK9/OgSI

(1) 最善の方法が唯一になると明言w
＞「バカと違って」質問の意味が分かってる人はこういう答えになるから何通り等の方法等とならないことを知っている。

(2) できる奴は何通りも思い付くw
＞出来る奴は瞬時に何通りかは思いつく。

(3) 唯一になるといった直ぐあとに手のひらクルーww
＞最善って、だからその場合は1通りだが、条件等で最善は変わるから条件が詰められて無ければ1通りじゃ無いぞ。

(4) 唯一のできるやつの最善の方法が改善できるとかww最善じゃねえww
＞瞬時に5通り思いついたとして、5年後に知らない技術を獲得した時に、あの時これ使えばもっと良くなったなあと思うとか。

(5) そしてプライド高そうなベテラン自慢ww
＞もっとも、これ10年以上前の話だし、それで修正するとかいう話でもないけどな。

**デフォルトの名無しさん** · 2020/05/11(月) 14:49:47.55

あぼ～ん機能って便利だな

**デフォルトの名無しさん** · 2020/05/11(月) 18:48:04.13

俺より馬鹿なやつっているんだな
みっともない喧嘩だねぇ

**デフォルトの名無しさん** · 2020/05/11(月) 19:14:46.82

粘着はたちが悪いからな

**デフォルトの名無しさん** · 2020/05/11(月) 19:17:32.38

このスレのおかげで自殺者が2人減ったと思えば我慢できるだろ？

いや、そうでもないか
何が楽しくて生きているのだろう

**デフォルトの名無しさん** · 2020/05/11(月) 21:28:55.62

>>18
全くブレて無いんだがw
最初から何通りかは思いつくと言ってるだろw
最初から具体的に何通りなどと想定していない発言だ。

内容によって3通りになる場合もあれば5通りになる場合もある。
それに最適と考える1通りの場合だってある。
←これがあるから「何通りかは思いつく」の発言で、「最適の1通りの場合もありうる」等と追加して全ての状況に対応する必要は無い。
こんなのは日本語扱っていれば当然の話だからだ。

そうしないと、やり取り自体が出来なくなる。
お前の「ブレブレ」という単語の意味はどの辞書に載っているどういう意味なのか、そしてそういう説明をしていないからその不備をもって日本語が出来ていない等と突っ込むことなどという事態になってしまう。
だから相手の言っている意味を推し量ってやり取りをする必要があるし、俺もお前も実際にそうしてる。

しかし、お前の「・瞬時に5個思い付く(ﾄﾞﾔｱ)」は、「瞬時に5通り思いついたとして」の例示に対して、常に5通り思いつくと解釈したということだ。
これは完全にお前の日本語の理解が未熟だということを表している。

**デフォルトの名無しさん** · 2020/05/11(月) 21:32:42.15

そういうわけで「ブレブレ」なら俺の何処が「ブレブレ」なのかを示す必要がある。

そして、お前はまだ日本語の理解不足でかけた迷惑を謝罪していないな。
理解不足でないと言うなら、お前の「・瞬時に5個思い付く(ﾄﾞﾔｱ)」は日本語としてどういう解釈の後に成り立っているかを示す必要がある。

**デフォルトの名無しさん** · 2020/05/11(月) 21:49:29.25

>>24
いがみ合う二人を作ってしまうようなスレならば、無い方がいいのかもしれない

**デフォルトの名無しさん** · 2020/05/11(月) 22:26:32.22

精度1ms程度、20ms間隔でイベントを発生させたいんですがVBAで使える良いタイマーは無いでしょうか
settimerでは精度も分解能も足りないようです。

**デフォルトの名無しさん** · 2020/05/11(月) 22:47:05.78

>>28
その間止まってる？何か処理動いてる？

**デフォルトの名無しさん** · 2020/05/11(月) 23:01:43.10

そもそも高精度タイマーつかわんと、標準のタイマーで1msは無理なんだが

**デフォルトの名無しさん** · 2020/05/12(火) 00:34:19.26

>>25
ブレてんじゃんww
できる奴なんだろ？
じゃないなら「私の"何通り"には１つでも含まれますごめんなさいもうしません」って謝れよww
あとコード付で答えたことないこともなw

＞出来る奴は瞬時に何通りかは思いつく。

＞バカと違って質問の意味が分かってる人はこういう答えになるから何通り等の方法等とならないことを知っている。

＞内容によって3通りになる場合もあれば5通りになる場合もある。

＞それに最適と考える1通りの場合だってある。

お前はVBAならintもint()も同一視するのかよww
素人めw
1個か3個か5個か、断言も出来ない臆病者めww

**デフォルトの名無しさん** · 2020/05/12(火) 00:41:52.39

>>25
言い訳がましいんだよなww

＞最初から具体的に何通りなどと想定していない発言だ。
→普通ツッコまれるから想定するんだよなあw

＞内容によって3通りになる場合もあれば5通りになる場合もある。
それに最適と考える1通りの場合だってある。
→最適は１つじゃないのかねww
　それとも要件がわからないから最適と言えませんぴえーんとか社会で言ってるのかww

＞←これがあるから「何通りかは思いつく」の発言で、「最適の1通りの場合もありうる」等と追加して全ての状況に対応する必要は無い。
→後だしで言い訳ww
それまでずっと「何通りか」を固持してるのになww

＞お前の「ブレブレ」という単語の意味はどの辞書に載っているどういう意味なのか、そしてそういう説明をしていないからその不備をもって日本語が出来ていない等と突っ込むことなどという事態になってしまう。
→頭固いねえw日本語の由来とかにこだわって嫌われるタイプだろwwww
　そんなんだからずっとVBAおじさんなんだよw

＞しかし、お前の「・瞬時に5個思い付く(ﾄﾞﾔｱ)」は、「瞬時に5通り思いついたとして」の例示に対して、常に5通り思いつくと解釈したということだ。
→じゃあ「何通りか思いつく」は具体的に何個なんだよww
　腹くくってきめろやww

**デフォルトの名無しさん** · 2020/05/12(火) 00:51:58.58

>>31
面白いよなww

仮に結論をそっちに寄せると、
今までの発言が全て、

「瞬時に思い付きます。でもそれは1通りでもあるし複数通りでもあるし、思い付かないかもしれません」

とかいう、「私は10年以上のベテラン(笑)だけど雑魚です」って告白するような発言になるんだぜww
こんなちょろいやつ初めてだわw
サンプルコードも出せないわけですわww

**デフォルトの名無しさん** · 2020/05/12(火) 07:39:51.79

>>31
だからどこがブレてんだよwww
さっさと指摘しろな。

最初から場合によると言ってるがw
お前はIf文やSelect文を使えないのか?

**デフォルトの名無しさん** · 2020/05/12(火) 07:42:40.74

>>32
www
お前の考えだと頭が固くなるという話をしたのにw

そんな頭の固い話じゃ会話にならねえと言ってる。

あいかわらず日本語が未熟だなw

**デフォルトの名無しさん** · 2020/05/12(火) 07:45:00.31

>>33
全てに対応したやり取りなんて出来ないし、誰もやってないと言ってるんだ。
お前も出来ていない。

まともな奴ならそういう前提で会話してる。

**デフォルトの名無しさん** · 2020/05/12(火) 07:47:08.17

>>33
ところで、「・瞬時に5個思い付く(ﾄﾞﾔｱ)」が間違ってたことについては無視か?
触れて欲しくない?

そういうわけにはいかんぞ。
散々迷惑かけてるんだからな。

**デフォルトの名無しさん** · 2020/05/12(火) 07:50:53.21

>>33
これだけはその通りで草

**デフォルトの名無しさん** · 2020/05/12(火) 08:13:35.16

>>34
VBA10年おじさん大発狂の4連投してて草
高血圧だな、体は大事にしろよw

＞だからどこがブレてんだよwww
自分が日本語分かってねえじゃねえかw
「場合による」は後だしだぞww何通りかは思い付くの時点で名言してるか？ww

＞お前の考えだと頭が固くなるという話をしたのにw
お前のは表現のゆらぎじゃなくて、明確にずれてんだよw
ほら、1個か3個か？臆病者めwww

＞全てに対応したやり取りなんて出来ないし、誰もやってないと言ってるんだ。
10年おじさんなら最適解出せるだろ？w
「瞬時に思い付きます。でもそれは1通りでもあるし複数通りでもあるし、思い付かないかもしれません。私は10年以上のベテラン(笑)だけど雑魚ですすいません」って告白してもいいぞw

＞ところで、「・瞬時に5個思い付く(ﾄﾞﾔｱ)」が間違ってたことについては無視か?
最初から何個か名言しない臆病者のせいで仮に特定してあげてるだけだよww
お前のせいじゃんwww
5個のところ好きな数字にしろよww

数字特定したら次はほんとに「瞬時に思い付くか」テストしたげてもいいなw
てか>>28にも答えてないしなw
10年以上やってるのにww

**デフォルトの名無しさん** · 2020/05/12(火) 12:29:54.81

>>39
間違いを認めるか、間違って無い根拠を示せ。
逃げようとしてるのミエミエだぞw

↑もうこれを示さない限り先には進まん。

**デフォルトの名無しさん** · 2020/05/12(火) 13:47:56.69

>>40
言い返せないことを認めた負け宣言あざっすww
>>28もわかんないんだもんなw
よっわ、こりゃVBA10年おじさんだわww

**デフォルトの名無しさん** · 2020/05/12(火) 13:53:42.12

これに懲りたらてきとーなこと言ったり「10年以上前だけど(ﾄﾞﾔｱ)」とか言うの控えとけよww
こうやって恥かくからなww
あ、でもまた数年後思い出して修正するんでしたっけww
こいつのプロダクトとかアウトプットは信用できないなww

**デフォルトの名無しさん** · 2020/05/12(火) 16:56:54.34

その熱量を分けてくれ

**デフォルトの名無しさん** · 2020/05/12(火) 17:47:19.57

ここで教わった「空白になるまで」とか
「空白じゃなければ」
って言うのが自分の職場で凄い役に立って多用してますわ
ケースによるんだろうけどこれが当たり前なのかあまり使わない方がいいのはわからない
Sub　空白まで処理　()
　Dim gy As Long
　Do while cells(gy, 5) <> ""
　何かの処理
　gy = gy + 1
　loop
End Sub

Sub 作成者を入力させる　()
　Dim Ib As String
　Ib = Inputbox ("フルネームで入力して下さい","作成者","")
　If Ib <>"" Then
　Range("A4").value = Ib
　Else
　Msgbox ("後で入力して下さい",vbokonly,"作成者欄")
　End If
End Sub

ここら辺とか職場で多用してたら俺です。
あと色々覚えて作ってて思うのが絶望的に変数の名付け方にセンスが無い…
データ型は深く覚えなくてもいいってサイトで見たけどVbMsgBoxResultとか前スレで教えたくた人のおかげで役立ってるし多分覚えた方がいいデータ型も結構あるんだろうなぁと

　

**デフォルトの名無しさん** · 2020/05/12(火) 18:29:41.52

if文ってスゲー便利！って言ってるのと変わらんぞ
条件ループなんてプログラミング言語として最低限の必須機能

**デフォルトの名無しさん** · 2020/05/12(火) 18:56:23.44

>>45
変わらんぞというかまさにそこに感動してるレベルの入門者ですよ
ただ毎日コードを何かしら書かないとすぐ忘れ書き方のルールを忘れちゃいますわ

ある程度多用する基本的なコードは自分でテンプレ作ってそこから引用してるから
必要なコードは必要な時だけそこから引っ張れば良いという人ももいたけどやっぱこのマクロ作ろうと思ってカタカタと悩まずに打って作れるようになりたいですね

**デフォルトの名無しさん** · 2020/05/12(火) 19:58:51.70

>>44
繰り返しの内側やIF文の内側ではインデント(字下げ)すると読みやすくなる
あと個人的には変数宣言(Dim)の下に空行入れてる

**デフォルトの名無しさん** · 2020/05/12(火) 20:04:14.59

システムにお願いしても駄目ならプロセスのプライオリティを
思い切り上げて他のプロセスをできるだけ起動させないとか。

**デフォルトの名無しさん** · 2020/05/12(火) 20:42:29.83

>>44
書けないとか忘れるなんて言ってるけどただのネタだろ？

普通にコピペしたら Msgbox とはならない
自動的に MsgBox に修正されるからな

**デフォルトの名無しさん** · 2020/05/12(火) 20:49:40.88

>>49
いや、ここでのレスは手打ちだよ
そのぐらい練習癖つけないと忘れちゃう
とにかく体に無意識に覚えさせたい

**デフォルトの名無しさん** · 2020/05/12(火) 20:54:41.98

は？手打ちならVBEに入力しなきゃ意味ないだろう
それとも常時Excelに触ることができない環境でイメージトレーニングでもしているの？
それならキーボードじゃなくて手書きをお勧めするよ

**デフォルトの名無しさん** · 2020/05/12(火) 20:57:51.11

自治厨うざっ

**デフォルトの名無しさん** · 2020/05/12(火) 21:00:50.06

いやVBE触りながらスマホで2ちゃんもやってるんよ
家帰ってダラダラしたいのに勉強しなきゃという強迫観念すらあるんですわ
そのぐらい使いこなせるようになりたひ

**デフォルトの名無しさん** · 2020/05/12(火) 21:01:39.78

>>41
逃げるのかねwww
間違いを認めるか、間違って無い根拠を示せ。

**デフォルトの名無しさん** · 2020/05/12(火) 21:03:00.03

へー、スマホで打ち込んだのか
スゲーな
尊敬するわ

**デフォルトの名無しさん** · 2020/05/12(火) 23:00:42.24

プログラミングはif文に始まりif文に終わる

**デフォルトの名無しさん** · 2020/05/12(火) 23:09:10.91

endifで終わるとか言ってみる

**デフォルトの名無しさん** · 2020/05/12(火) 23:41:32.90

スマホは本当に入力がむずかしい
iphoneだけど、@ とか？とか；とか、
半角と全角を見分ける方法ないですかね

**デフォルトの名無しさん** · 2020/05/12(火) 23:46:48.30

>>58
馬鹿は消えろ
死ね

**デフォルトの名無しさん** · 2020/05/13(水) 00:01:32.19

>>58
表示フォント変えられないのか？

**デフォルトの名無しさん** · 2020/05/13(水) 08:48:22.54

>>41
なんだ、敗走か?
言い返せなくなると敗走?

「・瞬時に5個思い付く(ﾄﾞﾔｱ)」が間違ってたことに反論出来なくて敗走?