Excel VBA 質問スレ Part68

レス数が1000を超えています。これ以上書き込みはできません。
1デフォルトの名無しさん (ﾜｯﾁｮｲ dbda-8BP0)
垢版 |
2020/08/30(日) 11:55:27.33ID:Oy/VxFsh0
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付ける

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

※前スレ
Excel VBA 質問スレ Part67
https://mevius.5ch.net/test/read.cgi/tech/1593104489/
VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured
921デフォルトの名無しさん (ｱｳｱｳｸｰ MM1b-iTOR)
垢版 |
2020/12/09(水) 02:14:11.71ID:WuZTb4kZM
無くならなくないよ！目を覚ませ！！！
2020/12/09(水) 02:18:54.70ID:aFDIkFBR0
>>920
ソース出せよ、あとどこからいつなくなるのかによる
2020/12/09(水) 02:53:27.53ID:jODQKuwy0
https://www.bulldog.co.jp/common/upload/product/20170124163441_1485243281733.jpg
2020/12/09(水) 08:12:10.11ID:DDb5ExOLM
西日本では中濃は殆ど見かけない
2020/12/09(水) 09:50:23.00ID:jODQKuwy0
https://www.otafuku.co.jp/image/product/325.jpg
2020/12/09(水) 09:53:21.34ID:QFKNxFhfM
目玉焼きには中濃ソース派
2020/12/09(水) 13:03:56.69ID:TZVf/s/B0
>>916
典型的な無知無能の知ったかオタク馬鹿
2020/12/09(水) 17:45:40.43ID:HptS3Gf+H
クラスを変数の格納で試しに使ってみたけど、値渡しのときに複数のsheetやRangeを一つのobjectとして送れるのが便利だった
それがいいのか悪いのかもすら分からんけど
あと宣言を減らせるのもいいな
2020/12/09(水) 19:30:15.22ID:Q1uyX9N5M
>>928
それって単なるTypeで定義するのとなんか違うの？
2020/12/09(水) 21:52:52.42ID:bJuEauhPM
>>912
PowerShellはダメなのか？
Windowsに最初から入ってるし継承使えるけど
931デフォルトの名無しさん (ﾜｯﾁｮｲ dfe6-sQ0+)
垢版 |
2020/12/10(木) 01:02:36.47ID:8uzpk1TB0
互換性というより下手な拡張のせいだと思うが
a&b&c と書けないのがムカつく
2020/12/10(木) 01:11:19.37ID:32G50CXp0
すでに引いてある枠線をすべてオートシェイプに置き換えることはできますか？
一括で変換できれば楽なんですが

そのようなことをしたい理由はExcelは先の太さのバリエーションがないのでオートシェイプで任意の太さの線にしたいからです
933デフォルトの名無しさん (ﾜｯﾁｮｲ dfe6-sQ0+)
垢版 |
2020/12/10(木) 01:16:47.80ID:8uzpk1TB0
俺はしたいと思わないな
2020/12/10(木) 01:50:46.90ID:gCkd//in0
いつものあいつだろ
2020/12/10(木) 02:22:09.00ID:MSCfGM6q0
>>932
君ならできるだろ
2020/12/10(木) 03:30:03.52ID:YXjbRyJb0
ヤればできる！
避妊は忘れずに！
2020/12/10(木) 08:21:16.51ID:VUmLGrN10
何かもうここ機能していないですね
荒らししかいない感じだ
938デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8f-sQ0+)
垢版 |
2020/12/10(木) 10:17:08.09ID:2F+mzzJFM
なら、お前が質問しろよ！
939デフォルトの名無しさん (ﾗｸｯﾍﾟﾍﾟ MM8f-sQ0+)
垢版 |
2020/12/10(木) 10:17:31.42ID:2F+mzzJFM
なら、お前が質問しろよ！
2020/12/10(木) 10:44:14.39ID:nD6J7euLd
>>932
できる
2020/12/10(木) 17:55:13.02ID:mXX17fjdH
>>929
読み取り専用にしたいとか変数格納時にチェックしたいとかかなあ
typeもろくに使ってないから難しい質問
2020/12/10(木) 18:15:54.30ID:cag4gSad0
>>941
まあそう言う要件あるならそりゃクラスにするしか無いわな
2020/12/10(木) 20:13:35.89ID:tORGV15wa
>>932
一回しか行わないわけだし手でやるのが普通ですよ
それにセルのサイズ変えたらズレるし
全部のセルの罫線みるのにどんだけ掛かるかw
944デフォルトの名無しさん (ﾜｯﾁｮｲ dfe6-sQ0+)
垢版 |
2020/12/10(木) 20:47:29.63ID:8uzpk1TB0
どんだけ掛かるんだ？
2020/12/10(木) 21:11:52.00ID:CqzKSDKw0
Ｃ列になし、0、文字列があって、
条件分岐で
C列が文字列であれば転記する文字列をそれに変更。転機列のD列には転記しない
Ｃ列がなしであれば同じ行のＤ列を見に行ってブランクであれば文字列を転記、文字が既にあれば転記しない
Ｃ列が0であれば次の文字列まで移動

上記のようなのは関数だと不可能だと思うので、マクロでどのように作ればいいでしょうか
2020/12/10(木) 21:12:58.79ID:DnhQvLL+0
その通り作ればいいですよ
2020/12/10(木) 21:21:26.02ID:gchHSEuY0
>>945
>Ｃ列がなしであれば同じ行のＤ列を見に行ってブランクであれば文字列を転記、文字が既にあれば転記しない
この意味が分からんのだけど誰か翻訳頼む。
2020/12/10(木) 21:43:23.69ID:kT+M3PHp0
ある程度自分で考えてそれでもわからない部分を聞くとかならともかく、丸投げ質問はスルーでおk
2020/12/10(木) 21:46:13.21ID:62ZBW9sZ0
>>947
自分はむしろ
「C列が文字列であれば転記する文字列をそれに変更」
の方が分からん
2020/12/10(木) 21:49:42.57ID:v6PrCrQZ0
この手のタイプは自分の見てるものが他人には見えてないってことがいつも抜け落ちてる
2020/12/10(木) 21:55:21.01ID:TqxHVWGz0
仮に転記文字列がEなら

Cが0(数値)
　次のCまで移動
Cがなし
　D列がブランクならEからDに転記
Cが文字列
　EをCの文字列に変更、Dはそのまま
じゃないの？

でもなしとブランクが分かれてるのが謎
2020/12/10(木) 22:36:37.55ID:CqzKSDKw0
すいませんちょっと言葉が足りませんでした。
なしは単なる文字列のなしです
IFでなしという文字列があれば、現在設定している文字列をD列に書き出していく処理になります
Ｃ列　　　Ｄ列
りんご　
なし
0
0
みかん
なし
↓
Ｃ D
りんご　　(ブランク)
なし りんご
0 (ブランク)
0 (ブランク)
みかん (ブランク)
なし みかん


上記のような処理を作りたいです。
953デフォルトの名無しさん (ﾜｯﾁｮｲ 7f63-JIxf)
垢版 |
2020/12/10(木) 22:48:25.04ID:56YuvF2X0
どうぞ作ってください。
2020/12/10(木) 22:56:25.81ID:CqzKSDKw0
条件分岐の所だけでもこういう感じで作ればいいというような回答を頂ければ助かります
かなり丸投げな質問になってすいません
2020/12/10(木) 22:57:22.97ID:YXjbRyJb0
四角投げくらいかな？
2020/12/10(木) 22:59:02.40ID:5Pf17kEC0
ちょっとみただけだけど関数でも頑張れば
作れそうに見えるがどうだろうか
2020/12/10(木) 23:05:18.21ID:DnhQvLL+0
回答しても助けになりそうも無い
2020/12/10(木) 23:06:01.55ID:5Pf17kEC0
別に頑張らなくても関数で出来た
頭硬すぎだろう
2020/12/10(木) 23:24:54.94ID:A+NuqwaS0
なしって入ったときに出てくるのがなしの1個上のセルの内容と決まってるなら関数でも書けるね
2020/12/10(木) 23:35:14.23ID:gchHSEuY0
このなぞなぞを思い出した
http://nazo2.myaasensei.com/?eid=90

なしなら「梨」と表記するか
別の果物、ぶどうとかすればいいのに
紛らわしい
2020/12/10(木) 23:53:09.24ID:v6PrCrQZ0
>>952
その条件通りにそのまま書き起こせば実現できることじゃないのか、複雑な処理がいるわけでもなし
2020/12/11(金) 00:21:36.40ID:bQCq39tb0
関数で作れるならヒントでも頂けませんでしょうか
すいません。
2020/12/11(金) 00:36:40.44ID:2rJlNOe/0
=if(C1=″なし″,offset(C1,0,-1),″″)
こんな感じか
2020/12/11(金) 00:37:35.18ID:bQCq39tb0
スレッド眺めましたがまともに答えてる人ここはあまりいないんですね
失礼しました
2020/12/11(金) 00:41:08.86ID:Lka/LNP10
まともな質問をしましょう
2020/12/11(金) 00:44:14.37ID:6Y+QuIqT0
流と関係ないけどここの人ってVBAはもちろんだけど関数も糞詳しいんだよなあ
VBAが関数の上位互換みたいなとこあるから当然か
SQRTとかここで教わったりセルの書式設定の代わりにVBAとかめちゃくちゃ助けてもらったわ
2020/12/11(金) 00:46:54.57ID:RI9UvvOD0
上位互換じゃなくて全く同等。
lambda関数導入でチューリング完全になったからね。
2020/12/11(金) 01:01:39.09ID:bQCq39tb0
>>963
それだと、なしの横にりんごやみかんの文字列が表示されませんでした
2020/12/11(金) 01:47:52.19ID:sk80MZxp0
シート関数でもVBAでもどっちでもいいけど組むにあたってどの部分で詰まってるわけ？
2020/12/11(金) 02:06:21.43ID:vUB51gLL0
>>968
馬鹿は死ねば？
2020/12/11(金) 02:21:17.12ID:bQCq39tb0
>>969
質問の仕方が下手ですいません
Ａ列　Ｂ列
文字列Ａ　空欄
空欄1　文字列Ａ
空欄1　文字列Ａ
文字列Ｂ　空欄
空欄2　文字列Ｂ
空欄2　文字列Ｂ
空欄2　文字列Ｂ
・
・
・
のようなシートがあって、IFでＡ列が空欄であれば文字列Ａ、文字列Ｂのような転記を
機械的に行いたいのですが、関数を使ってIFの真偽判定で
文字列Ａがヒットすれば、Ｂ列への転記内容を文字列Ａ、文字列Ｂがヒットすれば文字列Ｂというような、
VBAのValueのような変数に文字列を格納しながら転記してく事が関数で可能か知りたかった内容です。
Ａ列の文字列Ａを空欄1にコピーして、文字列Ｂを空欄2にコピーするという操作もあればそっちも教えて頂きたい
(VLOOKUP等で文字列を参照する事が出来そうなので)
2020/12/11(金) 02:26:17.07ID:egj/vl+4M
いつものあいつっぽい
2020/12/11(金) 02:32:32.38ID:t8ktWZN00
>>945
D列がブランクかどうかを調べる必要があるので、転記列をE列、さらに作業列をF列として

C列はC2からデータ
D列はD2からデータ
E列はE2から　=IF(C:C="なし",IF(D:D="",F:F,D:D),"")
F列はF2から　=IF(AND(C:C<>"なし",C:C<>0),C:C,IF(INDEX(F:F,ROW()-1)="","",INDEX(F:F,ROW()-1)))

なし以外の文字列が最初にC列に出てくるまでは、とりあえずE列は空欄になる。
2020/12/11(金) 02:47:05.93ID:t8ktWZN00
>>971

それなら、C列を作業列として
A列にA2からデータ
B列はB2から　=IF(A:A="",C2,"")
C列にC2から　=IF(A:A="",C1,A2)

でB,C列をドラッグで、では？
2020/12/11(金) 07:09:43.08ID:pv/aap0P0
創作系は怠け者に厳しいから
こうやったけどうまくいかないってのは直してくれるが１から作ってってのはなあ
2020/12/11(金) 08:01:05.41ID:xHfuP7vB0
>>952
0以外の数値も文字列に含めて、空白を停止フラグにした
これであってる？

Dim LastValue
LastValue = "未入力"

Dim Row As Range
For Each Row In Range("A:B").Rows 'A:B範囲を一行ずつ

Dim AColumn As Range, BColumn As Range
Set AColumn = Row.Columns(1) '処理中の行の一列目をAColumn
Set BColumn = Row.Columns(2) '処理中の行の二列目をBColumn

If (AColumn.Value = "") Then Exit For '空白で停止

If (AColumn.Value Like "なし") Then
If (BColumn = Empty) Then BColumn.Value = LastValue
ElseIf (AColumn.Value <> 0) Then
LastValue = AColumn.Value
End If

Next
2020/12/11(金) 08:34:39.24ID:xHfuP7vB0
>>971
ワークシート関数で、条件付きで最後にある値を取るのは面倒だと思う
Filter関数とVlookup関数でできなくはないけど
2020/12/11(金) 12:26:50.51ID:A055qJ39d
ifのあとカッコで書けるのかしらなんだわ
979デフォルトの名無しさん (ｵｯﾍﾟｹ Sr1b-m1m7)
垢版 |
2020/12/11(金) 13:05:38.72ID:wz04rSM4r
974さんのやり方にinblankを付け足して解決出来ました
ありがとうございました。
2020/12/11(金) 13:07:41.53ID:5MdaedDCM
>>978
単に 式をカッコで包んでるだけ
A = B + 1
を
A = (B + 1)
と書くのと同じ
2020/12/11(金) 14:46:49.15ID:UAef87jg0
カッコも式の一部だから書くのは自由だけど処理上はまったく意味がない
たとえばこれでも別にエラーにはならない
If (((((a)) = ((b))))) Then
2020/12/11(金) 14:57:01.16ID:7k+CWJkj0
zipファイルを解凍して別フォルダにコピー後にzipファイルと元の解凍ファイルをfso.deletefolderでまとめて削除するvba作ってるんだけどもなんでかzipファイルだけ削除できないんやがなんでや
2020/12/11(金) 15:00:25.68ID:g30meLDD0
解凍処理の方でまだ掴んでるとかは？
2020/12/11(金) 16:18:51.11ID:xfvmoUwoM
>>978
見やすくていいでしょ
おすすめ
2020/12/11(金) 17:17:16.62ID:A055qJ39d
おう、マネささて頂きますわ
2020/12/11(金) 18:12:09.99ID:f/nqGphBa
>>981
そんなにカッコつけるなよ
2020/12/11(金) 18:17:33.57ID:YQ4SKnSdM
囲えるくらいの甲斐性を見せろよ
2020/12/11(金) 19:03:37.76ID:RI9UvvOD0
FUCK (((((●)) = ((●))))) 凸 YOU
2020/12/11(金) 20:45:59.99ID:u1KAArwg0
ウンコ
990デフォルトの名無しさん (ﾜｯﾁｮｲ 67f1-k4Kn)
垢版 |
2020/12/12(土) 12:26:43.87ID:D0KYkpwQ0
Office田中の人生きてるの？
突然Youtubeの更新が止まって数ヵ月過ぎた。
2020/12/12(土) 13:02:18.19ID:cNsXl+Rv0
Excel関数のHyperLinkの処理を置き換え(APIHookのような処理)はどうすればできますか？

目的としてはHyperLink関数では一部のURLの表示が遅い(Excel自体のタイムアウト待ち？)ので
直接「CreateObject("WScript.Shell").Run URL文字列」の処理をさせたいのです
関数名はHyperLinkのままにしたいのでAPIHookのような処理ができればいいのですが
2020/12/12(土) 14:44:07.78ID:goTAsgOP0
またおまんこ
2020/12/12(土) 16:50:49.73ID:8ELulHCK0
>>990
普通にセミナー開いてたよ
つべは単に再生回数取れないから休止してるんでしょ
2020/12/12(土) 17:03:16.57ID:EozP8xdo0
動画じゃコピペできないもの
995デフォルトの名無しさん (ﾜｯﾁｮｲ 67f1-k4Kn)
垢版 |
2020/12/12(土) 17:30:46.03ID:D0KYkpwQ0
>>993
そうか。
動画では💩上から目線で💩偉そうだったから生きてないのかと思った。
2020/12/12(土) 17:59:55.44ID:XTq8+BP7M
この三年でこのスレの人に救われた事が多すぎて感謝の念しかない
VBAどころかエクセルすら使わない仕事に変わるけど本当にみんなありがとう
2020/12/12(土) 18:37:52.11ID:wCNFFbhJ0
>>994
コメント欄に数式とかソース貼っとけばいいじゃん
2020/12/12(土) 20:08:39.70ID:8ELulHCK0
>>995
まあまあ、あの方のひととなりは業界では知る人ぞ知るで有名だから。
実際にトップクラスのテクニックの持ち主には間違いないからしゃーない
999デフォルトの名無しさん (ﾜｯﾁｮｲ 67f1-k4Kn)
垢版 |
2020/12/12(土) 20:25:22.78ID:D0KYkpwQ0
>>998
いやプログラミングの業界で働いてたらあのくらいのスキルは低レベル。
それよりExcelのVBAごときで偉そうにしてるのは井の中の蛙。

あの人の周りには大量の低レベル社員が群がっているのだろう。
そんな低レベルの人が質問をしてきてそれに答えるばかりしているから自分が頭いいと勘違いしてるだけ。

もっと高レベルなプログラマーを目指してほしい。

こういう現象は高学歴な人が人生の早い段階でつまずき
予備校教師を目指す、というのにも見られる。
せっかく高学歴なんだからもっと自分のやりたいことに精力をそそげばいいのにね。
教育界で偉そうにすることしかできなくなった落ちこぼれ。
2020/12/12(土) 20:52:45.95ID:FxA0JWZG0
自称高レベル君乙w
10011001
垢版 |
Over 1000Thread
このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 104日 8時間 57分 19秒
レス数が1000を超えています。これ以上書き込みはできません。
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。
ニューススポーツなんでも実況