VBAなんでも質問スレ Part2 [転載禁止]©2ch.net

**デフォルトの名無しさん** · 2015/05/21(木) 10:52:44.71

VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もＯＫ

ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください

VBAを開発環境としていろいろ作っちゃいましょう

前スレ

VBAなんでも質問スレ
http://peace.2ch.net/test/read.cgi/tech/1342087380/

関連スレ

Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
http://peace.2ch.net/test/read.cgi/tech/1419718732/

Access VBA 質問スレ Part1
http://peace.2ch.net/test/read.cgi/tech/1328536426/

VBプログラマ質問スレ（Ver.6.0 まで） part64
http://peace.2ch.net/test/read.cgi/tech/1393069842/

Excel総合相談所 118 [転載禁止]©2ch.net
http://peace.2ch.net/test/read.cgi/bsoft/1430352555/

**デフォルトの名無しさん** · 2019/06/08(土) 11:47:13.10

エクセル　Cells(1,1)
ワード　　 Cell(1,1)
　　　　　　　　↑
　　　　　　は? 何でワードにはsが無い?

**デフォルトの名無しさん** · 2019/06/08(土) 16:19:13.22

>>886
先月に出題範囲かわったし公式でしょ

**デフォルトの名無しさん** · 2019/06/08(土) 16:27:53.67

>>887
Word.Selection.CellsとかRow.Cellsとかあるで
Tableには.Cell(1,1)しかないがな
ちなCellsはxy指定できんがCellはxy指定必須や
エクセルのプロパティのほうが異常なんやで

**デフォルトの名無しさん** · 2019/06/12(水) 20:44:31.77

新垣結衣 AVデビュー
https://www.xvideos.com/video48369883/_ai_

**デフォルトの名無しさん** · 2019/06/12(水) 21:19:56.07

vba エキスパートは、excel ベーシック以外は公式テキストまだだから受験は待ったほうがいいですよね。

**デフォルトの名無しさん** · 2019/06/19(水) 04:56:48.65

【出資】松本卓朗人工知能詐欺【注意】
https://rio2016.5ch.net/test/read.cgi/rikei/1560859403/

**デフォルトの名無しさん** · 2019/06/24(月) 19:31:10.71

以前word VBAの質問をした者ですが、その節はありがとうございました。
お陰様で処女作のユーザーフォームが完成しかかっているのですが、最終問題に難儀しています。
やりたい事：「保存」ボタンを押す→ActiveDocumentと同じ場所に「記録表」というフォルダを作成し、
その中に「"氏名”」というファイルを生成する。既に「記録表」のフォルダがあればフォルダは作成せず、
そちらにファイルを生成する。
なお、不特定多数のユーザーが使う前提です(保存場所を手打ちしたらユーザー名で詰む)

四苦八苦しましたが、ひとまず確認用にdesktopに生成しようとしてなんかユーザーフォルダの滅っ茶根深い場所に生成されたり、
推測で打ってみたメソッドが全く機能しなかったり(フォルダの有無を確認するようなのって何だろう)
なんというか、Excelのfxボタンみたいにメソッドの内容を教えてくれるやつ、ないんですかね…
ちなみに職場のPCはスタンドアロンでヘルプに繋がらず、自宅PCにはOfficeが入ってないです。

**デフォルトの名無しさん** · 2019/06/24(月) 22:54:40.46

>>893
オフラインヘルプインストールできなかったっけ… 見てみて

F2キーでオブジェクトブラウザが表示される
これ無しで開発なんてやってられない

**デフォルトの名無しさん** · 2019/06/25(火) 05:52:40.82

今オフラインのヘルプって提供されてないんじゃないのか？

**デフォルトの名無しさん** · 2019/06/25(火) 08:17:29.97

>>893
デスクトップはエクスプローラーの左のとこにカタカナで出てるとこと同じやで
深いとこにできても、そちらから近道すればよろし

**デフォルトの名無しさん** · 2019/06/25(火) 08:27:47.11

>>893
〉フォルダの有無確認
昔は Dir()だったけど、今は filesystemobjectかな。
参照設定も必要なので使い方も含めてggッテください
folderexists()

**デフォルトの名無しさん** · 2019/06/25(火) 10:33:29.10

公式オフラインヘルプがあったのは2013だな

2016もオフライン版があるけど英語
https://github.com/OfficeDev/VBA-content/

基本的な機能は2013からあんまり変わってないから、2013用のヘルプを入れてしまうという手もある
使い勝手は悪いけど、いつでも参照できるという利点はあるから

**デフォルトの名無しさん** · 2019/06/26(水) 09:21:12.11

Activedocument.Pathで所在フォルダのパスが出せる
これとフォルダ名とファイル名繋げた文字列つくればSaveAs2の引数にできる

**デフォルトの名無しさん** · 2019/06/26(水) 18:32:58.67

質問です。excel2016の並び替え機能で
漢字、かな（あ～ん）、アルファベット(a～z)で並べ替えて漢字の中でも「本店」を最上位とできませんかね？

降順だと上記並びなのですが、かな（ん→あ）、アルファベット（z→a)になります。
Custumorder に「本店」を入力すると漢字中で1番下になります。

よろしくお願いします

**デフォルトの名無しさん** · 2019/06/26(水) 20:26:59.08

>>900
本店の前にスペース入れる

**デフォルトの名無しさん** · 2019/06/26(水) 21:08:13.27

>>901
ありがとうございます。
やってみます。

**デフォルトの名無しさん** · 2019/07/04(木) 12:19:45.93

Wordの表で、
ActiveDocument.Tables(2).Select
みたいに選択したいのですが、どれだけ表を分割しても、
全ての表が　Tables(1)　という扱いなようでエラーになります。
ひとつ前に似たようなものを組んだ時には問題なくTables(2)になりましたが、
それと構文上は全く違いはありません。
どうしたら Tables(2)という扱いになるのでしょうか。

**デフォルトの名無しさん** · 2019/07/04(木) 22:43:55.95

ユーザーフォーム内のコンボボックスにUSBの中にある画像一覧というフォルダ内の全ての画像名を表示したいのですがうまくいきません。
どのように変更すればよいか教えていただけませんか？
Private Sub UserForm1_load()
Dim myList　As String
Dim myPath　As String
Dim iName　As String

myPath = "D:/画像一覧/*jpeg"

fName = Dir(myPath & "*.jpeg")
Do While iName <> ""
If myList <> "" Then
myList = myList & " " & iName
Else
myList = iName
End If
iName = Dir
Loop

If myList = "" Then Exit Sub
myList = Split(myList)

ComboBox1.List = myList
End Sub

**デフォルトの名無しさん** · 2019/07/05(金) 02:42:43.50

取得するのが D:/画像一覧/*jpeg*.jpeg になってるとか
fName は iName の間違いじゃないのかとか
myList は String なのにSplitした後のものを代入してるとか

**デフォルトの名無しさん** · 2019/07/06(土) 12:30:25.64

>>905
返信遅れて大変申し訳ありません
３つのご指摘直して反映できました。
ありがとうございました。

**デフォルトの名無しさん** · 2019/07/25(木) 16:22:05.73

ExcelVBAのユーザーフォーム上で、PDFを表示、操作をしたいです。
ですが、ユーザーフォームにコントロールを追加しようとすると、
「要素が見つかりません」とダイアログが表示され出来ません。
どなたか解決策をご存じの方がいましたら、教えていただけますでしょうか。。

Acrobat pro DCはインストールしてあり、ExcelはOffice365を最新の状態で使用してます。

**デフォルトの名無しさん** · 2019/07/25(木) 18:51:11.10

>>907
EXCELは専用スレがあるので、そちらへどうぞ

**デフォルトの名無しさん** · 2019/07/26(金) 10:59:16.22

>>908
ありがとうございます。
そちらに書いてみます。

**デフォルトの名無しさん** · 2019/08/14(水) 15:00:22.98

ここで質問していいかわからないんですが、違ったら誘導していただけると助かります。

メッセージボックスを最前面にするために以下のコードを利用したいのですが、呼び出し元の下から3行目のvbOKOnly を vbYesNo に替えた後、選択ボタンを取得する方法がわかりません。
どのようなコードを足したらいいかご教示いただけないでしょうか。

【呼び出し元】
Option Explicit
Dim WSHObj
Dim Args
Set WSHobj = WScript.CreateObject("WScript.Shell")
Args = "cscript ""C:\Program Files\PPX\script\WSHPopUP.vbs""" _
& " ""出力メッセージ""" _
& " 0" _
& " ""VBS名称""" _
& " " & vbOKOnly ←vbYesNoに替える
WSHObj.Run Args,0,true
Set WSHobj = Nothing

【WSHPopUP.vbs】
Option Explicit
Dim Arg
Dim WSHObj
Set WSHobj = WScript.CreateObject("WScript.Shell")
Set Arg = WScript.Arguments
WSHObj.Popup Arg(0),Arg(1),Arg(2),Arg(3)
Set WSHobj = Nothing

よろしくお願いします。

**デフォルトの名無しさん** · 2019/08/14(水) 19:26:49.04

【呼び出し元】
Option Explicit
Dim WSHObj
Dim Args
Set WSHobj = WScript.CreateObject("WScript.Shell")
Args = "cscript ""C:\Program Files\PPX\script\WSHPopUP.vbs""" _
& " ""出力メッセージ""" _
& " 0" _
& " ""VBS名称""" _
& " " & vbYesNo
Dim hoge '受け取り用に追加
hoge = WSHObj.Run(Args,0,true) 'この変数hogeにvbYes=6かvbNo=7が入る。
'何か処理を書く
Set WSHobj = Nothing

【WSHPopUP.vbs】
Option Explicit
Dim Arg
Dim WSHObj
Set WSHobj = WScript.CreateObject("WScript.Shell")
Set Arg = WScript.Arguments
Dim fuga '戻り値用に追加
fuga = WSHObj.Popup Arg(0),Arg(1),Arg(2),Arg(3) 'popupの戻り値を取得
WSHObj.Quit fuga '呼び出し元に終了コードとして返す
Set WSHobj = Nothing

**デフォルトの名無しさん** · 2019/08/14(水) 19:27:35.96

他にExecを使う方法もある

**デフォルトの名無しさん** · 2019/08/14(水) 20:05:03.77

ｖｂDefaultButton1 とか、そういうのじゃなくて？

**デフォルトの名無しさん** · 2019/08/15(木) 00:01:28.86

>>911
ありがとうございます！
試してみます！

>>913
すみません、ｖｂDefaultButton1 がわかりません

**デフォルトの名無しさん** · 2019/08/16(金) 11:35:25.09

>>911
>910,>914です。
教えていただいたコードを試してみたのですが、
‘何か処理を書く
のところに
MsgBox hoge
と入れたのですが、「はい」「いいえ」どちらの場合も 0 が返されます。
どうしたらいいでしょうか

**デフォルトの名無しさん** · 2019/08/16(金) 13:41:00.72

???
VBAなの?
VBSなの?
MsgBox使えるのに、何でWscript使ってんの?

**デフォルトの名無しさん** · 2019/08/16(金) 13:48:44.09

朗報
【アプデ/10】 2019年8月14日のWindowsUpdate後、VB関連が死亡。Windows10全バージョンにて
https://asahi.5ch.net/test/read.cgi/newsplus/1565930238/

**デフォルトの名無しさん** · 2019/08/16(金) 14:13:30.60

>>915
【WSHPopUP.vbs】のWSHObj.Quit fuga　は間違い。エラー出してる。
Wscript.Quit fuga　が正しい

**デフォルトの名無しさん** · 2019/08/19(月) 10:24:33.34

>>918
返信遅くなってすみません。

レスの通りに修正し、
さらに
fuga = WSHObj.Popup Arg(0),Arg(1),Arg(2),Arg(3) 'popupの戻り値を取得
↓
fuga = WSHObj.Popup(Arg(0),Arg(1),Arg(2),Arg(3)) 'popupの戻り値を取得
に変更し、成功しました。

たいへん助かりました。
ありがとうございました。

**デフォルトの名無しさん** · 2019/09/25(水) 10:50:56.65

WordのアクティブXコントロールのテキストボックスなのですが
BackStyleを０設定すると背景色は消えるのですが
デザインモードを解除すると背景色が出てしまいます

これはバグでしょうか

**デフォルトの名無しさん** · 2019/11/05(火) 18:33:26.09

DataObjectオブジェクトについて　https://chiebukuro.yahoo.co.jp/

VSI

**デフォルトの名無しさん** · 2019/11/05(火) 18:35:53.47

DataObjectオブジェクトについて　https://chiebukuro.yahoo.co.jp/

FQB

**デフォルトの名無しさん** · 2019/11/06(水) 06:26:58.33

CInt 関数 VBA　http://vba-auto.com/cint_function_vba/

NQ2

**デフォルトの名無しさん** · 2019/11/06(水) 06:26:59.50

CInt 関数 VBA　http://vba-auto.com/cint_function_vba/

NQ2

**デフォルトの名無しさん** · 2019/11/21(木) 09:09:00.43

Exchange / Outtlook VBAの質問です
初歩的な質問で申し訳ありませんが、お知恵を拝借できないでしょうか

任意の名前を持つ配布リストや連絡先グループに属するExchangeユーザーのSMTPアドレスの一覧を取得するにはどうしたら良いのでしょうか

配布リストや連絡先グループをExchange ユーザーとして取得するところまでは出来ているのですが、そこから先がうまくいきません

なお配布リスト、連絡先グループいずれも個人ユーザーのみが登録されている前提なので、再帰によるメンバー取得は不要な状況です

**デフォルトの名無しさん** · 2019/12/31(火) 13:22:12.18

エスパー的にはexchangeユーザーのユーザー一覧と配布リストのユーザーの
名前を比較すればいいんじゃね

**デフォルトの名無しさん** · 2020/04/20(月) 00:19:17.36

３日がかりの捜索ｗｗ　あきらめないのな

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

3日どころじゃないぞ

**デフォルトの名無しさん** · 2020/05/25(月) 10:28:15.88

>>925

これについて何か解決方法ありましたか？私も配布グループ取得で難儀しております。

**デフォルトの名無しさん** · 2020/05/25(月) 12:24:29.96

半年放置で読むかね

**デフォルトの名無しさん** · 2020/06/10(水) 10:39:28.23

>>925と>>929って同一人物だろどうせ

**デフォルトの名無しさん** · 2020/06/27(土) 08:55:28.74

Aex

**デフォルトの名無しさん** · 2020/06/27(土) 16:37:07.95

VBAの質問スレで質問するのはなぜ馬鹿ばっかりなのですか？

**デフォルトの名無しさん** · 2020/06/27(土) 16:43:50.13

>>933
このスレのレベルを知ってる普通以上の人はここを頼ったりはしないから

**デフォルトの名無しさん** · 2020/07/11(土) 22:25:50.10

頼むからVBAでWin32 APIを呼び出すのはやめてくれ
そこまで要求するなら包括的な自作DLLを作ればよいと

**デフォルトの名無しさん** · 2020/07/12(日) 04:44:26.92

>>935
なんでやめてほしいの？

**デフォルトの名無しさん** · 2020/07/12(日) 07:53:31.55

ものぐさが使うのがVBAなのに
いちいちDLL化なんてめんどくせえ

**デフォルトの名無しさん** · 2020/07/12(日) 10:51:54.06

>>936
Declare文が多すぎてコードが見づらい

**デフォルトの名無しさん** · 2020/07/12(日) 11:07:05.40

見なきゃいいだろ

**デフォルトの名無しさん** · 2020/07/12(日) 14:43:36.83

Win32API使える奴がDeclare文読むの?
そりゃ、間違ってるとかおかしなのも中にゃあるけど、普通そんなとこ見ないだろ。

**デフォルトの名無しさん** · 2020/07/14(火) 21:09:03.79

質問スレにも書き込んだのですが二つのieを起動して2つ目のieでpdfを開いて名前をつけて保存したいのですがexecwbを行うと一つ目のieのhtmlが選択されてしまいます。どうかやり方を教えてください。よろしくお願いします。getIEはシェル取得ファンクションです。

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.navigate "http://yahoo.jp”

Dim ie2 As InternetExplorer

Set ie2 = CreateObject("InternetExplorer.Application")

ie2.Visible = True

ie2.Navigate2 "C:\\Desktop\test.pdf", 1

Set ie2 = getIE("test")

Dim test As String

test = "c:\test\test.pdf"

ie2.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DONTPROMPTUSER, test

End Sub

**デフォルトの名無しさん** · 2020/07/14(火) 21:45:01.80

初心者です。どうかお力添えをよろしくお願いします。

**デフォルトの名無しさん** · 2020/07/14(火) 22:53:58.63

すいません　自己解決しました。単純なスペルミスでした

**デフォルトの名無しさん** · 2020/08/03(月) 07:54:11.09

製品番号のフォルダ検索して中のPDFファイルを開くようなマクロ書いてるんだけど
先日Officeのアップデートしたら、件のマクロがしばらく応答なしになって
悪意のあるマクロ云々とか言われてExcel強制終了になった

それ以後そのマクロは激遅に
ブックのファイル名変えたりマクロの関数名変えたりするとしばらくは元の速度に戻るが
1日位経つとまた遅くなる

調べてみたら、VBScript.RegExpのExecuteメソッドが10秒位かかるようになってる
通常は30msで終わるような代物がだ

どうもShellやRunで一度に多数のPDFファイルを開いているのがお気に召さなかったらしく
ファイル名や関数名でアンチウィルスのブラックリストに載る？
そのあとはそれっぽい名前のメソッドが標的になり遅くなるような感じ

こういうの経験した人いる？

**デフォルトの名無しさん** · 2020/08/03(月) 12:15:10.36

アンチウィルスソフトとかいうウィルスを捨てろ

**デフォルトの名無しさん** · 2020/08/04(火) 17:10:57.70

会社のPCじゃなければそれもありだが…

paloalto trapsとかいう奴
毎回反応する訳じゃないのが嫌だし
編集中のデータも問答無用でごっそり強制終了しやがるふざけんな

**デフォルトの名無しさん** · 2020/08/05(水) 03:07:47.57

除外指定すればエエやん

**デフォルトの名無しさん** · 2020/08/05(水) 09:06:26.86

＞VBScript.RegExpのExecuteが10秒
と
＞ShellやRunで一度に多数のPDFファイルを開いている
の関連がわからんね

この二つは分けて原因を探るべきじゃ？

**デフォルトの名無しさん** · 2020/08/05(水) 09:37:11.18

マクロ付ファイルでPDF開かせるてのは相当に怪しいと捉えられる可能性は高いね
セキュリティ変更や除外設定なんてのは出来ればしたくないだろうし引っかからないような対策があればいいがな

ShellやRunでPDF開くんじゃなくExcelもしくはWordに取り込ませるようにすると引っ掛からないかもという気がしなくもない

**デフォルトの名無しさん** · 2020/08/06(木) 06:47:20.91

VBAから直接PDFを開くんではなく
バッチファイルを書き出し実行することで反応の確率は減ったが
アンチウイルスが反応しやすい型番とかあってよくわからん

正規表現のexecuteメソッドは「それっぽい」名前のメソッドだろ？
これがアンチウイルスが反応したときに動作してた関数から呼ばれた時だけ遅くなるんだよ
同じブック中の他の関数から呼ばれた時は高速のままだ

dir関数でフォルダ内部のファイル名取得して正規表現検索してる時だけアホみたいに遅くなる時がある

**デフォルトの名無しさん** · 2020/09/01(火) 22:25:39.71

VBA開発を頼まれた　いくら位金額を提示したら良いか誰か教えてほしい

内容は不動在庫を15店舗くらいあグループ店の売り上げデータから引取先の候補を検索するシステム
商品のバーコードから行き先候補を検索する予定。

この内容ってアウトソーシングするといくら位？

**デフォルトの名無しさん** · 2020/09/01(火) 22:33:35.56

50円

**デフォルトの名無しさん** · 2020/09/02(水) 00:25:45.48

余裕みて1人週

**デフォルトの名無しさん** · 2020/09/02(水) 07:41:48.93

>>951
マジレスするとVBAは安いので1人月50ぐらいかな。

内容の詳細が分からないが、大して難しいとは思えないので。

どんなに簡単でも50以下は有り得ない。

**デフォルトの名無しさん** · 2020/09/02(水) 12:23:19.05

>>951
人によるだろうな
安く提示すると未経験者とかがくるぞ

**デフォルトの名無しさん** · 2020/09/04(金) 13:35:21.25

皆さま回答ありがとうございました！

**デフォルトの名無しさん** · 2020/09/05(土) 14:34:31.84

>>944
遅レスだけど

速度が遅い件は経験ありますよ
うちの環境で調べたらSYMANTECのエンドポイントは大丈夫で、MSのディフェンダーだと遅かった
Win10のバージョンも影響したかもしれないけど、現行サポート対象バージョンは、ディフェンダーだとすべて遅い
会社のPCなんでActiveDirectory、SYMANTEC、SKYSEAがスタンダードなんだけど、更新時の不具合があったんで一部のPCでディフェンダーを使ってて発覚した
VBSの内容は、多少分岐やループはあるけど正規表現を使って置換するだけの簡単なものだった

**デフォルトの名無しさん** · 2020/09/09(水) 22:08:05.33

ミッションクリティカルな仕事をVBAでやってるのに、
少し前から動かなくなって修正したくても前任者がこの世に不在＋仕様書やマニュアル無し＋社内プログラム分かる人いない
って状況割とよく聞くけど、まあ自分が担当することになったんだけど、これどーすりゃいいの？

何社かソフトウェア開発系の会社に話聞きにいったら、vbaはちょっと・・・とか、プログラムみてこれはちょっと・・・って反応だし
1千万超える金積むとなると役員に説明しなくちゃならないんだけど、なんでおまえがやらないの？みたいな反応だし
まあ、控えめに言ってこのまま止まり続けると会社潰れるから言い値で出すしか無いんだろうけど
こういう状況、ここに巣喰う人達はどうやって乗り越えたのかアドバイスやヒントください

転職、以外で

**デフォルトの名無しさん** · 2020/09/09(水) 22:09:54.34

ミッションクリティカルなのに止まっても平気なのか
不思議な世界観

**デフォルトの名無しさん** · 2020/09/09(水) 22:58:18.76

>>958
素人が作っためちゃくちゃなコードのデバッグや修正は仕事でもやってるからあんまり困ったことない
言語も問わず引き受けてる

**デフォルトの名無しさん** · 2020/09/09(水) 23:15:38.01

>>960
すげえ
社内システム作ってるところとかつてで色んなところに聞きいったけど数百万じゃ難しいって言われたんだ
分かる人には難しさっていうか、見積もりがわかるもんなんだな
参考までにどういうところを見て判断するもんなの？
偉い人に説明するときの参考にしたい

**デフォルトの名無しさん** · 2020/09/10(木) 01:17:25.37

>>961
変数名、インデント、コメントの入り方なんかを見れば、制作者のレベルがだいたいわかる
その上でソースの行数、モジュール数がどれぐらいか

**デフォルトの名無しさん** · 2020/09/10(木) 01:28:39.24

マクロの記録をベースにしてるのは危険な感じがする
あとループの中にgotoが入ってるやつ見たときはちょっと感動した

**デフォルトの名無しさん** · 2020/09/10(木) 01:35:20.13

vba捨ててまともなところに新しくシステム作ってもらった方が安いし早そう

**デフォルトの名無しさん** · 2020/09/10(木) 01:38:51.21

それだと社内で仕事が無くなるおっさんたちが文句言い出す

**デフォルトの名無しさん** · 2020/09/10(木) 12:15:12.05

住宅で喩えるなら　　地場でイチから設計・施工をする在来工法のパワービルダーや
社内で設計した通り加工し現地で組み立てるだけのハウスメーカー　又は方式は
一緒だけどコスト削減に特化して現地の安い下請け使って費用を抑えるローコスト系

システムを売りにしてる企業は上で言うHMに近く、依頼すればひと声一千万は相場
PBはどんどん規模が縮小してるから探すのも大変　LCHMなら見付かるかも知らんが
要求に応じかねるレベルだと思われる

当時の社内の人間が内製したレベルならその条件、例えばExcelVBAと絞って
改修・修繕の可不可(得意かどうか)を先ず相手に問えば話が早いかも知れない
業務内容を伝えるだけだとうまく伝わらずに高額商品を売る方向に話が進み兼ねない

**958** · 2020/09/10(木) 12:19:21.40

>>962
はえ～・・・なるほどなぁ
変数名は一応業界の人なら意味が分かる程度
インデントはルールから逸脱してるのはほぼない、とおもう
コメントはあることはあるけど助けられたコメントはほぼないな
'ここで●×処理をする　Sub ●×処理(・・・・・・・)　みたいなｗ
行数はただの改行も含めると3万行くらいで
モジュールが4、functionが500、subが1500くらい

この辺が大量にあるから難しいって説明しようとしてたんだけど
数行（ステップ？）なら別にF8ポチポチしながら追えるんだよね
じゃあ足りないのは根気だろ、みたいに言われて循環複雑なんちゃらみたいなの調べてたけど
結局こんな数字だしても理解されないだろうしなぁってのと、単に俺が素人だからってのもあって今に至る

>>964
マジそれなんだけど、何をしてるのか誰もわかんないから何を作ってもらえば良いのかも説明出来ないっていうねｗ
世間で言われてる炎上案件よりよっぽどかわいいレベルなのかも知れないけど
マジであと数ヶ月放置して会社潰れればいいんじゃねーかとも思ってる

**958** · 2020/09/10(木) 12:20:28.24

>>966
おっと、同じ人かもしれんけどありがとなあ

**デフォルトの名無しさん** · 2020/09/10(木) 12:36:48.47

>>961
わかんねーから高めに見積もってんだよ

**デフォルトの名無しさん** · 2020/09/10(木) 13:19:24.92

>>967
他人の作ったプロシージャを2千個3万行解析してドキュメントを作成しながらデバッグなら1千万はまあまあ妥当かと
設備投資でたった1千万が出せない会社は遠からず潰れると思うよ
ほかの資産や設備だって千万単位の修理はいつ発生してもおかしくないし

**デフォルトの名無しさん** · 2020/09/10(木) 22:45:47.73

>>970
詳しい人にそう言ってもらえるとたすかる
とりあえず素人がやるもんじゃ無いって話は集めたので素直に金だせやって資料作ってるｗ
しかし1千万つめばできちゃうってのもすげーなあ
個人にとっては大金だけど、会社にとっては中堅社員一人分/年くらいの費用だもんな

**デフォルトの名無しさん** · 2020/09/11(金) 11:34:11.36

解析・デバッグ・ドキュメント作成でひと声一千万？
じゃ、せっかく解析できたんだしそれをベースに新システム製作費は？
パッケージから大きく外れるものだったらオリジナル新規作成？千万？　都合？千万？

せっかく途中まで分析し始めたようだし「わたしに二千万ください、これやります」でいーじゃん

**デフォルトの名無しさん** · 2020/09/11(金) 19:07:30.23

>>972
日本語で

**デフォルトの名無しさん** · 2020/09/13(日) 14:01:55.06

>>972
やり方教えてくれｗｗ
まあ1千万超えは最低限な感じだね
今起きてる障害を直すだけだけどね

**デフォルトの名無しさん** · 2020/09/13(日) 18:15:28.87

業務止まってるのにのん気だな
せめて地方と業務とアプリぐらい概略書けば誰かがどこかを紹介するかも知れんぞ
アプリはAccessと踏んだが、どう？
どうせこのご時世、近場でなくともZoomやらでリモートしたりでのサポートだろうし

**デフォルトの名無しさん** · 2020/09/16(水) 23:50:50.45

結局余所に投げる方向で解決した
乗り越えられるものとそうじゃないものを見極めるのも大切と思い込むことにした
なお費用は想定の2倍近くになる模様ｗ
みんなアドバイスありがとう

**デフォルトの名無しさん** · 2020/12/20(日) 00:10:44.84

>>963
> ループの中にgotoが入ってるやつ見たときはちょっと感動した

Continue 文が無いメジャーな言語があってな。
GoTo Continue1
とか、書くときの隔靴掻痒感と言ったらもう・・・。

**デフォルトの名無しさん** · 2020/12/25(金) 06:38:58.19

もしかしてフィルタで非表示になってるセルってVBAで値参照できない？

**デフォルトの名無しさん** · 2020/12/26(土) 04:11:48.30

>>978
自己解決

**デフォルトの名無しさん** · 2021/05/14(金) 13:33:45.79

WordのVBAで質問させてください。
文書内の２種類の括弧「」『』の中にある改行だけを削除するマクロを作りたいと思っています。

例えば以下のような文章に対してマクロをかけたときに
「み
か
ん」

ば
な
な

「り
ん
ご
」

以下のような結果になるマクロです。
「みかん」

ば
な
な

「りんご」

つづきます

**デフォルトの名無しさん** · 2021/05/14(金) 13:34:48.74

Sub 括弧内の改行を削除()
Dim myRange As Range
Set myRange = ActiveDocument.Range(0, 0)
With myRange.Find
.Text = "[「『""]*^13*[""』」]"
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
Do While .Execute = True
With myRange.Find
.Text = "^13"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
DoEvents
End With
Loop
End With

Set myRange = Nothing
End Sub

**デフォルトの名無しさん** · 2021/05/14(金) 13:35:33.64

自分なりに以上のようなマクロを組んでみたのですが、実行してみると、
最初の「みかん」の改行は削除されるのですが、そのあとの「りんご」の改行が削除されません
やり方をお教えいただけると助かります。

**デフォルトの名無しさん** · 2021/05/14(金) 13:58:15.10

馬鹿には無理

**デフォルトの名無しさん** · 2021/05/14(金) 20:08:25.19

正規表現使えば一発じゃん。
VBAって正規表現使えるんだっけ？

**デフォルトの名無しさん** · 2021/05/14(金) 20:22:39.22

RegExpオブジェクトを使えば。
面倒だから俺はどうしてもというとき以外は使わない。

**デフォルトの名無しさん** · 2021/05/14(金) 20:24:37.07

Wordなら最初から正規表現もどきが使えるから、Excel VBAよりはちょっとだけ楽に文字列操作ができる