■ このスレッドは過去ログ倉庫に格納されています
Excel VBA 質問スレ Part68
- 1 :デフォルトの名無しさん :2020/08/30(日) 11:55:27.33 ID:Oy/VxFsh0.net
- !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
- 952 :デフォルトの名無しさん :2020/12/10(木) 22:36:37.55 ID:CqzKSDKw0.net
- すいませんちょっと言葉が足りませんでした。
なしは単なる文字列のなしです
IFでなしという文字列があれば、現在設定している文字列をD列に書き出していく処理になります
C列 D列
りんご
なし
0
0
みかん
なし
↓
C D
りんご (ブランク)
なし りんご
0 (ブランク)
0 (ブランク)
みかん (ブランク)
なし みかん
上記のような処理を作りたいです。
- 953 :デフォルトの名無しさん :2020/12/10(木) 22:48:25.04 ID:56YuvF2X0.net
- どうぞ作ってください。
- 954 :デフォルトの名無しさん :2020/12/10(木) 22:56:25.81 ID:CqzKSDKw0.net
- 条件分岐の所だけでもこういう感じで作ればいいというような回答を頂ければ助かります
かなり丸投げな質問になってすいません
- 955 :デフォルトの名無しさん :2020/12/10(木) 22:57:22.97 ID:YXjbRyJb0.net
- 四角投げくらいかな?
- 956 :デフォルトの名無しさん :2020/12/10(木) 22:59:02.40 ID:5Pf17kEC0.net
- ちょっとみただけだけど関数でも頑張れば
作れそうに見えるがどうだろうか
- 957 :デフォルトの名無しさん :2020/12/10(木) 23:05:18.21 ID:DnhQvLL+0.net
- 回答しても助けになりそうも無い
- 958 :デフォルトの名無しさん :2020/12/10(木) 23:06:01.55 ID:5Pf17kEC0.net
- 別に頑張らなくても関数で出来た
頭硬すぎだろう
- 959 :デフォルトの名無しさん :2020/12/10(木) 23:24:54.94 ID:A+NuqwaS0.net
- なしって入ったときに出てくるのがなしの1個上のセルの内容と決まってるなら関数でも書けるね
- 960 :デフォルトの名無しさん :2020/12/10(木) 23:35:14.23 ID:gchHSEuY0.net
- このなぞなぞを思い出した
http://nazo2.myaasensei.com/?eid=90
なしなら「梨」と表記するか
別の果物、ぶどうとかすればいいのに
紛らわしい
- 961 :デフォルトの名無しさん :2020/12/10(木) 23:53:09.24 ID:v6PrCrQZ0.net
- >>952
その条件通りにそのまま書き起こせば実現できることじゃないのか、複雑な処理がいるわけでもなし
- 962 :デフォルトの名無しさん :2020/12/11(金) 00:21:36.40 ID:bQCq39tb0.net
- 関数で作れるならヒントでも頂けませんでしょうか
すいません。
- 963 :デフォルトの名無しさん :2020/12/11(金) 00:36:40.44 ID:2rJlNOe/0.net
- =if(C1=″なし″,offset(C1,0,-1),″″)
こんな感じか
- 964 :デフォルトの名無しさん :2020/12/11(金) 00:37:35.18 ID:bQCq39tb0.net
- スレッド眺めましたがまともに答えてる人ここはあまりいないんですね
失礼しました
- 965 :デフォルトの名無しさん :2020/12/11(金) 00:41:08.86 ID:Lka/LNP10.net
- まともな質問をしましょう
- 966 :デフォルトの名無しさん :2020/12/11(金) 00:44:14.37 ID:6Y+QuIqT0.net
- 流と関係ないけどここの人ってVBAはもちろんだけど関数も糞詳しいんだよなあ
VBAが関数の上位互換みたいなとこあるから当然か
SQRTとかここで教わったりセルの書式設定の代わりにVBAとかめちゃくちゃ助けてもらったわ
- 967 :デフォルトの名無しさん :2020/12/11(金) 00:46:54.57 ID:RI9UvvOD0.net
- 上位互換じゃなくて全く同等。
lambda関数導入でチューリング完全になったからね。
- 968 :デフォルトの名無しさん :2020/12/11(金) 01:01:39.09 ID:bQCq39tb0.net
- >>963
それだと、なしの横にりんごやみかんの文字列が表示されませんでした
- 969 :デフォルトの名無しさん :2020/12/11(金) 01:47:52.19 ID:sk80MZxp0.net
- シート関数でもVBAでもどっちでもいいけど組むにあたってどの部分で詰まってるわけ?
- 970 :デフォルトの名無しさん :2020/12/11(金) 02:06:21.43 ID:vUB51gLL0.net
- >>968
馬鹿は死ねば?
- 971 :デフォルトの名無しさん :2020/12/11(金) 02:21:17.12 ID:bQCq39tb0.net
- >>969
質問の仕方が下手ですいません
A列 B列
文字列A 空欄
空欄1 文字列A
空欄1 文字列A
文字列B 空欄
空欄2 文字列B
空欄2 文字列B
空欄2 文字列B
・
・
・
のようなシートがあって、IFでA列が空欄であれば文字列A、文字列Bのような転記を
機械的に行いたいのですが、関数を使ってIFの真偽判定で
文字列Aがヒットすれば、B列への転記内容を文字列A、文字列Bがヒットすれば文字列Bというような、
VBAのValueのような変数に文字列を格納しながら転記してく事が関数で可能か知りたかった内容です。
A列の文字列Aを空欄1にコピーして、文字列Bを空欄2にコピーするという操作もあればそっちも教えて頂きたい
(VLOOKUP等で文字列を参照する事が出来そうなので)
- 972 :デフォルトの名無しさん :2020/12/11(金) 02:26:17.07 ID:egj/vl+4M.net
- いつものあいつっぽい
- 973 :デフォルトの名無しさん :2020/12/11(金) 02:32:32.38 ID:t8ktWZN00.net
- >>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列は空欄になる。
- 974 :デフォルトの名無しさん :2020/12/11(金) 02:47:05.93 ID:t8ktWZN00.net
- >>971
それなら、C列を作業列として
A列にA2からデータ
B列はB2から =IF(A:A="",C2,"")
C列にC2から =IF(A:A="",C1,A2)
でB,C列をドラッグで、では?
- 975 :デフォルトの名無しさん :2020/12/11(金) 07:09:43.08 ID:pv/aap0P0.net
- 創作系は怠け者に厳しいから
こうやったけどうまくいかないってのは直してくれるが1から作ってってのはなあ
- 976 :デフォルトの名無しさん :2020/12/11(金) 08:01:05.41 ID:xHfuP7vB0.net
- >>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
- 977 :デフォルトの名無しさん :2020/12/11(金) 08:34:39.24 ID:xHfuP7vB0.net
- >>971
ワークシート関数で、条件付きで最後にある値を取るのは面倒だと思う
Filter関数とVlookup関数でできなくはないけど
- 978 :デフォルトの名無しさん :2020/12/11(金) 12:26:50.51 ID:A055qJ39d.net
- ifのあとカッコで書けるのかしらなんだわ
- 979 :デフォルトの名無しさん :2020/12/11(金) 13:05:38.72 ID:wz04rSM4r.net
- 974さんのやり方にinblankを付け足して解決出来ました
ありがとうございました。
- 980 :デフォルトの名無しさん :2020/12/11(金) 13:07:41.53 ID:5MdaedDCM.net
- >>978
単に 式をカッコで包んでるだけ
A = B + 1
を
A = (B + 1)
と書くのと同じ
- 981 :デフォルトの名無しさん :2020/12/11(金) 14:46:49.15 ID:UAef87jg0.net
- カッコも式の一部だから書くのは自由だけど処理上はまったく意味がない
たとえばこれでも別にエラーにはならない
If (((((a)) = ((b))))) Then
- 982 :デフォルトの名無しさん :2020/12/11(金) 14:57:01.16 ID:7k+CWJkj0.net
- zipファイルを解凍して別フォルダにコピー後にzipファイルと元の解凍ファイルをfso.deletefolderでまとめて削除するvba作ってるんだけどもなんでかzipファイルだけ削除できないんやがなんでや
- 983 :デフォルトの名無しさん :2020/12/11(金) 15:00:25.68 ID:g30meLDD0.net
- 解凍処理の方でまだ掴んでるとかは?
- 984 :デフォルトの名無しさん :2020/12/11(金) 16:18:51.11 ID:xfvmoUwoM.net
- >>978
見やすくていいでしょ
おすすめ
- 985 :デフォルトの名無しさん :2020/12/11(金) 17:17:16.62 ID:A055qJ39d.net
- おう、マネささて頂きますわ
- 986 :デフォルトの名無しさん :2020/12/11(金) 18:12:09.99 ID:f/nqGphBa.net
- >>981
そんなにカッコつけるなよ
- 987 :デフォルトの名無しさん :2020/12/11(金) 18:17:33.57 ID:YQ4SKnSdM.net
- 囲えるくらいの甲斐性を見せろよ
- 988 :デフォルトの名無しさん :2020/12/11(金) 19:03:37.76 ID:RI9UvvOD0.net
- FUCK (((((●)) = ((●))))) 凸 YOU
- 989 :デフォルトの名無しさん :2020/12/11(金) 20:45:59.99 ID:u1KAArwg0.net
- ウンコ
- 990 :デフォルトの名無しさん :2020/12/12(土) 12:26:43.87 ID:D0KYkpwQ0.net
- Office田中の人生きてるの?
突然Youtubeの更新が止まって数ヵ月過ぎた。
- 991 :デフォルトの名無しさん :2020/12/12(土) 13:02:18.19 ID:cNsXl+Rv0.net
- Excel関数のHyperLinkの処理を置き換え(APIHookのような処理)はどうすればできますか?
目的としてはHyperLink関数では一部のURLの表示が遅い(Excel自体のタイムアウト待ち?)ので
直接「CreateObject("WScript.Shell").Run URL文字列」の処理をさせたいのです
関数名はHyperLinkのままにしたいのでAPIHookのような処理ができればいいのですが
- 992 :デフォルトの名無しさん :2020/12/12(土) 14:44:07.78 ID:goTAsgOP0.net
- またおまんこ
- 993 :デフォルトの名無しさん :2020/12/12(土) 16:50:49.73 ID:8ELulHCK0.net
- >>990
普通にセミナー開いてたよ
つべは単に再生回数取れないから休止してるんでしょ
- 994 :デフォルトの名無しさん :2020/12/12(土) 17:03:16.57 ID:EozP8xdo0.net
- 動画じゃコピペできないもの
- 995 :デフォルトの名無しさん :2020/12/12(土) 17:30:46.03 ID:D0KYkpwQ0.net
- >>993
そうか。
動画では💩上から目線で💩偉そうだったから生きてないのかと思った。
- 996 :デフォルトの名無しさん :2020/12/12(土) 17:59:55.44 ID:XTq8+BP7M.net
- この三年でこのスレの人に救われた事が多すぎて感謝の念しかない
VBAどころかエクセルすら使わない仕事に変わるけど本当にみんなありがとう
- 997 :デフォルトの名無しさん :2020/12/12(土) 18:37:52.11 ID:wCNFFbhJ0.net
- >>994
コメント欄に数式とかソース貼っとけばいいじゃん
- 998 :デフォルトの名無しさん :2020/12/12(土) 20:08:39.70 ID:8ELulHCK0.net
- >>995
まあまあ、あの方のひととなりは業界では知る人ぞ知るで有名だから。
実際にトップクラスのテクニックの持ち主には間違いないからしゃーない
- 999 :デフォルトの名無しさん :2020/12/12(土) 20:25:22.78 ID:D0KYkpwQ0.net
- >>998
いやプログラミングの業界で働いてたらあのくらいのスキルは低レベル。
それよりExcelのVBAごときで偉そうにしてるのは井の中の蛙。
あの人の周りには大量の低レベル社員が群がっているのだろう。
そんな低レベルの人が質問をしてきてそれに答えるばかりしているから自分が頭いいと勘違いしてるだけ。
もっと高レベルなプログラマーを目指してほしい。
こういう現象は高学歴な人が人生の早い段階でつまずき
予備校教師を目指す、というのにも見られる。
せっかく高学歴なんだからもっと自分のやりたいことに精力をそそげばいいのにね。
教育界で偉そうにすることしかできなくなった落ちこぼれ。
- 1000 :デフォルトの名無しさん :2020/12/12(土) 20:52:45.95 ID:FxA0JWZG0.net
- 自称高レベル君乙w
- 1001 :2ch.net投稿限界:Over 1000 Thread
- 2ch.netからのレス数が1000に到達しました。
総レス数 1001
254 KB
掲示板に戻る
全部
前100
次100
最新50
read.cgi ver.24052200