トップページ⇒tech
1002コメント361KB

Excel VBA 質問スレ Part41©5ch.io

レス数が1000を超えています。これ以上書き込みはできません。
0001デフォルトの名無しさん 転載ダメ©2ch.net2016/04/27(水) 04:11:46.79ID:Nk+oP5xR
ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part40
http://echo.2ch.net/test/read.cgi/tech/1455817784/

※関連スレ
VBAなんでも質問スレ Part2
http://echo.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://echo.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 122
http://echo.2ch.net/test/read.cgi/bsoft/1461287268/
0952デフォルトの名無しさん2016/06/24(金) 23:32:31.95ID:JUbaOn5Z
問題の行でブレイクしてデバッガでステップ実行してみたら？
0953デフォルトの名無しさん2016/06/24(金) 23:36:42.13ID:+Rdmt4kb
For Eachなんてしなくても、
G & H & I & …って全部繋げて、
そいつが = "" なら削除でよくね?
0954デフォルトの名無しさん2016/06/24(金) 23:58:44.99ID:jYe71Mmy
>>953
それが圧倒的に判り易いやw
0955デフォルトの名無しさん2016/06/25(土) 00:12:12.78ID:zTTmLUZY
> If c.Value <> Empty Then
> blnFlag = True
> End If

どうでもいいけど、ここをEmpty で判定すると
数値型で 0 が入力されてても空と見なされるね
0も空と見なすなら別にいいけど・・・
0956デフォルトの名無しさん2016/06/25(土) 00:57:11.91ID:zTTmLUZY
>>955
ちなみに値がEmpty値かどうか正確に判定したいなら
以下のようにすべき、これならEmptyの暗黙の型変換は無くなる

> If c.Value <> Empty Then

↓

If Not IsEmpty(c.Value) Then
0957デフォルトの名無しさん2016/06/25(土) 11:05:53.81ID:zMiNU6un
質問です。
拾い物なんですが下記のコードをセルA1だけでなく、シート内全セルに変更したいのですがうまく出来ません。助けて下さい。

Sub 文字の修正()

If Range("A1").Find(What:="株式会社") Is Nothing Then
Moji = Range("A1").Value
Range("A1") = "株式会社" & Moji & "御中"
End If

End Sub
0958デフォルトの名無しさん2016/06/25(土) 11:12:29.15ID:LSp3Y+eC
>>957
Sub 文字の修正()
Dim Unko as Range

If Range("A1").Find(What:="株式会社") Is Nothing Then
Moji = Range("A1").Value
Range("A1") = "株式会社" & Moji & "御中"
End If

End Sub
0959デフォルトの名無しさん2016/06/25(土) 11:16:30.79ID:LSp3Y+eC
>>957
Sub 文字の修正()
Dim Unko As Range
For Each Unko In ActiveSheet.UsedRange
If Unko <> "" And InStr(Unko, "株式会社") = 0 Then
Unko = "株式会社" & Unko & "御中"
End If
Next Unko
End Sub
0960デフォルトの名無しさん2016/06/25(土) 11:19:09.76ID:DPbC+aT1
お前ら下らない答え書いてる余裕があるなら
次スレぼちぼち立ててくれよ
0961デフォルトの名無しさん2016/06/25(土) 11:21:30.82ID:LSp3Y+eC
>>960
Sub 抹殺()
Dim Aho as Respond
Set Respond = ActiveThread.Respond(960)
Respond.Delete
End Sub
0962デフォルトの名無しさん2016/06/25(土) 11:22:07.48ID:LSp3Y+eC
x Respond.Delete
o Aho.Delete
0963デフォルトの名無しさん2016/06/25(土) 11:22:33.41ID:LSp3Y+eC
x Set Respond
o Set Aho
0964デフォルトの名無しさん2016/06/25(土) 11:32:10.33ID:zMiNU6un
>>959
出来ましたありがとうございます！

最初うんことか書いてあるから動かないかと思いました。
0965デフォルトの名無しさん2016/06/25(土) 14:39:50.13ID:GSPW6H1w
「株式会社」が前に来るとは限らない。
そもそも株式会社ではないことも多い。
どうするの？
0966デフォルトの名無しさん2016/06/25(土) 21:44:50.71ID:zNM5hCEC
>>965
オレはあくまでも例題と思ったがな・・
0967デフォルトの名無しさん2016/06/25(土) 21:55:37.21ID:6Lp5FHz7
どっちにしろ、その時々で変えればいいし何の問題も無い。
0968デフォルトの名無しさん2016/06/25(土) 22:10:13.22ID:OxRz95e1
>>965
よい観点
0969デフォルトの名無しさん2016/06/26(日) 00:11:16.94ID:bWC1XfD2
書いていない例外については質問者が応用で対処すればよろしいでしょ。こっちがすべて面倒見ないといけない
わけでもなし
0970デフォルトの名無しさん2016/06/26(日) 01:52:39.72ID:wrV5aHGV
相手の希望をそのまま回答するのは３流
相手の希望の裏にある本当に解決したいことを見つけるのが２流
相手自身が気がついてさえいない相手にとって有効なソリューションを示すのが１流
0971デフォルトの名無しさん2016/06/26(日) 02:39:37.45ID:bX5XM7mI
次スレ
Excel VBA 質問スレ Part42©2ch.net [無断転載禁止]©2ch.net
http://echo.2ch.net/test/read.cgi/tech/1466876143/
0972デフォルトの名無しさん2016/06/26(日) 02:47:40.29ID:DVGuk9ay
○○さんに頼むと
当初の予定よりもカネも時間も桁違い
と陰口叩かれるんですね。わかります。
0973デフォルトの名無しさん2016/06/26(日) 02:52:28.77ID:TQjwgA3H
誰がconstか述べよ
const char***
char ***
char const***
char *const**
char const*const**
char **const*
char const**const*
char *const*const*
char const*const*const*
0974デフォルトの名無しさん2016/06/26(日) 02:52:46.64ID:TQjwgA3H
誤爆すんません
0975デフォルトの名無しさん2016/06/26(日) 08:25:22.50ID:nJ28NdtK
>>973
typedefすりゃだいたいわかる
0976デフォルトの名無しさん2016/06/26(日) 09:01:04.18ID:0rtfUKXl
>>972
運用者目線に立って
あらゆることを考慮して
使い易さを考えた結果として
高額見積りした方が現場の人間には信用されるよな
経理は金額で人を選んで
その値段で受注した奴に全責任を負わせるだけのクズが多い

何も考えずに出された仕様から
簡単な低額見積りした場合
そんな例外は考慮してません
そんな運用は考慮してません
そんな既存バグは考慮してません
契約範囲外です
ってなるんだけど
やって貰わないと困るとか
この契約書には例外、運用、既存バグについての想定は書かれていないとかさ
結局やることになって
仕組自体を一からやり直さないといけなかったり
既存バグが無限に湧いてきたりはよくある

そして揉めに揉めて全員損する
無駄が多過ぎる
0977デフォルトの名無しさん2016/06/26(日) 10:20:33.30ID:0Y1q2sek
>>976
その辺考慮するのは分かるけど
普通何でもかんでも対応するんじゃなくて
先にお客さんと話しあって固めない？
一流とか二流とか言う前に常識として
0978デフォルトの名無しさん2016/06/26(日) 10:58:29.69ID:Y4p6Hgz2
考慮外のことに対応するコストについて第三者からは規模の大小がわからないし、特に顧客はプアな感覚しか持っていない。
「こんなのは簡単でしょ」、というのと「ここの作り直しはどえらいことだ」というのが逆だったりする。
話し合わずに感覚で勝手に判断するんだよね。
0979デフォルトの名無しさん2016/06/26(日) 11:00:17.21ID:I8EsIBnk
たかがエクセルマクロに「ソリューションを示す」てwwww
バカのシステム屋ごっこもここに極まれり！やなwww
0980デフォルトの名無しさん2016/06/26(日) 11:06:20.83ID:abwRoDQE
大抵の仕事はソリューションを示すことが求められるけどな
0981デフォルトの名無しさん2016/06/26(日) 11:11:09.05ID:I8EsIBnk
>>980
大抵の仕事にはソリューション()が元からあるわwww
ソリューション()もないのに何の仕事した気になっとんねんバカ丸出しやんお前wwww
0982デフォルトの名無しさん2016/06/26(日) 11:18:00.25ID:abwRoDQE
>>981
流れ的に下流工程の話じゃないだろ
0983デフォルトの名無しさん2016/06/26(日) 11:21:16.46ID:I8EsIBnk
>>982
なんで突然下流工程とかwwww
バカなんやからもうやめろ恥ずかしいでw
0984デフォルトの名無しさん2016/06/26(日) 11:31:07.00ID:qLHqrl/u
日本語で普通に「解決策」って言えばいいだけ
0985デフォルトの名無しさん2016/06/26(日) 11:50:58.57ID:Y4p6Hgz2
思い込みを抱えたまま話し合ってもこういうふうに無駄に終わる。
0986デフォルトの名無しさん2016/06/26(日) 13:20:12.03ID:QNHd0b5c
うめ
0987デフォルトの名無しさん2016/06/26(日) 13:24:14.15ID:I8EsIBnk
>>985
思い込みなんぞ人間誰にでもあるもんや
無駄に終わるんはお前自身が思い込みを抱えこんどるのに気がついてないからやでｗ
0988デフォルトの名無しさん2016/06/26(日) 13:52:14.42ID:0+Or/a+e
医者「こんなになる前になんでもっと早く病院に来なかったの」
患者「ほっといてもすぐ治ると思ったのに…ｸﾞｽｯ」
0989デフォルトの名無しさん2016/06/26(日) 15:31:13.87ID:bWC1XfD2
ID:wrV5aHGVがクソ社畜道を頑張ってくれ
0990デフォルトの名無しさん2016/06/26(日) 15:50:18.08ID:nJ28NdtK
札束
0991デフォルトの名無しさん2016/06/26(日) 17:30:44.05ID:SfsrMLBW
マクロ付きのエクセルファイルを動かしたいのですが、

”マクロを実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。”
というエラーメッセージが出てきます。

エクセルのオプション画面で、セキュリティセンターでマクロの設定を見ると、マクロ有効の設定になっています。
原因がさっぱりわかりません。詳しい人いましたら、教えてください。

Excel2010です。
0992デフォルトの名無しさん2016/06/26(日) 17:51:27.04ID:MWzvQhZg
>>991
拡張子
0993デフォルトの名無しさん2016/06/26(日) 17:58:09.36ID:GKe9+Aa3
拡張子はxlsmなの？
0994デフォルトの名無しさん2016/06/26(日) 20:03:53.79ID:SXF7JZZI
うめ
0995デフォルトの名無しさん2016/06/26(日) 20:50:40.78ID:Qa1v+81y
>>987
大阪の犯罪率が高いのも
在日率が高いのも
ナニワ金融道なのも
気持ち悪いのも
みんなの思い込みだから気にすんな
0996デフォルトの名無しさん2016/06/26(日) 22:11:05.76ID:GUa3g0fP
>>992、>>993
拡張子は大丈夫です。
さっぱりわかりません。
0997デフォルトの名無しさん2016/06/26(日) 22:34:16.84ID:MWzvQhZg
>>996
Shift押しながらファイル開いてみて
0998デフォルトの名無しさん2016/06/26(日) 22:43:19.24ID:GUa3g0fP
>>997
Shift押しながらやってみましたが駄目でした。
0999デフォルトの名無しさん2016/06/26(日) 22:46:37.88ID:uc+/xKju
>>991
そのマクロはどこに入っていて、何から実行しようとしているのか
1000デフォルトの名無しさん2016/06/26(日) 22:51:36.47ID:OlUQYls6
次スレ
Excel VBA 質問スレ Part42©2ch.net [無断転載禁止]©2ch.net
http://echo.2ch.net/test/read.cgi/tech/1466876143/
10011001Over 1000Thread
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
life time: 60日 18時間 39分 50秒
10021002Over 1000Thread
２ちゃんねるの運営はプレミアム会員の皆さまに支えられています。
運営にご協力お願いいたします。


───────────────────
《プレミアム会員の主な特典》
★ ２ちゃんねる専用ブラウザからの広告除去
★ ２ちゃんねるの過去ログを取得
★ 書き込み規制の緩和
───────────────────

会員登録には個人情報は一切必要ありません。
月300円から匿名でご購入いただけます。

▼ プレミアム会員登録はこちら ▼
http://premium.2ch.net/
http://pink-chan-store.myshopify.com/
レス数が1000を超えています。これ以上書き込みはできません。