Excel VBA 質問スレ Part64

1 ：デフォルトの名無しさん ：2019/12/02(月) 23:43:54.18 ID:ngrqyTy20.net

!extend:checked:vvvvv:1000:512

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

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

---

VIPQ2_EXTDAT: checked:vvvvv:1000:512:: EXT was configured

2 ：デフォルトの名無しさん ：2019/12/03(火) 00:17:07.29 ID:C8UnG3E4M.net

>>1
MSgbox "乙"

3 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8101-MhVQ)：2019/12/03(火) 06:50:45 ID:EPisquqd0.net

北海道のグラサンのハゲはここにこないのー？

4 ：デフォルトの名無しさん ：2019/12/03(火) 07:23:30.55 ID:0rVoayhJp.net

前レスナンバー999

なんとなくわかるけど
a = msgbox 文字列

これならmsgboxが戻り値とわかるが
cells.border()

これはborderの戻り値が〜じゃなくてcellsの戻り値がボーダーに入ってんじゃないの？
関係図を教えて

5 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f602-FWG3)：2019/12/03(火) 09:16:21 ID:9IKqMgsD0.net

>>4
じゃないの
a = cells()
a.border()
って事なの

6 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f191-iiDQ)：2019/12/03(火) 10:50:38 ID:eFWYyMY/0.net

セルのボーダーのラインスタイルの戻り値にxlInsideHorizontalを入れようとしている。

7 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 92b1-W09L)：2019/12/03(火) 16:53:00 ID:HVSFa5J10.net

>>4
Cells(i, j).Borders(xlDiagonalDown).LineStyle = xlInsideHorizontal
↑色々省略されている。
↓なるべく略さずに書き直してみる。
Let Excel.Application.ActiveSheet.Cells(i,
j).Borders(xlDiagonalDown).LineStyle = xlInsideHorizontal
先頭の「Let」はステートメント（命令）で、「この行のコードの右辺の値を左辺に
代入してね」という命令になっている。
また、このコード例の場合、ピリオドの右に続く単語はすべて（たまたま）「プロパ
ティ」になっている。
だが、「ApplicationプロパティのActiveSheetプロパティ」だとか「Cellsプロパ
ティのBordersプロパティ」だとかいう語は成り立たない。
ExcelオブジェクトライブラリのApplicationプロパティにより、Applicationクラス
のインスタンス（Applicationオブジェクト）を参照(Get)
→ApplicationオブジェクトのActiveSheetプロパティにより、Worksheetクラスのイ
ンスタンス（WorkSheetオブジェクト）を参照(Get)
　→WorkSheetオブジェクトのCellsプロパティにより、Rangeクラスのインスタンス
（Rangeオブジェクト）を参照(Get)
　　（Rangeオブジェクトのデフォルトプロパティの引数にi・jを指定し、Rangeクラ
スの別のインスタンス＝Rangeオブジェクトを参照）
　　→RangeオブジェクトのBordersプロパティにより、Bordersクラスのインスタン
ス（Bordersオブジェクト）を参照(Get)
　　　（Bordersオブジェクトのデフォルトプロパティの引数にxlDiagonalDownを指
定し、Borderクラスのインスタンス＝Borderオブジェクトを参照）
　　　→BorderオブジェクトのLineStyleプロパティにxlInsideHorizontalを代入
(Let)してね（＝LineStyleプロパティプロシージャの引数にxlInsideHorizontalを指
定して、LineStyleプロパティプロシージャを実行してね）。

8 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f191-iiDQ)：2019/12/03(火) 16:57:39 ID:eFWYyMY/0.net

>>7
多分、初心者は何言ってるかサッパリ分からんだろうなw

9 ：デフォルトの名無しさん ：2019/12/03(火) 18:21:24.00 ID:0X+RZN9Ra.net

>>8
そう・・・
>>4
「Cells.Borders」は
1.アクティブなWorksheetオブジェクトのCellsプロパティを参照(Get)
　→戻り値はRangeオブジェクト
2.RangeオブジェクトのBorders（Borderではない）プロパティを参照(Get)
　→戻り値はBordersオブジェクト
という表現。
Borders()の括弧の中にxlBordersIndex定数を指定した場合、
戻り値はBorderオブジェクトになる。

「いきなりプロパティからはじまるのはおかしい」と思うかもしれないが、それは>>7に書いたとおり色々と省略しているから。

10 ：デフォルトの名無しさん ：2019/12/03(火) 18:47:20.18 ID:0X+RZN9Ra.net

>>7
って、なんかめちゃくちゃ改行入っとる・・・

書き直し。
Let Excel.Application.ActiveSheet.Cells(i, j).Borders(xlDiagonalDown).LineStyle = xlInsideHorizontal

ExcelオブジェクトライブラリのApplicationプロパティにより、Applicationクラスのインスタンス（Applicationオブジェクト）を参照(Get)
→ApplicationオブジェクトのActiveSheetプロパティにより、Worksheetクラスのインスタンス（Worksheetオブジェクト）を参照(Get)
　→WorksheetオブジェクトのCellsプロパティにより、Rangeクラスのインスタンス（Rangeオブジェクト）を参照(Get)
　　（Rangeオブジェクトのデフォルトプロパティの引数にi・jを指定し、Rangeクラスの別のインスタンス＝Rangeオブジェクトを参照）
　　→RangeオブジェクトのBordersプロパティにより、Bordersクラスのインスタンス（Bordersオブジェクト）を参照(Get)
　　　（Bordersオブジェクトのデフォルトプロパティの引数にxlDiagonalDownを指定し、Borderクラスのインスタンス＝Borderオブジェクトを参照）
　　　→BorderオブジェクトのLineStyleプロパティにxlInsideHorizontalを代入(Let)してね（＝LineStyleプロパティプロシージャの引数にxlInsideHorizontalを指定して、LineStyleプロパティプロシージャを実行してね）。

11 ：デフォルトの名無しさん ：2019/12/03(火) 19:15:56.54 ID:0rVoayhJp.net

>>10
インスタンスねぇ…
プログラム1ヶ月の人にわかると思う？荒らしか？

12 ：デフォルトの名無しさん ：2019/12/03(火) 20:14:07.74 ID:GoxUwlnv0.net

メソッドの引数は普通だけど、プロパティの引数って特別な呼び方ある？
よく考えたら他の言語にプロパティの引数って見たことないような

13 ：デフォルトの名無しさん ：2019/12/03(火) 21:25:51.83 ID:qY14OTyg0.net

>>11
それがわからんと理解できないよ
そもそも一般には聞き慣れないと言うだけでそんなに難しい概念じゃないし

14 ：デフォルトの名無しさん ：2019/12/03(火) 22:00:54.56 ID:Af3RUiJcx.net

>>12
インデクサの一種だろ

15 ：デフォルトの名無しさん ：2019/12/03(火) 23:06:13.37 ID:h3dlk8FC0.net

インスタンス？
VB.Netとかだと最初の1日目か2日目に学習することだとか言ったらまた荒れるんだろうなぁ

16 ：デフォルトの名無しさん ：2019/12/03(火) 23:11:52.57 ID:Af3RUiJcx.net

インスタンスとクラスが分からないとお話にならんわな
式で参照取得しているものが何なのかまるで分かってないってことだから

17 ：デフォルトの名無しさん ：2019/12/04(水) 00:04:05.95 ID:teYzVY+x0.net

上級者でもわかってないと思うけどな。
シートモジュールに書くと、エラー出た時に、どこで止まったか分からないから、
標準モジュール書け!とかさwww

18 ：デフォルトの名無しさん ：2019/12/04(水) 07:44:27.63 ID:95sMFvbJ0.net

そんな話じゃね―だろ。
Cells(1, 1)はA1セルを返す。

Cells(1, 1).Borders(xlDiagonalDown)はA1セルの右下がり斜め線の罫線を返す。

Cells(1, 1).Borders(xlDiagonalDown).LineStyleはA1セルの右下がり斜め線の罫線の線スタイルを返す。

Cells(1, 1).Borders(xlDiagonalDown).LineStyle = xlContinuousはA1セルの右下がり斜め線の罫線の線スタイルに直線を代入(設定)している。

初心者はこの程度の理解でOK。

19 ：デフォルトの名無しさん ：2019/12/04(水) 07:45:37.52 ID:95sMFvbJ0.net

>>17
それは上級者ではない。

20 ：デフォルトの名無しさん ：2019/12/04(水) 07:49:29.48 ID:k4fgFX/Ba.net

>>17
自分で作ってないだろ

21 ：デフォルトの名無しさん ：2019/12/04(水) 12:58:07.59 ID:pTwF3wZxd.net

ｸﾘｯﾌﾟﾎﾞｰﾄﾞの文字を操作するのはdataobjectで可能らしいですが、
スクショ撮った後に任意の座標の画素値を自動で取得するのは不可能なのでしょうか？
また、やるとするとシートに画像貼り付け→画像をbmp保存→その画像をバイナリで読み込みという流れになってしまうのでしょうか？

22 ：デフォルトの名無しさん ：2019/12/04(水) 13:01:40.27 ID:T2HYa+hHx.net

>>18
返す
直線を代入
このあたりの表現の曖昧さでひっかかるかどうかが初心者に留まる人と上級者になれる人の違いってことだわな

23 ：デフォルトの名無しさん ：2019/12/04(水) 14:05:40.23 ID:95sMFvbJ0.net

>>21
スクショ取った後じゃないとダメなの?
別にスクショ取らなくても取得できるんだが。
勿論スクショ取った後に、そのスクショの任意座標の画素値も取得できる。

24 ：デフォルトの名無しさん ：2019/12/04(水) 14:06:26.73 ID:95sMFvbJ0.net

>>21
シートに画像貼り付けとか必要無い。

25 ：デフォルトの名無しさん ：2019/12/04(水) 18:01:03.06 ID:pTwF3wZxd.net

>>23
やりたいこととしては、囲碁やオセロなどのゲーム中に、盤面をリアルタイムにスクショ等をして、そこから各座標の色を読み込むことで盤面をデータ化するという流れなのですが、画像保存の手間を省けるのであれば教えて頂きたいです。
dataobjectだとgettextでテキストのｸﾘｯﾌﾟﾎﾞｰﾄﾞは読み込めるのですが、スクショだとできませんでした、、

26 ：デフォルトの名無しさん ：2019/12/04(水) 20:05:12.18 ID:RAKlTKsZ0.net

>>25
いちいちクリップボードにスクショを入れなくても、ゲーム画面のデバイスコンテキストがわかれば、自由にピクセルの色を調べたり、逆にピクセルを書き込んだりできる
http://excel.syogyoumujou.com/memorandum/get_dc.html

27 ：デフォルトの名無しさん ：2019/12/04(水) 20:36:16.46 ID:M9X3+qe90.net

>>26
デバイスコンテキストなるものがあるのですか、、知らない概念でした、、
スクショ取るのは余計なステップだったのですね。素人にはこの発想しかなかったです
難しそうでまだざっとみただけですが、画面の画像認識系の自動化はこのやり方が基本なのですかね。
ゆっくり読んでやってみます！ありがとうございます

28 ：デフォルトの名無しさん ：2019/12/04(水) 20:46:11.63 ID:M9X3+qe90.net

ちなみにｽｸｼｮでも可能とありましたが、その際はdataobjectではなく同様にwin32apiの何かを使うことになるのでしょうか

29 ：デフォルトの名無しさん ：2019/12/04(水) 21:17:45.91 ID:le08Bijgx.net

gdiplus.dllを使う感じかな

30 ：デフォルトの名無しさん ：2019/12/04(水) 21:46:06.48 ID:z+3QCMVld.net

>>27
>>26のリンク先に殆ど書いてある。
指定座標のピクセル値を取得するなら他にGetPixelを使う。
ただ、こいつは遅い。
大量に取得するならgdiplus系のGetPixel使った方が速いけど、そこまでする必要は無いかと思う。
どっちにしてもこの辺が自在に扱えるなら間違いなく上級者だね。

>>29
>>26のリンク先の内容で行くならgdiplusじゃない。

31 ：デフォルトの名無しさん ：2019/12/04(水) 21:57:16.24 ID:M9X3+qe90.net

>>29>>30
ある程度の範囲の取得になると方針が変わるのですね、、
とりあえずまずはリンク先のやり方を勉強してみることにしてみます。
ご丁寧にありがとうございます。

32 ：デフォルトの名無しさん (ｱｰｸｾｰ Sxc1-8b9E)：2019/12/06(金) 08:56:17 ID:jTNEW24Lx.net

VBAスレの方でも質問させていただいたのですが、こちらのスレにも詳しい方がいらっしゃるようなので、質問させてください

Exchange / Outtlook VBAの質問です
初歩的な質問で申し訳ありません

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

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

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

33 ：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM43-cb5P)：2019/12/06(金) 12:30:08 ID:G0zfLpZEM.net

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

34 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 7501-cb5P)：2019/12/06(金) 18:27:30 ID:c6fF/5cl0.net

yokokara

35 ：デフォルトの名無しさん ：2019/12/06(金) 20:54:35.91 ID:Nvs1NFCt0.net

>>32
先に質問した方でちゃんと断ったん？

36 ：デフォルトの名無しさん ：2019/12/06(金) 21:19:32.34 ID:CNjj6fiz0.net

outlookを使わなければならないような身の上には同情する
さすがに人少なそうだしいいんじゃないかな
俺はoutlook自体持ってないから良くわからないや。あれまだあるのか

37 ：デフォルトの名無しさん ：2019/12/06(金) 21:25:37.04 ID:I1is1QTTM.net

今のOutlookは使いやすくなってるよ
俺の中のOutlookは2000で止まってたから久々に使うことになってびっくりした
もはや別物

38 ：デフォルトの名無しさん ：2019/12/06(金) 21:33:39.56 ID:CNjj6fiz0.net

そうなのか？
大変そうだしoutlook入ってるし使ってみるか、と思ったらメールアドレスが必要なので諦めた
頑張って！

39 ：デフォルトの名無しさん ：2019/12/06(金) 22:46:30.30 ID:Nvs1NFCt0.net

2013時点ではまだ使いにくい…

40 ：デフォルトの名無しさん (ｵｯﾍﾟｹ Src1-paXL)：2019/12/08(日) 04:18:02 ID:b513l43Er.net

正直メール関係でマクロは怖いな
ローカルでサーバ建ててテストするならともかくExchangeでいきなり本番環境でしょ？

41 ：デフォルトの名無しさん ：2019/12/08(日) 09:25:05.41 ID:om5egmGHx.net

アカウント情報やOutlookアイテムの読み取り、アイテムダウンロードだけならExchange環境でのマクロ使用を恐れる理由はないかと思う

42 ：デフォルトの名無しさん ：2019/12/08(日) 16:03:51.58 ID:Bl/pyruh0.net

すみません、お力を貸して頂きたいです。超初心者です。

固定長形式テキストデータを読み込んでExcelに落としたいのですが、ファイルの名前がその時によって違うので、下記のようにファイル名固定ではなく、
”C:\test\"をオープンさせてその中から選択したテキストデータを読み込むようにしたいです。
試行錯誤しているのですが、作成完了まで時間がなく基礎的な知識も足りず、、　そのように書き換えて頂けないでしょうか；；

Sub READ_test()
Const cnsFILENAME = "\test1.txt"
Dim FSO As New FileSystemObject ' FileSystemObject
Dim TS As TextStream ' TextStream
Dim GYO As Long ' 収容するセルの行
Dim strREC As String ' レコードを収容する変数

' 指定ファイルをOPEN(入力モード)
Set TS = FSO.OpenTextFile(ThisWorkbook.Path & cnsFILENAME, ForReading, False)
' 2行目から開始
Rows("2:65536").ClearContents
GYO = 2
Do Until TS.AtEndOfStream
' レコードの読み込み(改行発見までの可変長⇒Ascii変換)
strREC = StrConv(TS.ReadLine, vbFromUnicode)
' １レコード分のセルへのセット
Call GP_EDIT_FixLngRec(strREC, GYO)
' 行を加算
GYO = GYO + 1
Loop
' 指定ファイルをCLOSE
TS.Close
Set TS = Nothing
Set FSO = Nothing
End Sub

43 ：デフォルトの名無しさん ：2019/12/08(日) 16:05:10.30 ID:Bl/pyruh0.net

続き

Private Sub GP_EDIT_FixLngRec(strREC As String, GYO As Long)
Cells(GYO, 1).Value = FP_GET_REC_To_String(strREC, 1, 5)
Cells(GYO, 2).Value = FP_GET_REC_To_String(strREC, 6, 5)
End Sub

Private Function FP_GET_REC_To_String(strREC As String, _
lngStrPos As Long, _
lngLngs As Long) As String
Dim strREC2 As String
strREC2 = Trim(StrConv(MidB(strREC, lngStrPos, lngLngs), vbUnicode))
FP_GET_REC_To_String = strREC2
End Function

Private Function FP_GET_REC_To_Numeric(strREC As String, _
lngStrPos As Long, _
lngLngs As Long) As Currency
Dim strREC2 As String
strREC2 = StrConv(MidB(strREC, lngStrPos, lngLngs), vbUnicode)
FP_GET_REC_To_Numeric = CCur(strREC2)
End Function

44 ：デフォルトの名無しさん ：2019/12/08(日) 16:14:11.41 ID:/kMCly/xM.net

目がチカチカするから大文字変数関数やめろ
COBOLかよ

45 ：デフォルトの名無しさん ：2019/12/08(日) 16:57:19.39 ID:om5egmGHx.net

' 指定ファイルをOPEN(入力モード)
Dim cDir As String
Dim srcName As String
srcName = "C:\test"

With Application.FileDialog(msoFileDialogFilePicker)
　　.InitialFileName = srcName
　　.Show
　　If .SelectedItems.Count = 0 Then Exit Sub
　　srcName = .SelectedItems(1)
End With

Set TS = FSO.OpenTextFile(srcName, ForReading, False)
' 2行目から開始


ファイル名指定の箇所だけ一部書き換えてみたので試してみて
ちなみにこの手のcsv読み込み作業は一からvbaでスクラッチするよりも今やQueryTable使った方が早いと思うので、暇があったら調べるといいよ

46 ：デフォルトの名無しさん ：2019/12/08(日) 17:19:26.73 ID:Bl/pyruh0.net

>>45
できました…！！
本当に助かりました、ご親切にありがとうございます！！；；
時間が出来たらQueryTableも調べてみます！

47 ：デフォルトの名無しさん ：2019/12/08(日) 17:46:46.44 ID:om5egmGHx.net

>>46
動いてよかった
急いで書いたからDim cDirの行とか要らない行が入ってたわ、ごめんね
テキスト読み込みなのにCSVどうこうとか言っちゃってるし
適当にコード直してつかってね

48 ：デフォルトの名無しさん ：2019/12/08(日) 18:05:03.89 ID:Bl/pyruh0.net

>>47
了解です。
頂いたコードは今後勉強する時にも参考にさせていただきます…！
本当にありがとうございました！

49 ：デフォルトの名無しさん ：2019/12/08(日) 20:46:43.66 ID:m4NCsCKi0.net

教えて下さい。
役所のWeb公開している、DL済みxlsxファイルの「前回更新日時」を取得して
自book特定セルに落とそうと、
Webを漁って以下のVBAを書いてみた。
※ なんでわざわざプロパティの「前回更新日時」を取得するのかというと
ただの「更新日時」では、自分がDLした日時になってしまうから。

Public Sub getFileLastSaveTimeButton()
With CreateObject("Excel.Application")
.Visible = False
With .Workbooks.Open(Cells(8, 1).Value)
Cells(8, 2).Value = .BuiltinDocumentProperties("Last save time").Value
End With
.Quit
End With
End Sub

Cell(8,1).Value の(8, 1)=A8セルに
目的のファイルのフルパスを入力済みなんだけど、
ここを定義された名前に置き換えたい。

Worksheetで普通に
A8 = R_TargetFullPath
と名前を定義して
VBA上で
　With .Workbooks.Open(R_TargetFullPath)
としたら
　実行時エラー '1004':
　申し訳ございません。が見つかりません。
　名前が変更されたか、移動や削除が行われた可能性があります。
と出てしまうのは、なんでだろ？
Public Subだから？

50 ：デフォルトの名無しさん ：2019/12/08(日) 21:02:19.63 ID:m4NCsCKi0.net

教えて下さい。
役所のWeb公開している、DL済みxlsxファイルの「前回更新日時」を取得して
自book特定セルに落とそうと、Webを漁って以下のVBAを書いてみた。
※ なんでわざわざプロパティの「前回更新日時」を取得するのかというと
　ただの「更新日時」では、自分がDLした日時になってしまうから。

Public Sub LastSaveTime()
With CreateObject("Excel.Application")
.Visible = False
With .Workbooks.Open(Cells(8, 1).Value)
Cells(8, 2).Value = .BuiltinDocumentProperties("Last save time").Value
End With
.Quit
End With
End Sub

これ自体は上手くいくんだけど、
目的のファイルのフルパスが入力済みの、
Cell(8,1).Value の(8, 1)=A8セルを
定義された名前に置き換えたい。

Worksheet上で普通に
　$A$8 = R_TargetFullPath
と名前を定義して
VBA上で
　With .Workbooks.Open(R_TargetFullPath)
としたら
　実行時エラー '1004':
　申し訳ございません。が見つかりません。
　名前が変更されたか、移動や削除が行われた可能性があります。
と中途半端なエラーが出てしまうのは、なんでだろ？
Public Subだから？

51 ：デフォルトの名無しさん ：2019/12/08(日) 21:04:30.92 ID:m4NCsCKi0.net

ごめん。

専ブラ不調で
>>49,50と、
二重投稿になってしまった。

52 ：デフォルトの名無しさん ：2019/12/08(日) 21:11:35.36 ID:uIaXKQtl0.net

>>50
Range(名前).Value

53 ：デフォルトの名無しさん ：2019/12/08(日) 21:38:38.38 ID:m4NCsCKi0.net

>>52
ありがとう。やってみた。
・・・

　実行時エラー '1004':
　'Range' メソッドは失敗しました: '_Global' オブジェクト

だって。

54 ：デフォルトの名無しさん ：2019/12/08(日) 22:06:19.10 ID:ick2zDgR0.net

yokokara

55 ：デフォルトの名無しさん ：2019/12/08(日) 22:10:45.88 ID:qsJQUXNgx.net

>>53
違うブックや違うシートがアクティブになっているとかで、名前付きセルが見つけられなくてエラーが返ってきてるんじゃないの
ブック名を指定して式を書き起こせば問題なく動くと思うが

56 ：デフォルトの名無しさん ：2019/12/08(日) 22:49:12.52 ID:uIaXKQtl0.net

>>53
Rangeにブックやシートの指定してる？

57 ：デフォルトの名無しさん ：2019/12/08(日) 23:01:44.63 ID:gCiRV9kE0.net

MsgBox R_TargetFullPath

で何が表示されるか見てみたら?

58 ：デフォルトの名無しさん ：2019/12/08(日) 23:04:27.84 ID:m4NCsCKi0.net

>>55
ありがとう。

フォルダパスも名前を定義しているんだけど、
まずはその定義名を使わず、以下でやってみた。

With .Workbooks.Open(R_TargetFullPath)
　↓
With .Workbooks.Open(Range("E:\Excel研究\前回保存日時の取得\○○の場合\'Last save timeを得るVBA.xlsm'!R_TargetFilePath").Value)

コンパイルは通った。
で、立ち上げているのは自bookだけなのを確認して
マクロを実行した結果、

　実行時エラー '1004':
　'Range' メソッドは失敗しました: '_Global' オブジェクト

むぅ・・・

59 ：デフォルトの名無しさん ：2019/12/08(日) 23:18:37.85 ID:m4NCsCKi0.net

>>56
ありがとう。

>>55 はシート名を飛ばしているけど、
定義名があるシート名も入れ込もうとしたら
どう書いたら良いのだろう？

「ファイル選択」がシート名なんだけど、
・・・\'Last save timeを得るVBA.xlsm'!ファイル選択!R_TargetFilePath
でも、
・・・\['Last save timeを得るVBA.xlsm']!ファイル選択!R_TargetFilePath
でも、結果は
　実行時エラー '1004':
　'Range' メソッドは失敗しました: '_Global' オブジェクト
だった。

60 ：デフォルトの名無しさん ：2019/12/08(日) 23:23:11.19 ID:zBnJIcph0.net

>>59
死ね

61 ：デフォルトの名無しさん ：2019/12/08(日) 23:31:46.83 ID:m4NCsCKi0.net

>>57
ありがとう。

目的のファイル指定は取りあえず置いといて
画面抑止のままのこの主旨でいいのかな？

Public Sub LastSaveTime2()
With CreateObject("Excel.Application")
.Visible = False
MsgBox R_TargetFullPath
End With
End Sub

で、MSGの結果は、中身がブランク。

62 ：デフォルトの名無しさん ：2019/12/08(日) 23:32:04.18 ID:m4NCsCKi0.net

>>60
どうぞお幸せに。

63 ：デフォルトの名無しさん ：2019/12/08(日) 23:35:44.03 ID:uIaXKQtl0.net

>>59
普通にシート指定すればよい
はっきり理解できてないのにブックもシートも指定せずセルを扱うなんて危険なことはやめた方がいい

ところでR_TargetFullPathはセル名と言ってなかったかな？
>Workbooks.Open(R_TargetFullPath)
これが通るってR_TargetFullPathの中にフルパスが入ってるとしか思えない

64 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 4bda-Fgt1)：2019/12/08(日) 23:50:05 ID:m4NCsCKi0.net

>>63
> 普通にシート指定すればよい

その「普通」がよく分からなくて。
>>59 で試行したように、
sheet上での関数に他のbookから参照させるのとは
勝手が違うようだ。

> ところでR_TargetFullPathはセル名と言ってなかったかな？

は、>>50 で書いたとおり、
Worksheet上で普通に
　$A$8 = R_TargetFullPath
と名前を定義して
としただけ。

65 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 4d7c-TCJi)：2019/12/09(月) 00:26:53 ID:JYKNIWO60.net

>>64
シート指定とか調べず勘でやってるのか？
基本が無いのに勘で文法は書けないよ、知らないならちゃんと調べた方がいい

名前を定義とは、$A$8セルに「R_TargetFullPath」という名前を付けたと言ってる？
ちなみにVBAでR_TargetFullPathという名前の変数か定数作ったりしてない？

66 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 2359-VnuC)：2019/12/09(月) 00:28:16 ID:s6MuVJyT0.net

R_TargetFullPathに何を入れたいのかもう一度よく考えてコードを見直せ

67 ：50 ：2019/12/09(月) 18:07:53.39 ID:Z8IKnDOY0.net

いろいろ考えてくれた皆さん、どうもありがとう。
自分の考えを上手く伝えられず、申し訳ない。

自分なりの考えで、確証は得られていないけど、
・"BuiltinDocumentProperties" を使った「前回更新日時」の取得は、対象ファイルをいちいち開かないと取得出来ないため、Public Subでやるしかない。
・が、Range(定義名)では、例えアクティブな自sheet内の定義名でもなぜか上手く取得出来ない。
・ただし、アクティブなセルをCells(行数, 列数)なら値取得が出来る。
ということかと。

ならば、「1つのファイルの日時を取得するのに定義名を使う」考え方を変えて、
・Cells(行数, 列数)を活かして、フォルダにDLした .xl* ファイルの、全ての前回更新日時を取得する。
としたら、出来た。

3つめの "Public Sub LastSaveTime3()" をボタンにマクロ登録
https://i.imgur.com/19QWsrZ.png

Power Queryで取得したフォルダ内.xl*ファイル一覧表（タイトルが黄緑色の列）の右列に
上記VBAで「前回更新日時」を取得した結果（タイトルが深緑色の列）
https://i.imgur.com/jegG0b5.png

68 ：デフォルトの名無しさん ：2019/12/09(月) 19:47:30.76 ID:FU5EvZBv0.net

ここには北海道のグラサンスーパーハゲザーこないのー？

69 ：デフォルトの名無しさん ：2019/12/09(月) 20:06:58.60 ID:JYKNIWO60.net

>>67
ブックとシートを指定せずにセルを指定してるから取得できないと何度…
指定してないからアクティブなシートを拾いに行く
アクティブなシートに名前の定義がなければ当然名前の定義を取得できるわけがない

70 ：デフォルトの名無しさん ：2019/12/09(月) 20:26:18.92 ID:e1eF5taTx.net

>>67
Public Subによる制御フローじゃないとドキュメントプロパティを参照できないなんていう制約は存在しないと思う

71 ：デフォルトの名無しさん ：2019/12/09(月) 20:35:27.90 ID:Z8IKnDOY0.net

>>70
ただのSubに変えたら、ダメだった。

72 ：デフォルトの名無しさん ：2019/12/09(月) 20:37:14.17 ID:Z8IKnDOY0.net

>>69
仰いますけど、
参照しようとした定義名は、自bookのアクティブsheet内だす。

73 ：デフォルトの名無しさん ：2019/12/09(月) 20:45:36.21 ID:Z8IKnDOY0.net

>>71
参考にしたのはMSコミュニティのこれ↓

https://answers.microsoft.com/ja-jp/msoffice/forum/msoffice_excel-mso_other-mso_2010/%E5%89%8D%E5%9B%9E%E4%BF%9D%E5%AD%98%E6%97%A5/97f992ad-416d-e011-8dfc-68b599b31bf5?messageId=33ce5330-cb6f-e011-8dfc-68b599b31bf5&auth=1

74 ：デフォルトの名無しさん ：2019/12/09(月) 21:50:46.52 ID:TvnOkFVF0.net

Range("R_TargetFullPath").Value

75 ：デフォルトの名無しさん ：2019/12/09(月) 22:19:06.53 ID:JYKNIWO60.net

>>72
そのシートがアクティブになっていれば取得できる
なってなければ取得できない
取得できないということはアクティブだと思い込んでるだけか、名前が間違ってるか、指定が間違ってるか

76 ：デフォルトの名無しさん ：2019/12/09(月) 22:21:49.68 ID:ZJISTsUc0.net

>>72
シートは一つ？別のシートにも同名範囲があって特定できないとか？

77 ：デフォルトの名無しさん ：2019/12/09(月) 22:23:12.83 ID:JYKNIWO60.net

>>74
それだと1004エラーが出たらしい

78 ：デフォルトの名無しさん ：2019/12/10(火) 00:08:00.24 ID:IGUOZi3/x.net

>>73
これはサブルーチン呼び出しの都合でPublicスコープにしているだけで、BuildinDocumentPropertiesの仕様とは関係ないのでは

79 ：デフォルトの名無しさん ：2019/12/10(火) 00:18:53.99 ID:IGUOZi3/x.net

名前付き範囲のスコープの問題もありそう

80 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 4be8-V35x)：2019/12/10(火) 06:11:01 ID:1SW8Wt4N0.net

>>77
その時は
Range(R_TargetFullPath).Value
としたんじゃないか？>>52-53

81 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 037d-V35x)：2019/12/10(火) 11:53:22 ID:Snrdoe410.net

ページに設定しているフィルターの解除をする場合

Range("E5").Select
Selection.AutoFilter

といった具合にRangeとセットで使うしか無いのでしょうか？
ここでは、VBAで「E5」を指定していますが、中のデータが入力により空になる事もある為
Range指定する事なくフィルタを解除したいです。

82 ：デフォルトの名無しさん ：2019/12/10(火) 20:17:21.65 ID:78OD2uofx.net

>>81
ページって何？シートのこと？
それとも印刷範囲のこと？

83 ：デフォルトの名無しさん ：2019/12/10(火) 21:36:21.94 ID:ntdCbZOy0.net

シート１のJ１〜J220のセルをシート２に行で張り付けて
それをどんどん繰り返して１〜48400の列を220*220の表にしたいんだけど、forに対するnextが無いと怒られます
3つのforに対してnextが足りてないのはわかるのですが、適当な場所においてもエラーが出ます
どうしたら解決するでしょうか？

Sub TEST4()
Dim S1 As Worksheet, S2 As Worksheet
Dim i As Integer, y As Integer, z As Integer

For i = 1 To 220
For y = 1 To 48181 Step +220
For z = 220 To 48400 Step +220

Set S1 = Worksheets("Sheet1")
Set S2 = Worksheets("Sheet2")
S2.Range("A" & i & ":" & "HL" & i).Value = S1.Range("J" & y & ":" & "J" & z).Value
Next

End Sub

84 ：デフォルトの名無しさん ：2019/12/10(火) 21:54:10.27 ID:bwWsAejd0.net

>>83
Sub TEST4()
　　Dim S1 As Worksheet, S2 As Worksheet
　　Dim r1 As Long, r2 As Long

　　Set S1 = Worksheets("Sheet1")
　　Set S2 = Worksheets("Sheet2")
　　r2 = 1

　　For r1 = 1 To 48400 Step 220
　　　　S2.Range("A" & r2 & ":HL" & r2) = WorksheetFunction.Transpose(S1.Range("J" & r1 & ":J" & r1 + 219))
　　　　r2 = r2 + 1
　　Next
End Sub

85 ：デフォルトの名無しさん ：2019/12/10(火) 21:58:10.86 ID:blXuValB0.net

>>83
間違った場所に置くからエラーが出るんでしょうな

86 ：デフォルトの名無しさん ：2019/12/10(火) 22:05:06.97 ID:bwWsAejd0.net

Sub TEST4()
　　Dim S1 As Worksheet, S2 As Worksheet
　　Dim r1 As Long, r2 As Long
　　Set S1 = Worksheets("Sheet1")
　　Set S2 = Worksheets("Sheet2")
　　r2 = 1
　　For r1 = 1 To 48400 Step 220
　　　　S2.Range("A" & r2).Resize(, 220) = WorksheetFunction.Transpose(S1.Range("J" & r1).Resize(220))
　　　　r2 = r2 + 1
　　Next
End Sub

87 ：デフォルトの名無しさん ：2019/12/10(火) 22:33:04.15 ID:e5kRWpUlM.net

>>83
シート1には既に220*220の表があって、それをシート2に縦横入れ換えて貼り付けたいってこと？

88 ：デフォルトの名無しさん ：2019/12/10(火) 22:41:16.48 ID:+pH53X+X0.net

現在表示しているワークブックからファイル名の一部を取り出して、その数字をMsgBoxで表示するなど他の計算で使うことってできないでしょうか？

例えば「01-5.xlsx」の場合「-5」、「02+5.xlsx」の場合「5」、「03+1000.xlsx」の場合「1000」、「04-1234.xlsx」の場合「-1234」のような形
左の数字は2桁、右の数字は1〜4桁でファイルによって違います
0や小数点以下の数字はありません
ファイル名がプラスの場合とマイナスの場合があります
正数の場合ファイル名は+表記ですが記号自体は必要ありません
「マクロを実行しているワークブック」ではなく「現在表示しているワークブック」のファイル名を参照したいです

プログラミングの経験が全くなくて先週からマクロを触り始めたので不可能なことを質問かもしれませんがよろしくお願いします

89 ：デフォルトの名無しさん ：2019/12/10(火) 22:46:23.21 ID:ntdCbZOy0.net

>>84、866
スゲーできたーありがとうございます。中身よく見て、勉強します。

>>87
シート１に１列で48400ほどデータがあるんで、それを別シートに220*220の表にしたかったんです。

90 ：デフォルトの名無しさん ：2019/12/10(火) 23:00:44.84 ID:78OD2uofx.net

>>88
+ または - を区切り文字としてThisworkbook.NameをSplit関数で分割して配列化する

得られた配列の二つ目の要素を取り出して整数型に型変換する

この二つのステップを実現すれば良い

91 ：デフォルトの名無しさん ：2019/12/10(火) 23:02:34.06 ID:78OD2uofx.net

>>88
よく要件を読んだらThisworkbook.Nameより
ActiveWorkbook.Nameの方が良いかも

92 ：デフォルトの名無しさん ：2019/12/10(火) 23:04:16.14 ID:blXuValB0.net

>>90
-が消える上に.拡張子まで全部取得する羽目になる

93 ：デフォルトの名無しさん ：2019/12/10(火) 23:06:54.98 ID:blXuValB0.net

ファイル名を.で区切った1個目の3文字目以降を取得して数値変換すればいい

94 ：デフォルトの名無しさん ：2019/12/11(水) 01:12:21.51 ID:HRfJYRvp0.net

>>82
シートです！

95 ：デフォルトの名無しさん ：2019/12/11(水) 05:06:25.08 ID:rrddvJwO0.net

>>81
Worksheets("シート1").Autofiltermode ＝ false

96 ：デフォルトの名無しさん ：2019/12/11(水) 09:15:52.19 ID:0sWj3Hq10.net

>>83
For NextではNextの後を省略すべきじゃない。
For Eachならまだ分かるが。

97 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 037d-V35x)：2019/12/11(水) 11:27:42 ID:HRfJYRvp0.net

>>95
サンキュー！！

98 ：デフォルトの名無しさん ：2019/12/11(水) 19:02:34.08 ID:3wTkanlw0.net

それ多分フィルタ掛かってないとコケる。
On Error〜か、If AutoFilterMode Then入れないと。

99 ：デフォルトの名無しさん ：2019/12/11(水) 23:16:02.27 ID:0sWj3Hq10.net

>>98
Falseにする分には問題無い。

100 ：デフォルトの名無しさん ：2019/12/12(木) 20:44:42.97 ID:gjQRRqT20.net

>>88
Sub test2()
'整数を格納
Dim lngFileName As Long

'正規表現オブジェクトを作成
Dim objReg As Object, objRegMatch
Set objReg = CreateObject("VBScript.RegExp")
With objReg
'ファイル名のパターンを指定
'[半角数字2文字][区切り文字1文字][半角数字1〜4文字][拡張子(xlsxまたはxls)]に一致
.Pattern = "^\d{2}.(\d{1,4})\.(?:xlsx|xls)$"
.Global = True
End With

'正規表現にマッチしないファイル名だった場合の処理
Set objRegMatch = objReg.Execute(ActiveWorkbook.Name)
If objRegMatch.Count < 1 Then
'メッセージボックスを表示
MsgBox ("正規表現アンマッチ")
'Label1にジャンプして処理を終了
GoTo Label1
End If

'正規表現のグループ化した部分を整数として格納
lngFileName = objReg.Replace(ActiveWorkbook.Name, "$1")

'メッセージボックスを表示
MsgBox (lngFileName)
Label1:
End Sub

101 ：デフォルトの名無しさん ：2019/12/12(木) 21:07:09.62 ID:TAtdTKRF0.net

ここには北海道のグラサンスーパーハゲザーこないのー？

102 ：デフォルトの名無しさん ：2019/12/12(木) 22:26:00.96 ID:NQXxI4iB0.net

ファイル名に + と - は使えないんじゃね

103 ：デフォルトの名無しさん ：2019/12/12(木) 22:29:22.61 ID:NQXxI4iB0.net

あれ？使えるのか

104 ：デフォルトの名無しさん ：2019/12/12(木) 23:03:36.86 ID:pxF5Pr1U0.net

>>103
使えるけどコマンドプロンプトでトラブルが起きることがあるから推奨しないと主張する派閥もいる

105 ：デフォルトの名無しさん ：2019/12/13(金) 08:53:38.24 ID:Kr+RdvKJM.net

特定のディレクトリに複数のエクセルがあってそのエクセルの特定のシートに値を設定するってマクロを作ったところなんですが特定のシートがない場合は処理を抜けるようにするのってどうすればいいんでしょうか

106 ：デフォルトの名無しさん ：2019/12/13(金) 09:22:06.72 ID:jxXQPWyn0.net

バイナリデータをエクセルに16列で読み込んで（ここまでは出来た）、
今度はそれの逆をしようとしているのですが最初で詰まっています

とりあえず1列だけでもと、やってみたものの全然うまくいきません
サンプルのOutputをBinaryに、Print をPut構文にすればできるような気がするのですが
出力ファイルにデータが反映されてなかったりといった状況です

Sub make()

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
Dim datFile As Variant
datFile = ActiveWorkbook.Path & "\data.bin"

Open datFile For Output As #1

Dim i As Long
i = 1
Do While ws.Cells(i, 1).Value <> ""
Print #1, ws.Cells(i, 1).Value
i = i + 1
Loop

Close #1

End Sub

107 ：デフォルトの名無しさん ：2019/12/13(金) 09:29:21.11 ID:tON2FCC6x.net

>>105
Dir関数かFileSystemObject. FileExistsで調べられる

108 ：デフォルトの名無しさん ：2019/12/13(金) 09:33:50.19 ID:tON2FCC6x.net

>>105
ファイル存在確認じゃなくてシート存在確認かごめん

109 ：デフォルトの名無しさん ：2019/12/13(金) 10:57:50.32 ID:Kr+RdvKJM.net

>>108
シートがない場合の件はForで回して無事解決できました

110 ：デフォルトの名無しさん ：2019/12/13(金) 12:12:29.79 ID:Kr+RdvKJM.net

VBAで名前定義がされたセルに値を書き込む際名前定義の範囲がシート指定の場合操作できないのでしょうか

111 ：デフォルトの名無しさん ：2019/12/13(金) 14:57:25.33 ID:tYi2uLeR0.net

>>106
出力するデータの型がバイナリになっていないとだめかも

112 ：デフォルトの名無しさん ：2019/12/13(金) 18:47:12.50 ID:PdnkT2240.net

>>110
そんなことないはず。

113 ：デフォルトの名無しさん ：2019/12/13(金) 21:57:03.12 ID:mlyVYmAb0.net

北海道のグラサンスーパーハゲザーはここにこないのー？

114 ：デフォルトの名無しさん ：2019/12/14(土) 10:49:44.02 ID:q6pf2Uya0.net

PDFからのデータ取得ってどうにかならんもんかな。
Adobeの有料版使ってエクセル変換してるが、フォーマットによってはレイアウト崩れが酷くて使い物にならん。
ハイライトリストも試してみたんだけど、文字がぶつ切りでしか取れなくて、速度も遅い。
座標見ながら文字結合するのもアレだし。
RPA的にコピペするのもマヌケだしなぁ。

115 ：デフォルトの名無しさん ：2019/12/14(土) 11:40:24.17 ID:0wkcBg3Ka.net

そんな馬鹿なことをしなくてもいいように業務フローを見直す、が正解

116 ：デフォルトの名無しさん ：2019/12/14(土) 11:59:38.55 ID:qU+OtdBcd.net

>>114
理論上はPostscriptを完璧にシミュレートすれば可能なはずなんだけど、かなり面倒だしそこまでやってるアプリは今のところ見た事ない
レイアウトが崩れない変換アプリがあるんなら教えて欲しいわ

117 ：デフォルトの名無しさん ：2019/12/14(土) 14:16:07.99 ID:O6whyyHQ0.net

PDFのレンダリングは完璧なんだから
取得ができないのは本来おかしいんだけどね

118 ：デフォルトの名無しさん ：2019/12/15(日) 09:28:05.88 ID:P17lNwFm0.net

環境は、OS:Windows10, Excel2016です。
初歩的な質問ですが、よろしくお願いします。

エクセル開発タブ⇒マクロの記録を選択
マクロの保存先を新しいブックにしてＯＫすると、
新しいブックが表示されてしまいます。（EXCEL2010までは表示はされなかった気がします。）
表示させないようにしたいですが方法はありますでしょうか？

119 ：デフォルトの名無しさん ：2019/12/15(日) 12:10:44.95 ID:JDQV93QX0.net

Excelの使い方の質問ですな

120 ：デフォルトの名無しさん ：2019/12/15(日) 13:30:33.36 ID:STgulX1kx.net

>>118
そもそもそんな質問をする理由が分からない
マクロの保存先を作業中のブックに変えればいいだけの話では
RPAとかの都合なのか？

121 ：デフォルトの名無しさん (ﾜｯﾁｮｲ eff1-ctch)：2019/12/15(日) 14:37:37 ID:Jtes46Zd0.net

VBAのコードを長時間書いていたら肛門が痛くなりました。
これは何かの病気？いい薬はありますか？

122 ：デフォルトの名無しさん ：2019/12/15(日) 15:56:49.13 ID:ZgYfMqOYM.net

Worksheets(1), Worksheets(2), Worksheets(3), ...
が常にワークシートの並び順になっている事を前提にコーディングしても大丈夫ですか？

123 ：デフォルトの名無しさん ：2019/12/15(日) 16:04:03.19 ID:jQWuvGce0.net

止めは先が100%大惨事になるだろうな

124 ：デフォルトの名無しさん ：2019/12/15(日) 16:08:21.42 ID:STgulX1kx.net

>>122
OK
シートの並び順とシートのIndexは連動しているから

ただ他人と共有するブックでシートIndexに依存したコードを書くならば、シートの追加や削除や並び替えをユーザー側で行えなくするために、ブック構成の保護をかける必要はあるかも

125 ：デフォルトの名無しさん ：2019/12/15(日) 20:43:05.99 ID:FsE4lMSlp.net

>>122
非表示がなければ

126 ：デフォルトの名無しさん ：2019/12/15(日) 21:19:26.62 ID:SHKnrJYm0.net

インデックス値とシートの順にそんな保証あったかな
使い古しのワークブックだと最初のシートがSheet1とは限らない気がするし

127 ：デフォルトの名無しさん ：2019/12/15(日) 21:53:45.41 ID:jQWuvGce0.net

sheet1じゃなくてsheet(1)だぞ
左端がsheet(1)

128 ：デフォルトの名無しさん ：2019/12/15(日) 22:30:02.10 ID:STgulX1kx.net

>>126
CodeNameの話じゃなくてシートインデックスの話だぞ

129 ：デフォルトの名無しさん ：2019/12/15(日) 23:11:58.85 ID:HW9FgRDW0.net

VBAで拡張子がDWGのCAD図面ファイルから文字列と数字を抜き出してエクセルに貼り付けたいんだけどなんかイイ方法ない？

130 ：デフォルトの名無しさん ：2019/12/15(日) 23:42:09.44 ID:LATD77rz0.net

AutocadのVBA使えば。

131 ：デフォルトの名無しさん ：2019/12/15(日) 23:44:25.04 ID:4M9N/f7Ka.net

>>130
AutoCADのソフトは持ってないんだけど出来るの？

132 ：デフォルトの名無しさん ：2019/12/16(月) 02:59:51.17 ID:81b5k4YR0.net

DXFファイルはないのか？

133 ：デフォルトの名無しさん ：2019/12/16(月) 08:14:35.94 ID:ylV0M4Pv0.net

>>132
ないんだ

134 ：デフォルトの名無しさん ：2019/12/16(月) 08:19:35.03 ID:MkhWpp+30.net

>>129
VBAからほかのアプリをコントロールする方法があるから、適当なフリーウェアでDXFに変換
DXFはテキストファイルだから文字列がそのまま入ってる

135 ：デフォルトの名無しさん ：2019/12/16(月) 09:20:06.30 ID:ylV0M4Pv0.net

>>134
会社だからあんまりフリーソフト入れたくないんだよなぁ

136 ：デフォルトの名無しさん ：2019/12/16(月) 12:08:57.72 ID:t2/k2gwa0.net

どこまで読み取りたいのか分からんが、タイトルとかコメントとか作者とかは読み取れるんじゃない?

AutoCAD入ってなくても動くか分からんけどCOM用のAPI使って読み取るサンプルならAutodeskのフォーラムに有ったぞ。

137 ：デフォルトの名無しさん ：2019/12/16(月) 18:36:30.35 ID:81b5k4YR0.net

>>135
業務上必要だと上司に相談して無理ならできませんでいいやん

138 ：デフォルトの名無しさん ：2019/12/16(月) 19:13:38.22 ID:zd6rche20.net

DWGファイルを扱うってことはどっかの部署ではAutoCADが動いてるわけだから環境借りるなりすればいい

139 ：デフォルトの名無しさん ：2019/12/16(月) 19:29:44.71 ID:A0F2PFYR0.net

何がやりたいのか（最終目的が何なのか）分からないが、
AutoCADのスレで質問した方がいいと思う

AutoCAD総合スレ part7
https://mevius.5ch.net/test/read.cgi/bsoft/1556080032/

140 ：デフォルトの名無しさん ：2019/12/16(月) 20:17:26.44 ID:+vV5KnGFa.net

そんなデータの編集業務ってブラック企業じゃね

141 ：デフォルトの名無しさん ：2019/12/16(月) 20:25:39.43 ID:ylV0M4Pv0.net

図面から読み取る仕事が多くてVBAで自動化できないかと考えてるだけだよ。ブラック企業でもないよ。
バイナリファイルじゃ読み取れないし、フリーソフトで一つ一つテキストファイルDXFに変換っていうのもなかなかナンセンスな気がする

142 ：デフォルトの名無しさん ：2019/12/16(月) 21:37:32.27 ID:CfM/IfFed.net

>>141
お前が馬鹿なだけだろ

143 ：デフォルトの名無しさん ：2019/12/16(月) 21:44:36.78 ID:UUZzkS6j0.net

よかったな天才に教えて貰えるぞ

144 ：デフォルトの名無しさん ：2019/12/16(月) 21:59:33.00 ID:UZ2w46Iu0.net

>>141だけど天才の>>142に教えてほしい。どうしたらいい？

145 ：デフォルトの名無しさん ：2019/12/16(月) 23:05:55.21 ID:ArNGhSEVa.net

その図面データに営利目的で使用してはいけないって書いてないか？

146 ：デフォルトの名無しさん ：2019/12/16(月) 23:19:30.71 ID:zUbFdDFya.net

社内の人が作ってる図面なんだが

147 ：デフォルトの名無しさん ：2019/12/17(火) 01:41:33.76 ID:fNjlS94d0.net

だったら保存形式かえてもらえばすむやん

148 ：デフォルトの名無しさん ：2019/12/17(火) 02:29:00.49 ID:7tj6sNHj0.net

CADファイルならVISIOで開けるじゃね
VISIOにVBA載ってなかったか

149 ：デフォルトの名無しさん (ﾜｯﾁｮｲ a201-VrMI)：2019/12/17(火) 02:51:35 ID:Ef4LKPDY0.net

DWGもCOM経由でExcelから扱える

150 ：デフォルトの名無しさん ：2019/12/17(火) 08:50:39.06 ID:7E3y3B+ga.net

Excelで作成したものをフリーOfficeのCalcで開こうとするとエラーが出るので、違うPCのExcelにコードを写したいのですが、どうすれば良いでしょうか？
sheetは5枚でそれぞれデータが入力されています。
そのシートをコピーしてマクロコードをコピペすればできるのでしょうか？
コピーはできても貼り付ける場所が分かりません。教えてください。

151 ：デフォルトの名無しさん ：2019/12/17(火) 09:41:37.65 ID:vQ+5LFSo0.net

マクロは互換性ほぼ無いからなあ

152 ：デフォルトの名無しさん ：2019/12/17(火) 15:37:53.37 ID:/A3hSSic0.net

>>150
よく分からん。
ファイルをコピーしてそのファイルをそのまま使えば良いんじゃね?

要はさ、そのマクロのコ―ドがExcelの何を使っているかで変わるだろ。
コードを追って必要なものをコピーすれば使えるだろうよ。

153 ：デフォルトの名無しさん ：2019/12/17(火) 20:23:29.92 ID:3Fa5Zu3xa.net

慣れてる人ならできるかもしれんが
初心者じゃ無理だろ、互換性ないし

154 ：デフォルトの名無しさん ：2019/12/17(火) 20:37:54.29 ID:WWM9H/Hw0.net

OOoのVBAは相当単純なものじゃないと動かなかったような
色々省略するのもダメだったような気がする

155 ：デフォルトの名無しさん ：2019/12/17(火) 20:55:11.10 ID:BpmC86c/0.net

OOOBasicなんてあるんだな
勉強する人いるの？

156 ：デフォルトの名無しさん ：2019/12/17(火) 21:06:28.96 ID:WWM9H/Hw0.net

OOOBasicというのか・・・
数年前きまぐれにちょっと触って、あまりの互換性のなさに逃げ出したわ

157 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 1b8e-RPlZ)：2019/12/17(火) 23:47:48 ID:eRzCNyCK0.net

>>150
馬鹿は死ね

158 ：デフォルトの名無しさん ：2019/12/18(水) 02:07:35.42 ID:ksLRDXXy0.net

なんでBasicにしたんだろね。
後発なんだから選べたはずなのに。

159 ：デフォルトの名無しさん ：2019/12/18(水) 02:16:13.86 ID:mwLPhsOw0.net

Cに似せるほうが大変だろう

160 ：デフォルトの名無しさん ：2019/12/18(水) 07:45:18.46 ID:enbCu13E0.net

>>158
VBが売れたから、機能はほぼそのままにVBAとしてofficeに搭載した
VCの登場はもっと後
時系列的に仕方ないとは思う
俺もCの方が良いとは思う

161 ：デフォルトの名無しさん ：2019/12/18(水) 07:46:31.18 ID:5n7ujQMK0.net

oooの話だろ

162 ：デフォルトの名無しさん ：2019/12/18(水) 08:15:59.63 ID:Bw/0QRZma.net

>>152

PC1のデータをPC2に移したい。でも、PC2にUSBなど外部のものを差し込めないしネットには繋がるけど仮想？か分からないけどデータをPC2のデスクトップとかドキュメントに保存できないので、
データの中身をコピーしてPC2でExcelを開きペーストすれば良いのではと考えたのですが、
Excelのデータを丸々コピーするにはまずシートをコピペしてその後マクロコードをコピペすれば良いのでしょうか？どこに貼り付ければ良いのかわかりません。

163 ：デフォルトの名無しさん ：2019/12/18(水) 14:12:35.99 ID:HS0oeyOA0.net

PC2のどこに移したいの？
PC2でデータを開き　データの中身をコピーして　Excel（新規ブック）を開きペーストすれば良い
でもその新規ブックは保存できないんでしょ？

164 ：デフォルトの名無しさん ：2019/12/18(水) 14:53:42.73 ID:mwLPhsOw0.net

会社のＰＣなら上司にまず先に相談しろ

165 ：デフォルトの名無しさん ：2019/12/18(水) 15:30:08.92 ID:Bw/0QRZma.net

>>163
PC2のデスクトップ
Excelを新規で開けば保存できる。
もしくは開きたいExcelのデータCalcでなら開ける。
Calcで開いてコピーしたものをExcelに貼り付けたら出来るのか？セル全範囲コピーして貼り付けてマクロコードもコピーして。

166 ：デフォルトの名無しさん ：2019/12/18(水) 16:28:12.29 ID:cW21FM1r0.net

>>162
馬鹿は死ね

167 ：デフォルトの名無しさん ：2019/12/18(水) 18:12:16.35 ID:2hbVJNuaa.net

シートの書式がコピーできるかな？

168 ：デフォルトの名無しさん ：2019/12/18(水) 18:12:36.66 ID:2hbVJNuaa.net

セルね

169 ：デフォルトの名無しさん ：2019/12/18(水) 18:28:12.80 ID:jQts0Cg90.net

>>167
死ね

170 ：デフォルトの名無しさん ：2019/12/18(水) 20:40:24.52 ID:eYqAoNFQM.net

Officeクリップボードをクリアするにはどうしたらよいですか?

171 ：デフォルトの名無しさん ：2019/12/18(水) 21:42:34.31 ID:enbCu13E0.net

>>161
ちゅまん

172 ：デフォルトの名無しさん ：2019/12/18(水) 22:44:40.50 ID:ycaRvEPMx.net

>>171
かわいい

173 ：デフォルトの名無しさん ：2019/12/18(水) 23:33:23.01 ID:kDyrT7eN0.net

>>170
その文言でぐぐれ

174 ：デフォルトの名無しさん ：2019/12/19(木) 17:59:43.75 ID:OOaAV86L0.net

ちょっと教えて下さい

自動的に新しいcsvファイルが保存されてくるフォルダがあって
新しいファイルが保存されたら処理をするってコードを作りたいんですが
どんな感じにしたらよいのかアイデアが浮かびません

イメージは処理開始としてから処理停止とするまでずっと監視と処理をし続ける感じです
正攻法ってどんな感じでしょう？

175 ：デフォルトの名無しさん ：2019/12/19(木) 18:07:29.48 ID:FlPgbXc+r.net

定期的にフォルダの更新日時かファイル数を比較

176 ：デフォルトの名無しさん ：2019/12/19(木) 19:15:47.42 ID:PZllcG7iF.net

C#に乗り換えてFileSystemWatcherかな
そういうのはサービスにして常時起動したいだろ？どのみちVBAじゃ無理がある

177 ：デフォルトの名無しさん ：2019/12/19(木) 20:13:02.64 ID:r3z4nZn+0.net

>>174
csvデータは一般機能のpower queryで「フォルダ指定」で取得してから、何らかの加工をする必要があればVBAでやるというのはどうでしょう？

178 ：デフォルトの名無しさん ：2019/12/19(木) 20:52:54.37 ID:Uvgz+C1W0.net

>>174
Application.OnTimeでググればいろいろ出てくる

Excel/VBA: 特定のフォルダ内のファイルの更新状況を監視するマクロ
http://pineplanter.moo.jp/non-it-salaryman/2016/12/30/excel-vba-folder-monitor/

179 ：174 ：2019/12/19(木) 21:50:34.66 ID:OOaAV86L0.net

コメントありがとうございます。
C#は知識がなくて・・・。1か月後に必要なんですが今からいけるかな。。。

>>177
すこし理解に時間がかかっています。内容確認してみます。

>>178
参考例ありがとうございます。
更新したファイルだけ処理をしたいのですが、この例だと毎回全ファイルを読むみたいなので
例えば処理したファイル名はシートに記録しておいて
更新起動時に毎回処理したかしてないか判断するのも追加するって感じですかね。

180 ：デフォルトの名無しさん ：2019/12/19(木) 22:24:23.56 ID:O8pz/cv40.net

>>179
悪用すると色々できそうだな

181 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f2c-1ZZR)：2019/12/20(金) 10:20:51 ID:A+TGdcd90.net

ファイルのタイムスタンプで判断すれば？

182 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f2c-1ZZR)：2019/12/20(金) 11:57:58 ID:A+TGdcd90.net

Ruby で、ファイルの最終更新時刻を取得する

fs = File::Stat.new( "./a.txt" )
p fs.mtime #=> 2018-01-16 13:36:40 +0900 最終更新時刻

p current = Time.now #=> 2019-12-20 11:54:02 +0900
p current - fs.mtime, fs.mtime - current

#=> 60733042.351125, -60733042.351125

183 ：デフォルトの名無しさん ：2019/12/20(金) 15:07:41.92 ID:INeYifjy0.net

>>179
ファイルのアーカイヴ属性を変更すればいいよ。これなら新規以外にも、変更ファイルも拾えるはず。

184 ：デフォルトの名無しさん ：2019/12/20(金) 15:08:25.80 ID:CBAVBsMi0.net

馬鹿ばっか

185 ：デフォルトの名無しさん ：2019/12/20(金) 15:24:50.75 ID:CkbICV7EM.net

ハゲばっか

186 ：デフォルトの名無しさん ：2019/12/20(金) 20:34:34.24 ID:UWWbjOVR0.net

馴鹿ばっか

187 ：デフォルトの名無しさん ：2019/12/21(土) 11:10:49.09 ID:lLQbKr+9r.net

クリスマスだから

188 ：デフォルトの名無しさん ：2019/12/21(土) 19:08:13.95 ID:reWWVMAr0.net

セルに指定したフォントの情報などを変数（オブジェクト？）として
保持して、別のセルに貼り付けることはできないでしょうか

Public Sub textMacro()
ActiveSheet.Cells(1, 1).Select
ActiveCell.Value = "testTESTtest"
ActiveCell.Characters(Start:=5, Length:=4).Font.ColorIndex = 3
End Sub

こんな感じで、文字列の途中で色を変えたりフォントを変えたり
した情報を構造体配列として保持しておいて、ソートしたり
特定条件で抽出したりしたデータを、書式ごと別のセルに
貼り付けたいのです

上記のようなコードで一旦別のワークシートに書き込んでやって、
そこを参照してコピーすれば解決します
ですが作業用ワークシートを作るのが美しくないので、なにか
方法がないものかと悩んでいます

189 ：デフォルトの名無しさん ：2019/12/21(土) 19:30:42.69 ID:EDn7hR2k0.net

>>188
rangeにでも入れとけばいいんじゃないの

190 ：デフォルトの名無しさん ：2019/12/21(土) 19:57:20.88 ID:reWWVMAr0.net

>>189
言葉足らずだったかもしれません

188で書いたコードのように、一旦どこかのセルに書式を設定するのではなく、
書式設定済みのデータを内部で生成したあとでセルに貼りたいのです

191 ：デフォルトの名無しさん ：2019/12/21(土) 20:19:43.43 ID:Z2fXXpuT0.net

アドバンスフィルタ使うとか。

192 ：デフォルトの名無しさん ：2019/12/21(土) 21:42:26.79 ID:u7lOGHHR0.net

>>188
activecellは rangeオブジェクト
rangeオブジェクトは必ずどこかの実態セルに紐付けしないと設定、参照できない
なので、実態セルを使いたくなければ、仮想的に実装するしかない
全てを網羅するには、それは非現実的（ムダ）だから私ならやらない
あとの判断はお任せする
（may be. GL）

193 ：デフォルトの名無しさん ：2019/12/21(土) 21:50:56.66 ID:vmSiEfoS0.net

ここには北海道のグラサンのスーパーハゲザーこないのー？

194 ：デフォルトの名無しさん ：2019/12/21(土) 22:03:15.47 ID:xOT/WAE8x.net

>>190
セルのコピーで済む処理をわざわざスクラッチする意味があるのか？
マクロ言語で車輪の再発明をするのは無駄だし結果的に美しくないものが出来上がって終わりなことが多いぞ


まぁ文字列書式の取得をするならRange.Charactersクラスを対象にForで一文字ずつループを回して、Fontプロパティで取れる各フォント属性を調べて構造体配列に格納していけば良い
Characters(i, 1)とか指定すれば一文字ずつ調べられる

具体的にはFontクラスのうち
Bold, ColorまたはColorIndex, FontStyle, Italic, Name, Size, ThemeColor, ThemeFont, Underlineあたりを取得しとけば何とかなるんじゃないか

195 ：デフォルトの名無しさん ：2019/12/21(土) 22:26:10.14 ID:reWWVMAr0.net

>>192
>>194
内部データとして、特定の文字だけボールドにしたり赤字にしたりしたデータを
保持しておいて、それをそのままセルに貼れないだろうかという趣旨でした

全然実用性のない例ですが、何らかの名簿データを元データとして入力すると
して、「佐藤」という名字だけを赤で表示したい、というケースがあったとします。

このとき、表示するときに年齢別だったり性別だったりの条件で抽出したりする
際に、毎回セルにデータを書き込むときにフォントの設定をする必要があるのか、
一度設定済みのデータを貼れば済むような方法があるのか、という質問でした

現在は毎回貼るたびにフォントの設定をしているので、もっと効率的な方法が
あるのではないかと考えた次第

でも残念ながら、どうやらなさそうですね
確かにセルをコピーすれば済む話なので、断念します

196 ：デフォルトの名無しさん ：2019/12/21(土) 23:09:32.16 ID:u7lOGHHR0.net

>>195
鈴木 健二
の鈴木だけを赤文字に設定したセルの書式コピーして
鈴木 太郎
セルに貼り付けしても、鈴木だけを赤にはできなかった
（バージョンによって違うかもだが）
ロジックでやるしかないんじゃないかな
鈴木or宇都宮を赤にするとか

197 ：デフォルトの名無しさん ：2019/12/21(土) 23:41:09.25 ID:reWWVMAr0.net

>>196
色々ありがとうございます

今回やりたいのは、鈴木だけを赤くした「鈴木　健二」というセルを作るのに、
事前にデータを作ってからセルに貼り付けたいということですから、
「鈴木　太郎」の「鈴木」が赤くならなくても特に問題ありません

この例で言うなら、コピペ以外の方法で、同じく鈴木だけが赤くなった鈴木健二の
セルを効率よく作りたい、ということですね

198 ：デフォルトの名無しさん ：2019/12/22(日) 00:19:45.02 ID:4IcKy9Blx.net

>>197
構造体とかでパラメータ設定すればやれないことはない
書式設定対象の文字列の開始オフセット位置と文字列長、フォント属性の設定値からなる構造体配列を作って、一括でRangeオブジェクトのプロパティに代入すれば良い

ただしパラメータを動的に指定する処理やらUIやらを構築する手間とか考えたら結局セルコピーでよくねってなる

199 ：デフォルトの名無しさん ：2019/12/22(日) 09:13:02.87 ID:m/MVfWr2M.net

office2010から2016へ変えたらマクロの遅さが気になって
セルコピーを別の方法でやれないか考えてる

200 ：デフォルトの名無しさん ：2019/12/22(日) 10:54:11.14 ID:sgFeqmUl0.net

マクロが遅いんじゃなくてPCのスペックが貧弱過ぎるんじゃないか

201 ：デフォルトの名無しさん ：2019/12/22(日) 11:54:58.14 ID:M+v9sXGU0.net

>>198
そこまでする価値はないですね
自分が知らないだけで、なにか簡単な方法があるのではないかと思って
いたのですが、そもそも需要がない動作なんでしょうね

202 ：デフォルトの名無しさん ：2019/12/22(日) 12:26:41.63 ID:cYIprE7S0.net

>>199
変えたのはExcelだけか?
実はOSを10に変えた時にExcelも入れ替えたのではなく?

203 ：デフォルトの名無しさん ：2019/12/22(日) 14:42:00.45 ID:qo1j1gBdx.net

>>201
そこまでやるならmhtか何かでコード生成してからxls変換してレンダリングする方がいいよねって話になってしまうからな

204 ：デフォルトの名無しさん ：2019/12/27(金) 23:18:51.19 ID:89CBNjra0.net

んあ

205 ：デフォルトの名無しさん ：2019/12/27(金) 23:55:11.89 ID:kLvnMS830.net

北海道のグラサンスーパーハゲザーはここにはこないのー？

206 ：デフォルトの名無しさん ：2019/12/28(土) 10:04:17.04 ID:Ht/sR5FE0.net

北海道にいるんだろ

207 ：デフォルトの名無しさん ：2019/12/28(土) 11:09:10.42 ID:iMlStgtR0.net

あなたのハゲにサクセスしたい

208 ：デフォルトの名無しさん ：2019/12/28(土) 17:00:07.97 ID:SHykekh8a.net

休みに入って大人しくなったな

209 ：デフォルトの名無しさん ：2020/01/01(水) 22:49:57.07 ID:/3koq0Lq0.net

フォルダ名を取得し名前を変える処理をしたいのですが、フォルダ名の頭に0がついているとセルに取り込んだ際、数値扱いされきえてしまいます。何かいい方法ないでしょうか？
ほぼネットから引用したものですが。。

Sub folder()
Dim folderPath As String
folderPath = Sheets(2).[B1]
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim n As Variant
n = fso.GetFolder(folderPath).SubFolders.Count

If (0 < n) Then
Dim I As Long
I = 1
Dim f As Object
For Each f In fso.GetFolder(folderPath).SubFolders
Cells(3 + I,1).Value=Str(f.Name)
I = I + 1
Next f
End If
End Sub

210 ：デフォルトの名無しさん ：2020/01/01(水) 22:54:36.69 ID:Oh0xulqx0.net

>>209
・セルの書式を予め文字列にしておく
・
Cells(3 + I,1).Value = "'" & Str(f.Name)
・セルに取り込まずに処理する

どれか

211 ：デフォルトの名無しさん ：2020/01/01(水) 23:43:11.75 ID:/3koq0Lq0.net

>>210
頭に「'」つける案いただきます！
すっかり頭からぬけておりました。
ありがとうございます！

212 ：デフォルトの名無しさん ：2020/01/02(木) 00:01:52.13 ID:KGMPhTA00.net

>>209
頭に'付けるとかセルの表示形式を文字にするとか
それVBAじゃなくてExcelの範疇では

213 ：デフォルトの名無しさん ：2020/01/02(木) 00:13:18.61 ID:4cnj/64c0.net

VBAはそもそもビジュアルベーシックフォーアプリケーション
エクセル（他office製品）のための言語
Excelの範疇も何もないよ

214 ：デフォルトの名無しさん ：2020/01/02(木) 00:44:32.37 ID:C9nM6Ix2x.net

セルにフォルダ名を入れなきゃならない理由が全く分からない

215 ：デフォルトの名無しさん ：2020/01/02(木) 00:52:53.68 ID:m04meMbs0.net

PowerQueryにデータの参照元渡すとか

216 ：デフォルトの名無しさん ：2020/01/02(木) 11:28:52.88 ID:yN8yk3jo0.net

マクロでCSV書き出ししたデータですが
どうも１行ごとに最後のセルの末尾に勝手に改行コードが入っているようです
これはなんとかならないでしょうか

その改行コードもCRLFで言うところのCRだけのようで、見かけ上全くわかりません

aaa,ddd,ccc

とあったら、cccの末尾に見えないCFが張り付いている感じです
urlエンコードで見ると　ccc%0D みたいな感じです
どうしたら綺麗に書き出せますか？

217 ：デフォルトの名無しさん ：2020/01/02(木) 12:02:15.68 ID:33UW29zWd.net

>>216
改行コードをなくした場合、行の区切りはどうするの？
完全に思い通りにしたい時はテキストファイルの生成を自力でやるしかない

218 ：デフォルトの名無しさん ：2020/01/02(木) 12:48:11.80 ID:/IgTqK/90.net

セル内で改行しても平気か確認した方がいい

219 ：デフォルトの名無しさん ：2020/01/02(木) 12:53:49.13 ID:KGMPhTA00.net

>>216
ExcelではLFがセル内改行、CRLFが次の行
CRは意味を持たないので入ってても改行されない
消したければ普通にその文字を消せばいい

220 ：デフォルトの名無しさん ：2020/01/02(木) 12:58:08.65 ID:KGMPhTA00.net

あと勝手に入ってるのではなく元々のテキストファイルに入ってるんだろう

221 ：デフォルトの名無しさん ：2020/01/02(木) 15:17:06.96 ID:yN8yk3jo0.net

216です

>>217
csvの中のデータとして配列に入っています。書き出したcsvは普通に数行のカンマ区切りです。
それをjavascriptで配列へ取り込みしたときに、
二次元配列データの一行の最後のデータの末尾に毎行追加されている感じです。

配列内
aaa,ddd,ccc%0D
aaa,ddd,ccc%0D
aaa,ddd,ccc%0D

csvとしての改行・配列構成は崩れていません。
ちなみに書き出しは
ActiveWorkbook.SaveAs Filename:=csvName, FileFormat:=xlCSV
です。win7時代に作ったマクロをwin10で使っていますが、それもあるんでしょうか…

>>219
EXCELの改行仕様は知りませんでした。ありがとうございます。
末尾に列を１つ増やしたら取りたいデータにはつかなくなったので
（おそらく、増やした列に%0Dが移動したのかとｗ）、
若干気持ち悪いですが、趣味プログラムなので運用で対応します。


みなさんありがとうございました。

222 ：デフォルトの名無しさん ：2020/01/02(木) 16:37:15.04 ID:yYKIO5swM.net

北海道のグラサンスーパーハゲザーはここにはこないのー？

223 ：デフォルトの名無しさん ：2020/01/02(木) 17:52:03.38 ID:YgEQc8yF0.net

>>216
Excelのsheetに読み込んでから、CRLF等を""に置換する
ではダメ？

224 ：デフォルトの名無しさん ：2020/01/02(木) 21:25:07.68 ID:ShHqIFTQ0.net

一般論として例えば、Ruby のCSV の規格にも、
行区切り文字・列区切り文字・クォート文字などがある

特に設定しないデフォルトでは、それらは、
改行コード・カンマ・ダブルクォーテーションになる

もし、それらが無ければ、CSVの要件を満たさないw
つまり、CSVの規格ではありませんw

225 ：デフォルトの名無しさん ：2020/01/02(木) 23:23:58.57 ID:1vLrUBFwa.net

ルビカスが何を言おうと、世の中ではExcelが出力するCSVが標準のCSVだ

226 ：デフォルトの名無しさん ：2020/01/03(金) 10:32:03.45 ID:R/lajPDg0.net

CSVは自前でテキストファイル読み込み+自前で区切り扱いが基本。
区切りが何であろうと、データの形式が何であろうと全て自分でコントロール出来るし速度も速い。

227 ：デフォルトの名無しさん ：2020/01/03(金) 12:29:48.12 ID:V2sewd5k0.net

同意。てか、Excel標準のCSV読み込み仕様もうちょっとなんとかなりませんかね・・・？

それはさておき>>216＆>>221（もう見てないかもだけど）
その「CSVファイルを配列に取り込むJavaScript」のコードに問題があるんじゃないかなと。
具体的には\n(%0A)でSplitしてるから\rが残ってるだけだと思うけどな。

228 ：デフォルトの名無しさん ：2020/01/03(金) 18:33:14.85 ID:LoHkYQxe0.net

使い続ける以上CSVとの戦いは続くのだ

229 ：デフォルトの名無しさん ：2020/01/03(金) 18:50:10.73 ID:k7eftYc7x.net

モダンExcelが一般化してきた今ならクエリでCSVの開き方を指定して読み込むのがいいんじゃないの
CSVをエクセルで直接開くといろいろ勝手なことをしてくれるので

230 ：デフォルトの名無しさん ：2020/01/03(金) 19:06:41.78 ID:esau8hBed.net

PowerQueryのコードを書くのはVBA以上にハードルが高いぞ

231 ：デフォルトの名無しさん ：2020/01/03(金) 19:55:22.39 ID:3Uhjf7eSM.net

PowerQueryコード書かなきゃいけないの?
GUIでできる範囲だと不十分なの？

232 ：デフォルトの名無しさん ：2020/01/03(金) 19:58:54.81 ID:k7eftYc7x.net

そんなにハードル高いか？
テキストファイルの読み込みの処理をスクラッチするより明らかに楽だし処理速度も速いと思うが
例えば4列のCSVをSJIS(Windows-J31)でデコードしてカンマ区切りで読み込んでSheet1のA1セルから書き出すとしたらこんな感じ

Sub ReadCSV()
　　With Worksheets("Sheet1")
　　With .QueryTables.Add(Connection:="TEXT;ソースファイルのパス", Destination:=.Range("A1"))
　　　　.TextFilePlatform = 932
　　　　.TextFileCommaDelimiter = True
　　　　.RefreshStyle = xlOverwriteCells
　　　　.TextFileColumnDataTypes = Array(xlTextFormat, xlTextFormat, xlTextFormat, xlTextFormat)
　　　　.Refresh
　　　　.Delete
　　End With
　　End With
End Sub

233 ：デフォルトの名無しさん ：2020/01/03(金) 20:07:37.72 ID:k7eftYc7x.net

PowerQueryだったらもっと簡単だろう
Csv.Documentにソースのパスとメタ情報を渡してテーブルを取得するだけだしGUIでステップ記録できる

234 ：デフォルトの名無しさん ：2020/01/03(金) 20:56:20.20 ID:LoHkYQxe0.net

CSV読み込みの話してんのになんで書き込みの回答してんだろうこの子

235 ：デフォルトの名無しさん ：2020/01/03(金) 21:32:33.80 ID:k7eftYc7x.net

>>234
>>232のコードについて言ってるなら、読み込んでシートに書き出してるわけで、クエリの使い方としてはオーソドックス処理だぞ
読み込んだ結果をシートに書き出さないならODCにデータモデルとして保存すれば良い

236 ：デフォルトの名無しさん ：2020/01/03(金) 22:10:30.43 ID:k7eftYc7x.net

>>235
ODCにデータモデルとして→×
データモデルとして→○

237 ：デフォルトの名無しさん ：2020/01/03(金) 22:23:49.87 ID:X7hap7HH0.net

>>230
全然。

基本的にはリボンの機能使った操作が１つずつのステップになっていく。
ステップの１つ１つがマクロみたいなもの。
「詳細クエリー」を見て初めて「コードはこうなってるんだ・・・」
という感じ。

もっとも、M Functionのレファレンスやパラメータあたり説明が
英語でもまだ不親切なので、
使えてない部分が多分にはあるけど。
ただ、VBAのように出来る範囲が広範囲なわけではなく、
取得したデータの成形に特化してる。

スクレイピングについては
Pythonみたいに取得対象のWeb画面で
IDやパスワード入力するとか、
ボタンを押すみたいなことも出来ない模様。

238 ：デフォルトの名無しさん ：2020/01/03(金) 22:43:05.12 ID:3zmXV6NNx.net

データの成形に特化と言ってもVBAでスクラッチすると恐ろしく面倒なJoinとかのSQLチックな処理は全て実行できるので、データ処理の面ではVBAより手軽で便利

あとAccessDBやSQL ServerやOBDCはもちろん、ファイルシステムとかExchangeサーバとかSharePointリストとか、およそデータベースとして扱えるデータストアの情報は全て取得できる

フォルダ内のファイルの属性情報を取得する処理のためだけにいちいちFileSystemObjectのインスタンスとかを使ってスクラッチする必要がなくなると考えればめちゃくちゃ便利

239 ：デフォルトの名無しさん ：2020/01/04(土) 15:59:54.32 ID:dDunGyfu0.net

>>227
みています
ご指摘の通り、\nでspritかけてました！
\nってCR+LFじゃなかったんですね…

この後都合があるのですぐには試せませんが、
その辺確認してみます。
ありがとうございます！

240 ：デフォルトの名無しさん ：2020/01/04(土) 16:12:12.74 ID:8fEwlZFG0.net

\nはLFじゃなかったか
windowsの改行は\r\nだったような

241 ：デフォルトの名無しさん ：2020/01/04(土) 17:52:00.86 ID:ALZ03HNg0.net

EditBoxでは\r\nでRichEditBoxでは\nだねWindows

242 ：デフォルトの名無しさん ：2020/01/04(土) 17:56:48.54 ID:+4weKQQc0.net

CR+LFの定数の vbCrLf か vbNewLine でいいんじゃね

243 ：デフォルトの名無しさん ：2020/01/04(土) 18:04:55.94 ID:8fEwlZFG0.net

vbNewLineいいよね

244 ：デフォルトの名無しさん ：2020/01/04(土) 18:23:56.78 ID:ZrFrOERU0.net

>>239
やっぱり。
>>240-241の人もいうとおり、OSだけじゃなくAPI関数ごとに改行コードの取扱いが違ったりすることもあるし、
テキストエディタに内蔵されてる正規表現なんかでも「\n」でCRLFに対応させてる例もあったりするから、
その辺はトライ＆エラーで覚えていくといいとおもうよ。

245 ：デフォルトの名無しさん ：2020/01/04(土) 18:40:58.78 ID:HwWXKum00.net

北海道のグラサンスーパーハゲザーはここにはこないのー？

246 ：デフォルトの名無しさん ：2020/01/05(日) 18:31:31.28 ID:bipf879T0.net

いつまで過去の人探してんだよ

247 ：デフォルトの名無しさん ：2020/01/05(日) 21:01:37.71 ID:7hEhyOPXa.net

Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" ()
Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String,
ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Expect end of statementとエラーが出ます。
なにがいけないのでしょうか？

248 ：デフォルトの名無しさん ：2020/01/05(日) 22:30:48.28 ID:+vnZOjsp0.net

>>247
・DLL名（urlmon）の後の()が余計
・1行目と2行目の末尾に「半角スペース」＋「半角アンダースコア」がちゃんとついているか確認
↓こんなかんじ
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

249 ：デフォルトの名無しさん ：2020/01/05(日) 22:56:42.27 ID:7hEhyOPXa.net

>>248
ありがとうございます。
スペースとアンダーバーが必要だったのですね。

250 ：デフォルトの名無しさん：2020/01/06(月) 00:35:07.77 ID:/BrkWBud/

初心者につき基本的な質問かもしれず恐縮なんですが、

�@Range("A10:B12").Value = Range("A1:A2").Value
　とすると、A12:B12は#N/Aとなり、A10:A11、B10:B11はA1:A2の値が貼り付けられるのはなぜでしょうか。
�ARange("A10").Value = Range("A1:B2").Value
　とすると、A10にA1の値が貼付けられるのはなぜでしょうか。

�@については、入力元の行・列範囲が１の場合はそれをひと固まりと認識して、
　出力先の行列範囲＞１の部分も入力元の値を入れようとするため
�Aについては、エクセルの構成上、選択範囲の開始は左上端であり、
　出力先が１セルしかない場合は入力元の範囲の開始セルのみを貼り付けようとするため

などと理由（というか状況）を言語化してみたのですがいまいち腑に落ちず…
もし仕組みをご存知の方がいらっしゃったら教えていただけませんか…？

251 ：デフォルトの名無しさん ：2020/01/06(月) 00:41:12.95 ID:NdtK1Vru0.net

初心者につき基本的な質問かもしれず恐縮なんですが、

�@Range("A10:B12").Value = Range("A1:A2").Value
　とすると、A12:B12は#N/Aとなり、A10:A11、B10:B11はA1:A2の値が貼り付けられるのはなぜでしょうか。
�ARange("A10").Value = Range("A1:B2").Value
　とすると、A10にA1の値が貼付けられるのはなぜでしょうか。

�@については、入力元の行・列範囲が１の場合はそれをひと固まりと認識して、
　出力先の行列範囲＞１の部分も入力元の値を入れようとするため
�Aについては、エクセルの構成上、選択範囲の開始は左上端であり、
　出力先が１セルしかない場合は入力元の範囲の開始セルのみを貼り付けようとするため

などと理由（というか状況でしかない）を言語化してみたのですがいまいち腑に落ちず…
もし仕組みをご存知の方がいらっしゃったら教えていただけませんか…？

252 ：デフォルトの名無しさん ：2020/01/06(月) 02:06:32.04 ID:IxstRIsW0.net

>>251
原因はお前の知能障害の頭

253 ：デフォルトの名無しさん ：2020/01/06(月) 08:01:31.75 ID:jMeFAWx00.net

Range の使い方ぐらい、検索すれば見つかるのじゃないの？

他人が作った仕様を、推測するのは時間のムダ

それに、推測して当たっているように見えても、
仕様書で確認していない推測では、どのみち仕事では使えない

君のその推測は、確実なんだろうね？
と、単に聞かれても、返答に困るw

たぶん、間違いないと思いますと言っても、
たぶんじゃ困る、仕様書を確認してくれと言われるので、
結局、推測した時間はムダw

254 ：デフォルトの名無しさん ：2020/01/06(月) 08:04:47.15 ID:D3635f2eM.net

>>251
まずは右辺のセル範囲が定数、（複数セル参照）式でどうなるか試してみよう
試す、予想する、検証するのが大切

255 ：デフォルトの名無しさん ：2020/01/06(月) 08:31:23.15 ID:6Tgfzfa6x.net

Power Queryの式がVBAで取得編集出来るの初めて知った
凄い便利だわ

256 ：デフォルトの名無しさん ：2020/01/06(月) 11:36:21.98 ID:MgTSKGZp0.net

>>255
これとか？

PowerQueryの強力な機能をVBAから利用する方法
https://excel-ubara.com/excelvba4/EXCEL_VBA_408.html

257 ：デフォルトの名無しさん ：2020/01/06(月) 16:14:57.44 ID:uFshMbVq0.net

>>240 - >>244
ありがとうございます、お陰様で完全解決しました！
結論としては、>>227 のご指摘が丸ごとそのままでした。
勉強になりました。。。

結局スレチになってしまいましたが、皆様ありがとうございました。

258 ：デフォルトの名無しさん ：2020/01/06(月) 20:19:04.42 ID:3xuf6Bblx.net

>>256
そうそうこのあたりの機能だな
流石にM言語はエディタ使って書いた方が綺麗に書けるからマクロ記録に頼る理由はないが
あとModelオブジェクトというのも追加されてて、そっちはデータモデル関連を扱える
VBAも本当にモダンExcel向けの機能が充実してきたなぁという感じ

259 ：デフォルトの名無しさん ：2020/01/06(月) 22:02:59.64 ID:CTb2ztSI0.net

モダンってオワコンWPFの印象が強すぎてちょっと・・・

260 ：デフォルトの名無しさん ：2020/01/06(月) 22:53:04.03 ID:TKdH9VSv0.net

WPFとSilverlightどっちを習得しようと悩んでた時期が、僕にもありました

261 ：デフォルトの名無しさん ：2020/01/07(火) 00:47:29.56 ID:D2brWHFz0.net

>>260
silverlight懐かし〜
自PCでサバ公開して遊んだな〜
今では怖くてできないw
あのwebなのに何でもできる（未来）感は素晴らしかった

262 ：デフォルトの名無しさん ：2020/01/07(火) 09:28:54.82 ID:uInZCPkrd.net

その未来はPythonで実現してます

263 ：デフォルトの名無しさん (ｱｳｱｳｴｰ Sa7f-G18V)：2020/01/08(水) 23:15:43 ID:a625Lcnla.net

これどういうこと？
https://forest.watch.impress.co.jp/docs/news/1227931.html

264 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 5fda-///2)：2020/01/08(水) 23:29:57 ID:GYx+h9AP0.net

どうでもいいんじゃないの。
そんなのが会社のPCで普通に使えるようになるのは、どうせ何年も先の事だろう。

265 ：デフォルトの名無しさん (ｱｳｱｳｴｰ Sa7f-G18V)：2020/01/09(Thu) 00:01:07 ID:0xvQwvASa.net

＞今後数週間以内に企業向けの“Office 365”（E3/E5ライセンス）で利用可能となる。

読めないのか？後数週間でＶＢＡは駆逐されるかもしれんのだぞ？

266 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 5fe6-lB9F)：2020/01/09(Thu) 00:35:06 ID:2TKjHA5n0.net

マクロウィルスの共有機能まであるのか

267 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f7c-woae)：2020/01/09(Thu) 00:58:29 ID:C+9x90AF0.net

何ヶ月先もVBAの依頼で詰まってるけど

268 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 5f8a-SoGe)：2020/01/09(Thu) 01:49:21 ID:yss0diSi0.net

若い人は知らないだろうけど、昔、リニアモーターカーというのがあってね。

269 ：デフォルトの名無しさん (ｱｰｸｾｰ Sxb3-BW+8)：2020/01/09(Thu) 07:58:16 ID:9wujfMIjx.net

>>265
そのくだりを読んで数週間で駆逐されると思う方がおかしい
IE非対応な時点で察しろ

270 ：デフォルトの名無しさん ：2020/01/09(木) 09:59:33.76 ID:jgUkMqMwd.net

>>263
VBA終了の合図

271 ：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM53-JyDu)：2020/01/09(Thu) 10:11:49 ID:+yE1fb2HM.net

> 既存のVBAは比較的ハイスキルな開発者向けである
どこの時空の話だろう

272 ：デフォルトの名無しさん (ﾜｯﾁｮｲ df91-88rQ)：2020/01/09(Thu) 10:23:13 ID:0t9GlNIo0.net

これWeb版の機能だろ。
そもそもExcel95の時代からマクロの記録機能は有るだろ。

273 ：デフォルトの名無しさん ：2020/01/09(木) 20:22:30.66 ID:QTlbFy+y0.net

↓のマクロを実行するとエラー４３８になって動きません。原因を教えてくださいm(__)m

・ＤＥ３とＤＳ３の値のいずれかの高い数値が１であれば、１１行目〜１２行目を削除
・ＤＥ３とＤＳ３の値のいずれか高い数値が２であれば何もしない
・ＤＥ３とＤＳ３の値のいずれか高い数値が３以上であれば、１１行目〜１２行目をコピーして
　ＤＥ３とＤＳ３のいずれか高い数値−２回を、１３行目以降に２行づつ貼り付ける

＊ＤＥ３とＤＳ３はいずれも１以上の整数です

Dim i As Integer
Dim cnt As Integer, a As Range

With ActiveSheet
i = .Max(Range("DE3", "DS3"))
Select Case i
Case Is = 1
.Rows("11:12").Delete
Case Is = 2
' なにもしない
Case Is >= 3
.Rows("11:12").Copy
Set a = .Range("A13") ' 貼り付け開始位置
For cnt = 3 To i '３以上のときはその値回数分貼り付けを繰り返す
a.PasteSpecial xlPasteAllMergingConditionalFormats '貼り付ける種類はお好みで
Set a = a.Offset(2, 0) ' 貼り付け先を２行下へ
Next cnt
End Select
End With
End Sub

274 ：デフォルトの名無しさん ：2020/01/09(木) 20:37:39.44 ID:R5Jo4gYe0.net

>>273
i = WorksheetFunction.Max(.Range("DE3", "DS3"))

275 ：272 ：2020/01/09(木) 21:08:00.17 ID:QTlbFy+y0.net

>>274
ありがとうございます

276 ：デフォルトの名無しさん ：2020/01/09(木) 21:37:55.27 ID:o7IUVb3B0.net

あなたのハゲにサクセスしたい

277 ：デフォルトの名無しさん ：2020/01/09(木) 23:19:52.51 ID:CBGZn1t+p.net

やっぱり少し騒ぎになってたか
お前らこれから少しは
Javascript勉強しといた方がいいぞ

278 ：デフォルトの名無しさん ：2020/01/09(木) 23:35:37.48 ID:SuIB+b6T0.net

>>277
JSは癖があるけど、あれはwebの話
既にあるオブジェクトに対してどうこうするならVBAと特に変わらんぞ

adobeのJSは本当にクソだった
※オブジェクトに名前がついてないので、「topプロパティが一番大きいオブジェクトにはxx」などと名付けをしなければならなかった

279 ：デフォルトの名無しさん ：2020/01/09(木) 23:36:34.25 ID:SuIB+b6T0.net

VBAで無名関数とか即時関数は別にやらんやろ
webのJS使ってる人が参入しやすいようにしてるだけやで

280 ：デフォルトの名無しさん ：2020/01/10(金) 00:22:51.50 ID:D5emfq5uM.net

Googleスプレッドシートの
マクロ（GAS≒Javascript拡張）を移植するだけだぞ

281 ：デフォルトの名無しさん ：2020/01/10(金) 00:52:55.45 ID:1ovLJy7s0.net

TypeScriptベースってあるけど
本家と比べてどこまで厳格なのか分からんが

282 ：デフォルトの名無しさん ：2020/01/10(金) 07:05:02.06 ID:uF+RY5wD0.net

よほどテクニカルな記述しなければ普通に動くじゃろ

283 ：デフォルトの名無しさん ：2020/01/10(金) 07:14:14.47 ID:jjRPWpspx.net

Typescriptはアクセス修飾子をサポートしてるから即時関数でのスコープ管理はしなくていいだろ
無名関数は使いどころあるかもしれないが

284 ：デフォルトの名無しさん ：2020/01/10(金) 09:48:49.20 ID:IluxULEbd.net

大慌てしてて草

285 ：デフォルトの名無しさん ：2020/01/10(金) 22:41:08.84 ID:19Jhwmx5M.net

wshのjscript使うのとはまったく違うのかな？

286 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 7f12-3KZm)：2020/01/11(土) 03:59:52 ID:VgPP357Y0.net

TSでも時代遅れなんだけどね

287 ：デフォルトの名無しさん (ﾜｯﾁｮｲ df01-mnsv)：2020/01/11(土) 04:13:01 ID:o+klbI+l0.net

お前らってプログラミング言語の話題になると、何ですぐ時代遅れ論争始めるの？

288 ：デフォルトの名無しさん ：2020/01/11(土) 06:14:53.73 ID:G5+XY0gL0.net

結局仕事の効率を上げれるかどうかが肝だけど新しい言語を使ってる俺すごいで思考停止しちゃうんだろうなー

289 ：デフォルトの名無しさん ：2020/01/11(土) 06:26:51.15 ID:Uc6AtsCZM.net

TSが時代遅れはともかくVBAはさすがにもう仕事の効率とかそういう次元の話じゃない
クレジットカードの有効期限が迫ってるようなもんだ

290 ：デフォルトの名無しさん ：2020/01/11(土) 12:18:46.28 ID:4Kbsl1epa.net

Option Explicit
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub TableControl()
Dim ie As InternetExplorer
Dim targetURL As String: targetURL = "http://www.ikachi.org/sample/sample10.html"
Set ie = GetIEObject(targetURL)

If (ie.LocationURL = "") Then
MsgBox "Plz Open the Web page"
Exit Sub
End If
End Sub

Public Function GetIEObject(ByVal targetURL As String) As InternetExplorer
Set GetIEObject = Nothing

Dim sh As Object
Set sh = CreateObject("Shell.Application")

Dim w As Object
For Each w In sh.Windows
If (TypeOf w Is InternetExplorer) And (w.LocationURL = targetURL) Then
Set GetIEObject = w
Exit For
End If
Next
End Function
でie.LocationURL = ""でエラーが出るのですが、booleanだがらでしょうか？

291 ：デフォルトの名無しさん ：2020/01/11(土) 12:56:17.13 ID:0zjnxXo90.net

>>290
参照設定してないんちゃう

292 ：デフォルトの名無しさん ：2020/01/11(土) 12:58:17.36 ID:vlDYQNOj0.net

何にも分かってないバカが多い。
汎用言語は正に競合だらけだからこそ、VBAの優位性が理解出来ない。

VBAの対象となってるのは他言語じゃゴミしか出来ない。
今後、TSで同じようなことが出来るならTSに移って行くだけのこと。

293 ：デフォルトの名無しさん ：2020/01/11(土) 13:10:09.62 ID:CiEu/gQJM.net

>>290
> ie.LocationURL = ""でエラーが出るのですが
なぜかエラーの内容は極秘なんだよね…

294 ：デフォルトの名無しさん ：2020/01/11(土) 13:31:11.90 ID:vlDYQNOj0.net

>>290
そもそも、これVBAのコードなの?
なんか、初心者がコピペしたんじゃないの?

個人的に間違っちゃいないけど気になるのは、InternetExplorerで宣言してるのにCreateObject使ってる所。

間違ってると思うのはTypeOf。
VBAでこんな単語使ってるの初めて見た。
構文的にこの部分でエラーにならないのにびっくりした。

どちらにしろGetIEObjectでieが空っぽで帰ってる。

295 ：デフォルトの名無しさん ：2020/01/11(土) 13:37:40.62 ID:vlDYQNOj0.net

一応言っておくがTypeOf自体が間違いじゃない。
こういう単語を使ったコードもあり得る。
でも自分は見たこと無いし、今回のコードもここが間違ってる。

296 ：デフォルトの名無しさん ：2020/01/11(土) 14:02:25.84 ID:6iu6Iqm10.net

>>294-295
いや、コード的には間違ってない
>GetIEObjectでieが空っぽで帰ってる
のは間違いないけど、このコードが正しく動く前提として
IEで指定されたURLが開いてる必要があるだけ

まあ指定URLが開いていたら、下のIFがスルーされるから
示された部分だけでは何がしたいコードがよくわからんが

297 ：デフォルトの名無しさん ：2020/01/11(土) 14:13:44.58 ID:6iu6Iqm10.net

一応Win10の365で動くか試したみた結果ね

つか気になってちょっと調べてみたけど
TypeOf って日本語ドキュメントに記載ないっぽいな
VBAのバージョンとかで使えないかもしれん

なんにせよShellでIE取得して操作とかお勧めしかねるけどな

298 ：デフォルトの名無しさん ：2020/01/11(土) 16:02:20.96 ID:35/vo8rZa.net

289です。
>> 292
すみません、エラー内容は「オブジェクト変数または With ブロック変数が設定されていません」です。

>> 293
Excel VBAでクローリング＆スクレイピング（五十嵐貴之著）のP137に書かれているコードなのですが。
余りよくないのでしょうか。

299 ：デフォルトの名無しさん ：2020/01/11(土) 16:36:52.33 ID:AmOO0hUd0.net

>>298
> すみません、エラー内容は「オブジェクト変数または With ブロック変数が設定されていません」です。
原因は>>296が書いてる通りだと思うのでとりあえずIEでサイト開いてから実行してみて

> 余りよくないのでしょうか。
残念ながらあんまり良くはない
例えば
> If (TypeOf w Is InternetExplorer) And (w.LocationURL = targetURL) Then
とかVBAが短絡評価しない事を知らないみたいだし

300 ：デフォルトの名無しさん ：2020/01/11(土) 16:57:09.64 ID:Wvm4dwrk0.net

北海道のグラサンスーパーハゲザーはここにはこないのー？

301 ：デフォルトの名無しさん ：2020/01/11(土) 18:06:59.10 ID:mnvMO3uc0.net

ｷﾀ━━━━｡ﾟ+.ヽ(´∀`*)ﾉ ﾟ+.ﾟ━━━━!

302 ：デフォルトの名無しさん ：2020/01/12(日) 10:23:37.27 ID:GxqlSy4l0.net

>>299
そもそもShellWindowsオブジェクトはイテレータでIEオブジェクトを渡してるから型判定自体不要

修正版

Sub TableControl()
Const targetURL$ = "http://www.ikachi.org/sample/sample10.html"
Dim ie As InternetExplorer: Set ie = GetIEObject(targetURL)
If ie Is Nothing Then MsgBox "Plz Open the Web page": Exit Sub
'残りのコード
End Sub

Public Function GetIEObject(ByVal targetURL As String) As InternetExplorer
For Each GetIEObject In CreateObject("Shell.Application").Windows
If GetIEObject.LocationURL Like targetURL Then Exit Function
Next
Set GetIEObject = Nothing
End Function

久々に書いたから変な部分あるかもしれないが、これで一応MsgBoxは開く
個人的には、こんなややこしい事せずに普通にVBAで開いた方が確実だと思う

303 ：デフォルトの名無しさん ：2020/01/13(月) 12:47:26.86 ID:Jh+AJgi90.net

AndAlsoってないんだっけ？

304 ：デフォルトの名無しさん ：2020/01/13(月) 12:51:11.64 ID:nlvLw0Pz0.net

AndAlsoやOrElseはVB.NET
もうVB.NETでもいいからExcelに載せろよとは思う

305 ：デフォルトの名無しさん ：2020/01/13(月) 15:28:45.56 ID:/UClz5Bsa.net

はいネトウヨ論破ｗｗｗｗ
現実という劇薬を投与されて憤死したなｗｗｗｗｗ

306 ：デフォルトの名無しさん ：2020/01/13(月) 15:29:12.31 ID:/UClz5Bsa.net

誤爆したわ

307 ：デフォルトの名無しさん ：2020/01/13(月) 15:35:18.58 ID:v1ymyhJf0.net

イラン「誤爆した」

308 ：デフォルトの名無しさん ：2020/01/13(月) 18:49:02.06 ID:QiYXelOBa.net

>>302
ありがとうございます。
メッセージがちゃんと出ました。

309 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 7fa3-qRB+)：2020/01/14(火) 03:53:35 ID:D4OVEYsz0.net

>>304
短絡評価ぇ…

310 ：デフォルトの名無しさん ：2020/01/15(水) 09:32:44.41 ID:8JJ3bs+B0.net

基本的な事ですいません。
ActiveWorkbook.SaveAs Filename:=Cells(2, 36) & yyyy & "年" & mm & "月" & dd & "日" & ".xlsm"

セル内の文章 と日付でセーブする機能を盛り込んでいます。
実行時ファイル名が変わってエラー無く、VBAが動き続けているのですが、

saveするフォルダ内に該当のエクセルファイルそのものが見当たりません。
見かけ上の問題だけか？と思い、停止してフォルダを検索しましたがエクセルファイルはありませんでした。

ActiveWorkbook.SaveAs Filenameというのは、新しく名前を付けて保存なので、中身はともかく実行されたらエクセルファイルは生成されますよね？

311 ：309 ：2020/01/15(水) 09:49:48.07 ID:8JJ3bs+B0.net

すいません。自己解決しました。

指定フォルダにsaveする記述がズレていただけでした。

312 ：デフォルトの名無しさん ：2020/01/15(水) 19:10:48.65 ID:WqIuLPSu0.net

あなたのハゲにサクセスしたい

313 ：デフォルトの名無しさん ：2020/01/15(水) 21:59:00.70 ID:h+QybiOr0.net

ｷﾀ━━━━｡ﾟ+.ヽ(´∀`*)ﾉ ﾟ+.ﾟ━━━━!

314 ：デフォルトの名無しさん (ﾜｯﾁｮｲ a9cc-0hUg)：2020/01/16(Thu) 21:35:54 ID:1+aO/gYN0.net

Excel2019で、
.ActiveWorkbook.SaveAs FileName:=FilePass, FileFormat:=51

ってやると、

'Book1' の変更内容を保存しますか？
ってダイアログが出て保存できないね。
どうしたらいいだろう？お手上げです。

315 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8d7c-iIoL)：2020/01/16(Thu) 21:46:08 ID:0+Ijnx150.net

「はい」押したらいいんでないの

316 ：デフォルトの名無しさん (ﾜｯﾁｮｲ a9cc-0hUg)：2020/01/16(Thu) 21:51:01 ID:1+aO/gYN0.net

>>315
はいを押しても
'Book1' の変更内容を保存しますか？
って同じダイアログが出続けて保存できません。

317 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8d7c-iIoL)：2020/01/16(Thu) 21:56:43 ID:0+Ijnx150.net

じゃあいいえ押せば

318 ：デフォルトの名無しさん ：2020/01/16(木) 22:25:40.00 ID:LhzC5ZEG0.net

>>316
Application.DisplayAlerts = False

319 ：デフォルトの名無しさん ：2020/01/16(木) 23:46:15.85 ID:zIX3nnAn0.net

そんなの出たっけ?
CSVだとしつこく聞いてきたような記憶があるが。

320 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8d7c-iIoL)：2020/01/16(Thu) 23:49:24 ID:0+Ijnx150.net

保存せず閉じる時に出るメッセージかな

321 ：デフォルトの名無しさん ：2020/01/17(金) 12:59:57.34 ID:Os8PeLdnM.net

>>314

「保存されたこと」にしてしまえば？

オブジェクト.Saved = True

322 ：デフォルトの名無しさん (ﾜｯﾁｮｲ c5da-HLSl)：2020/01/17(金) 19:34:06 ID:1AQmX/Lf0.net

間に何かのイベントが反応して、何も変更してないのに、変更したと見なされちゃってるとか?

323 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 25ce-A78j)：2020/01/17(金) 19:48:23 ID:hML99gYW0.net

揮発性関数を使ってるとファイルをオープンしただけで変更したと見なされる

324 ：313 (ﾜｯﾁｮｲ a9cc-0hUg)：2020/01/17(金) 23:26:14 ID:v8gb16450.net

CreateObject("Excel.Application") で Ｃ#からExcelを操作してます。
Excel2016までは正常にできてたけど、Excel2019になってこの症状が出ています。

>>317
いいえでも無限ループ

>>318
効果ありませんでした。

>>319
Excel2019で出るようになりました。

325 ：デフォルトの名無しさん (ﾜｯﾁｮｲ c5da-HLSl)：2020/01/18(土) 00:21:02 ID:6wqE9Oqx0.net

C#ってウソだろ?
VBAの構文しか見えないが。
今はそんなことになってるのか。

326 ：デフォルトの名無しさん (ﾜｯﾁｮｲ bd5f-0x+Z)：2020/01/18(土) 00:37:29 ID:vFXF5Tw00.net

どうせC#のコード内でExcelを呼び出してるんだろうね。

327 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8d7c-iIoL)：2020/01/18(土) 01:13:27 ID:kT6CUwPp0.net

>>324
savedは

328 ：デフォルトの名無しさん ：2020/01/18(土) 03:37:25.77 ID:QBPyK2Ke0.net

参照設定見直し

329 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f901-mQF2)：2020/01/18(土) 04:11:21 ID:SGizdn1y0.net

競馬やる奴、毛根をハーゲットに取り込む方法教えます

330 ：デフォルトの名無しさん (ﾜｯﾁｮｲ a9b0-4vOW)：2020/01/18(土) 06:07:28 ID:Kncf6iS90.net

自作データベースをエクセルでも管理できるように
簡易CSV形式（つまりカンマで区切っただけ）のテキスト出力できるようにしたんだけど
文字コードがUTF-8だと自作→エクセルなら大丈夫なんだが
エクセル→自作に戻すと文字化けする。
エクセルのCSVってShift_JISでしか出せないの？

331 ：デフォルトの名無しさん (ﾜｯﾁｮｲ cdca-6zBS)：2020/01/18(土) 06:15:01 ID:G5wl/6H20.net

UTF-8形式のテキストファイルに書き込む
http://officetanaka.net/excel/vba/file/file11.htm

332 ：デフォルトの名無しさん ：2020/01/18(土) 06:49:02.70 ID:Kncf6iS90.net

あー最新版ならファイルメニューにあるんだな・・・
おれの2010だわ
ありがとう

333 ：313 (ﾜｯﾁｮｲ a9cc-0hUg)：2020/01/18(土) 20:48:30 ID:GU2jl3IU0.net

>>327

効果なし。
タスクマネージャーを確認すると、Excel終了できないで残ってるし。
Excel2019ってキングソフト以下の糞になったのかな。

334 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8d7c-iIoL)：2020/01/18(土) 22:42:14 ID:kT6CUwPp0.net

>>333
残ってるのは自分がちゃんと解放してないからですな…

335 ：デフォルトの名無しさん (ﾜｯﾁｮｲ c5da-6zBS)：2020/01/18(土) 23:05:19 ID:6wqE9Oqx0.net

ADO使う時、VBAだとExcel8.0も12.0もいけるのに、VBSだと8.0しか使えない。
12.0を使おうとすると、プロバイダがないだのISAMがないだの言われる。
多分、VBAだと参照設定でADO2.8とか6.1を選べるけど、
VBSはCreateObjectで、自由に選べないのが原因じゃないかと思うんだけど、
具体的にdll指定する方法とか無い?
え? Accessの何とかコンポーネント入れろって?
会社のPCだから、使う人の分申請するの面倒なんだよ。
え? そもそもVBSスレじゃないだろって?
あっちは何か変なのが住み着いてるじゃん。クリボーみたいなAA貼って。

336 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 25ce-A78j)：2020/01/18(土) 23:09:07 ID:GBX9mo+x0.net

>>335
CreateObjectにバージョンまで書くだけ

337 ：デフォルトの名無しさん ：2020/01/18(土) 23:24:48.43 ID:jJ2WRqDf0.net

気持ち悪いよねVBSスレ
死んでくれないかな誰とは言わないけど

338 ：デフォルトの名無しさん ：2020/01/18(土) 23:29:07.74 ID:qFsoK61Ea.net

>>333
エスケープでキャンセルするは？

339 ：313 ：2020/01/18(土) 23:44:31.92 ID:GU2jl3IU0.net

>>334
そんなのちゃんとやってますわ。
Excel2016 までは普通に動いてたんですよ。

>>338
なにやってもダメ。タスクマネジャーから強制終了するしかない。


てか今日はなぜか再現しなくなった。
Excelって何かアップデート入った？それともWindows10起因かな？

340 ：デフォルトの名無しさん ：2020/01/19(日) 00:23:37.04 ID:qcodQ+dh0.net

普通、PowerShell, VBScript などで、
Excel, IE などを起動すると、プロセスが残る

プロセスを終了させるには、名前で調べて、終了させないといけないから、
名前が一致すれば、無関係のプロセスも、終了させられてしまうw

341 ：デフォルトの名無しさん ：2020/01/19(日) 00:27:32.31 ID:qcodQ+dh0.net

>>335
VBS のスレ主のピッコロ大魔王は、すごい使い手だよ。
VBSで、5ch をスクレイピングしたりもするし

ただ、荒らしに粘着されてる。
コテハンは目立つから、どうしても粘着される

342 ：デフォルトの名無しさん ：2020/01/19(日) 00:31:47.67 ID:/KlymybO0.net

＞VBSで、5ch をスクレイピングしたりもする
スキルとしては下の下なんだが

343 ：デフォルトの名無しさん ：2020/01/19(日) 01:08:44.67 ID:jaXQhxpp0.net

あなたのハゲにサクセスしたい

344 ：デフォルトの名無しさん ：2020/01/19(日) 01:12:37.02 ID:i5FWYGKN0.net

でもまともなエディタないのにスクレイピングできるってちょっとすごいと思うわ

345 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 7d35-A78j)：2020/01/19(日) 01:28:51 ID:/KlymybO0.net

>>344
そう言われてみると確かに凄い！

346 ：デフォルトの名無しさん (ﾜｯﾁｮｲ c5da-6zBS)：2020/01/19(日) 14:51:45 ID:SjdpeY/L0.net

>>336
CreateObject("ADODB.Connection.6.1")も、
CreateObject("new:{B691E011-1797-432E-907A-4D8C69339129}")もダメだったわ。
ActiveXコンポーネントを作成出来ませんって。
何がダメ?

347 ：デフォルトの名無しさん ：2020/01/19(日) 15:15:57.62 ID:aNwanbWxd.net

もういい加減IE辞めたら？
あんたの会社セキュリティ意識なさ過ぎじゃない
大丈夫なの？表の仕事はしてない会社なのか

348 ：デフォルトの名無しさん ：2020/01/19(日) 15:59:41.27 ID:GJyhHQJKM.net

VBAを捨てられない組織がIEを捨てられるわけがないだろう

349 ：デフォルトの名無しさん (ｵｲｺﾗﾐﾈｵ MM29-YUdL)：2020/01/19(日) 16:26:59 ID:Z4m11qD6M.net

>>346
ADODB.? てのは無いんだっけ…

350 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa05-6Lxe)：2020/01/19(日) 18:16:17 ID:ABvwSa+Qa.net

上司が無能

351 ：デフォルトの名無しさん (ｽｯﾌﾟ Sd82-efZq)：2020/01/19(日) 20:13:14 ID:ex79Jb14d.net

IE?
何の話?

>>336はADOの話だし、>>341のスクレイピングはIEとは言ってないよな。

それともスクレイピングはIEでしか出来ないレベルの人?

352 ：デフォルトの名無しさん (ﾜｯﾁｮｲ c5da-6zBS)：2020/01/19(日) 20:55:51 ID:SjdpeY/L0.net

>>349
何それ?
どうしてもダメなら、最悪MSQuery使うつもりだけど、
シート名の指定が変な特殊文字で面倒臭いんだよな。

353 ：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd82-sV0n)：2020/01/19(日) 20:56:52 ID:aNwanbWxd.net

ActiveX

354 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 869f-6zBS)：2020/01/19(日) 22:36:56 ID:nXr7UDmZ0.net

>>106　これと同じ人なのですが、レコード番号が不正と出ます。
セルの指定が上手くいってないのだろうとはわかりますが、どうしたらいいかわかりません
すごい初歩的なとことで躓いている気がするのですがご教授ねがいます

Sub Test_Open()

Dim a As Byte
Dim strFilePath As String
strFilePath = ActiveWorkbook.Path & "\data.bin"

Open strFilePath For Binary As #1

Dim i As Integer
For i = 1 To 6
Put #1, Cells(i, 1), a
Next i

Close #1

End Sub

355 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 25ce-A78j)：2020/01/19(日) 23:04:08 ID:PQm/OLWJ0.net

>>354
For i = 1 To 6
　　a = Cells(i, 1)
　　Put #1, , a
Next

356 ：デフォルトの名無しさん ：2020/01/19(日) 23:34:15.88 ID:nXr7UDmZ0.net

ありがとうございます！　やっと一歩進めました

ただ最終的に、ある行の１〜数万行のデータをその数値のままバイナリデータに変換したいので
現在だと　17　なんかは　11　00　のように入力されてしまうことと
セルの　Cells(i, 1)　数値の方を変更すると型の不一致と出てくることは何が原因でしょうか
　小さすぎるかと思って　As Byte　を　As Long　にしてもダメでした

357 ：デフォルトの名無しさん ：2020/01/19(日) 23:40:29.46 ID:RvM5FchK0.net

型の範囲よく判ってないならちゃんと調べた方がいいよ

358 ：デフォルトの名無しさん ：2020/01/19(日) 23:55:33.87 ID:jaXQhxpp0.net

あなたのハゲにサクセスしたい

359 ：デフォルトの名無しさん ：2020/01/20(月) 00:40:12.58 ID:V4ZsTE2o0.net

型の範囲……調べてもそう難しくなさそうなのに何故か不一致の時は不一致に
ただ、いろいろ試していたら行の指定や範囲の指定はなんとかなったんですが、
やっぱり数値が16進に置き換わってしまいます
Dim a As Byte　をStringとかに変えると　まあ文字列になってしまうし

360 ：デフォルトの名無しさん ：2020/01/20(月) 01:56:26.20 ID:fAyYAtJL0.net

>>359
セルに入ってる数字は最大いくつ(何バイト分)なの？

361 ：デフォルトの名無しさん ：2020/01/20(月) 02:04:25.58 ID:fAyYAtJL0.net

もしかして、やりたいのはこういうことか？

Sub Test_Open()
　　Dim a As Integer
　　Dim strFilePath As String
　　Dim i As Integer
　　strFilePath = ActiveWorkbook.Path & "\data.bin"
　　Open strFilePath For Binary As #1
　　For i = 1 To 6
　　　　a = Val("&H" & Cells(i, 1).Text)
　　　　Put #1, , a
　　Next
　　Close #1
End Sub

362 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 869f-6zBS)：2020/01/20(月) 08:18:58 ID:V4ZsTE2o0.net

お手間をかけます

セルの値は00〜FFの範囲で　セルの見た目そのままをバイナリに落とし込むことを目的としています

例えば書いていただいた　>>361　では
セルの値が　01　だと書き出したほうは　01　00　となるので　
後ろの　00　は省いて書き込みたいと考えています

363 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 25ce-A78j)：2020/01/20(月) 11:15:52 ID:fAyYAtJL0.net

>>362
それなら最初の宣言を
Dim a As Byte
に戻すだけ

364 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 869f-6zBS)：2020/01/20(月) 12:30:47 ID:V4ZsTE2o0.net

ああ、出来ました！
i の範囲もLongにしたら数十万も対応できたので思っていたのが完成しました

長々と丁寧にお付き合いいただき、ありがとうございます！

365 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa05-6Lxe)：2020/01/21(火) 16:05:59 ID:v6wThH4Xa.net

>>364
エクセルの最後までいくとえらーでるんじゃね

366 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 869f-6zBS)：2020/01/21(火) 18:50:01 ID:oJaN0VWt0.net

実行するとめっちゃ重くなり、一度エラーがありましたが、
その時以外は、成功しています

367 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 6ef2-JESV)：2020/01/21(火) 18:53:25 ID:G9onwGKx0.net

話しは変わりますが、”Microsoft Office Desktop Apps” と表示されてる方がデスクトップ版じゃなくてストアアプリ版だって本当ですか？

368 ：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM6b-FqHH)：2020/01/22(水) 18:27:54 ID:qTZNd94bM.net

一つのシート上の複数セルに関数が設定されています。

すべてのセルの関数の処理が一つ一つ処理されていき、最終的にすべてのセルの更新処理が終わったときに、あるマクロを動かしたいのですが、どうやればいいのでしょうか？

369 ：デフォルトの名無しさん (ﾜｯﾁｮｲ e7da-9rwV)：2020/01/22(水) 18:51:55 ID:dkHhF3U80.net

もはやExcel大喜利だな。

370 ：デフォルトの名無しさん (ﾜｯﾁｮｲ c701-CT20)：2020/01/22(水) 19:00:23 ID:BHh+OjnL0.net

ここには北海道のスーパーハゲザーはこないのー？

371 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 4740-OdrL)：2020/01/22(水) 19:20:56 ID:0xXxIRDp0.net

>>368
セルの関数を指定のタイミングと順番で処理したいってこと？
関数の入ったシートのEnableCalculationプロパティをFalseにして、
計算したい関数の入ったRangeのCalculateメソッドを順次呼べば一個ずつ処理できる
それで最後の関数の計算が済んだ後にマクロを実行するとか

一応関数の計算終了時に動かすマクロはシートのCalculateイベントに書いても実行できるけど、
シート全体が対象だからCalculateメソッドが走るたびに発火するから使えないと思う

372 ：デフォルトの名無しさん ：2020/01/22(水) 21:36:24.98 ID:ASOe66pr0.net

>>371
ありがとう
試してみます

自分で作った関数を引数変えて500セルくらいが呼び出す状態なんです。
んで、かなり遅くて、全部が終わるまで5分位待つことになるので、それではつかいものにならないので、高速化を図りたいのです。

373 ：デフォルトの名無しさん ：2020/01/22(水) 21:45:06.72 ID:NTh6ute5a.net

そろそろ python とか考えた方がいいデータ量だな

374 ：デフォルトの名無しさん ：2020/01/22(水) 22:07:39.73 ID:u4WICNHad.net

>>372
そういうのは、いちいちワークシートとか数式を使わずに、全部配列で処理すれば5秒で終わるよ

375 ：デフォルトの名無しさん ：2020/01/22(水) 23:41:11.62 ID:dkHhF3U80.net

そう思っていた時代がありました。
セルに数式とかダセェぜ、これからはSQL

376 ：デフォルトの名無しさん ：2020/01/22(水) 23:42:00.02 ID:dkHhF3U80.net

だ、とか思って、DSUMのあまりの遅さに撃沈。

377 ：デフォルトの名無しさん (ｱｰｸｾｰ Sx7b-A/Ym)：2020/01/23(Thu) 04:03:57 ID:7AuSNAnix.net

500セルに対するETL処理だからPowerQueryでインメモリ処理すれば良いのでは

378 ：デフォルトの名無しさん ：2020/01/23(木) 12:47:14.66 ID:TvBTmyI8d.net

>>376
DSUMなんて使うからだろw
というか、Dの付く奴は手軽だけど使わないのが基本じゃ無いの?

379 ：デフォルトの名無しさん ：2020/01/23(木) 12:48:15.57 ID:TvBTmyI8d.net

というか、普通は>>374だろ。

380 ：デフォルトの名無しさん ：2020/01/23(木) 23:18:33.64 ID:020LoGP80.net

dsumよりサブクエリの方が速いのが納得いかん。
あんな遅いの、何であるんだ?
俺の使い方が下手なだけで、速く使える人もいるのか?

381 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 2735-Jq7D)：2020/01/24(金) 07:02:09 ID:3ouAvGwr0.net

>>380
db関数はAccessから持ってきただけのなんちゃって関数だと思っている
実装後にブラッシュアップでも考えていたのかもしれないが、今となってはもう・・・

382 ：デフォルトの名無しさん (ﾜｯﾁｮｲ c701-CT20)：2020/01/24(金) 10:44:07 ID:H2KGzjxR0.net

あなたのハゲにサクセスしたい

383 ：デフォルトの名無しさん (ｱｳｱｳｴｰ Sa1f-9rwV)：2020/01/25(土) 05:46:11 ID:q4rx//wXa.net

新聞配達しながらプログラミングのこと考えてたんだが
オブジェクト指向こそプログラミング的発想の1丁目1番地で
オブジェクト指向が解らないやつは3流のクズってことで結論出ました。

384 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 2735-Jq7D)：2020/01/25(土) 07:10:00 ID:hvTbtP8U0.net

>>383
高評価

・プログラミングできるのに新聞配達？何も分かっていないだろうと思わせる
・コンビニ店員ではなく、新聞配達というというのも良いチョイス。考え事ができそうなイメージがある
・ただ惜しいのは「プログラミング的発想」。プログラミング的発想が原初のプログラミングを指すならさすがに手続き型になる
・恐らく元は別のコピペであることは容易に推測できる

コピペにしろ、なかなか良いチョイスではあるが、詰めが甘い

385 ：デフォルトの名無しさん ：2020/01/26(日) 10:47:31.88 ID:ygprKbmU0.net

転記元の最終行を取得するところで1004エラーがでる

Dim fl As String
Dim WBo, Wbd As Workbook
Dim a As String
Dim ex As String
Dim syamei As String

Sub 変換ファイル選択()
syamei = Range("B3")
fl = Application.GetOpenFilename
ThisWorkbook.Worksheets(1).Range("C1") = fl
Set WBo = Workbooks.Open(fl)
MsgBox "出力先を選択"

With Application.FileDialog(msoFileDialogFolderPicker)
.Show
a = .SelectedItems(1)
End With
With ThisWorkbook.Worksheets(1)
ex = a & "\" & .Range("B3") & "_" & Year(Now) & "_" & Month(Now) & ".xlsx"
.Range("C2") = ex
.Activate
End With
Set Wbd = Workbooks.Add
Wbd.SaveAs ex
ThisWorkbook.Worksheets(2).Activate
ActiveSheet.Copy Wbd.Worksheets(1)
ThisWorkbook.Worksheets(1).Activate
End Sub

386 ：デフォルトの名無しさん ：2020/01/26(日) 10:47:38.48 ID:ygprKbmU0.net

Sub 変換処理()

Dim Wsd As Worksheet '請求書
Dim Wso As Worksheet '転記元
Dim i As Long 'ForNext用
Dim j As Long
Dim ko As Long '個数
Dim Kohani As Range
Dim fnkohani As Range
Set Wsd = Wbd.Worksheets(1)
Set Wso = WBo.Worksheets(1)
Const Dhin = 1
Const Dtan = 2
Const Dko = 3
Const Dkin = 4
'転記元定数
Const Ohin = 4
Const Otan = 3

Wsd.Activate
With Wso
Range("E3") = Year(Now) & "/" & Month(Now)
j = 7
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1) = syamei Then
MsgBox syamei
End If
Next i
End With
End Sub

387 ：デフォルトの名無しさん ：2020/01/26(日) 10:48:01.26 ID:ygprKbmU0.net

for i = のところね、なんで？

388 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 2735-Jq7D)：2020/01/26(日) 11:12:02 ID:byZzTIzc0.net

>>385
もうちょっとテストしやすい形にしてくれ

>>385　最期から三行目ぐらいでエラー。原因は多分ファイルの構成かなんかだろう
>>386　エラーにならない

エラーになるファイルか、スクリーンショットでも貼ってくれ

389 ：デフォルトの名無しさん (ﾜｯﾁｮｲ e7ce-Jq7D)：2020/01/26(日) 11:21:15 ID:vsWc/GLT0.net

>>387
たぶんこうじゃないかな
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row

390 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 47ad-FkkX)：2020/01/26(日) 11:33:50 ID:JYk4qqrF0.net

Excel VBA初心者です。
やりたいことに似ているサンプルを読み解きながら
勉強中です。
初歩的なことで申し訳ないのですが、ご教示いただければ
ありがたいです。
クローズメソッドの説明を
　https://www.tipsfound.com/vba/11006
読んででいたのですが、説明文で
　Call wb.Close(SaveChanges:=True) ' 変更を保存して閉じる
　Call wb.Close(SaveChanges:=False) ' 保存しないで閉じる
というのが出てきました。
Call と付いている意味がわからず、call について調べてみたの
ですが、プロシージャの呼び出しについての説明しか見つけられず
困っています。
どうぞよろしくお願いいたします。

　

391 ：デフォルトの名無しさん ：2020/01/26(日) 12:13:28.33 ID:QZpkq/o4x.net

>>390
Callは引数に指定したプロジージャに制御を渡して呼び出すVB6のステートメントで使用するキーワードだよ
CallキーワードはVBAの文法上省略可能
Callを省略しない場合、呼び出すステートメントに渡す引数__ argumentlistは括弧括り・カンマ区切りの形式にしないといけない

つまり以下の二つの命令はどちらもCallステートメントで、同じ動作・効果をする

wb.Close SaveChanges:=False

Call wb.Close(SaveChanges:=False)

392 ：デフォルトの名無しさん ：2020/01/26(日) 12:37:50.96 ID:fwxC7BLNd.net

エクセル以外はインストール出来ないって特殊会社にこき使われてる社畜は無視してその他の人はVBAなんて覚える価値は全くないから騙されるなよ
エクセルデータを読み込んで加工するなんて簡単な事

393 ：デフォルトの名無しさん ：2020/01/26(日) 12:49:58.68 ID:QZpkq/o4x.net

場合によりけりだろう
Excelの読み込みができる言語ならエクセルデータの加工が可能なのは事実だが、VBAが手軽なのは間違いない
今やPower Queryの操作もVBAで行えるから、VBAを呼び出し元にして複雑なデータ加工を高速で行うことも可能になってる

394 ：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM3b-muPn)：2020/01/26(日) 13:53:16 ID:Hz+a2g+VM.net

>>390
call つかうと引数の括弧が必須になるんだよ
使わないときは括弧つけるとエラー
そんで変数＝関数(引数)　みたいに返り値を取る場合も括弧が必須になる
つまりcall 使うと括弧有無の記述を統一できるんだね

395 ：デフォルトの名無しさん ：2020/01/26(日) 15:15:52.15 ID:trXW8RYwM.net

VBAでのPower Query操作ってクソだよね
letからinまでのステップ全体がFormulaプロパティに長い文字列として収まってるだけ
vbaの貧弱な文字列操作で弄りたくない

396 ：デフォルトの名無しさん (ｽｯﾌﾟ Sdff-1dWi)：2020/01/26(日) 15:46:06 ID:wbtCtzSUd.net

>>392
>>393
まず、基本的に対象が違う。
Excel以外はExcelブックとの連携であり、Excelファイル操作が主題。

ExcelではExcelを開いた状態で、Excel上での作業を効率化するもの。
従って基本的に競合しない。

何故、Excelファイルが使われるかと言えば、Excel上で何らかの作業をする為であり、その作業が仕事に大きな意味を持つから。
その大きな意味によってExcelというアプリケーションが使用されている以上、VBAの優位性は動かない。

397 ：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd7f-APVk)：2020/01/26(日) 15:49:42 ID:QaUqszajd.net

データの共有や統合が出来ないのがエクセルの欠点

398 ：デフォルトの名無しさん (ｱｳｱｳｴｰ Sa1f-Jq7D)：2020/01/26(日) 17:01:12 ID:DD0zspUIa.net

できるけど、もう使わないだろう

399 ：デフォルトの名無しさん ：2020/01/26(日) 18:03:51.13 ID:H61ob1qx0.net

あなたのハゲにサクセスしたい

400 ：デフォルトの名無しさん ：2020/01/26(日) 19:14:52.64 ID:JYk4qqrF0.net

>>391
>>394
わかりやすいご説明ありがとうございました。
もっと勉強して、みなさんの会話に混ざれるように
なりたいです。
職場でExcelのひな形をコピーして、顧客リストの顧客コードを
シートの指定のセルに書き込み、Book名にも付加して、名前を付けて
保存、というのを2000個くらい毎年度初めに作るのが若手のお仕事よ！
と仰せつかり、歴代の先輩方は手分けして「手作業で」やっていたと聞き、
「いやいやいや、何時代よ！」と勉強を始めました。

401 ：デフォルトの名無しさん (ﾜｯﾁｮｲ a77c-IHvl)：2020/01/26(日) 19:24:52 ID:trMje/ic0.net

>>400
ここ煽りやアンチばっかだからもっとマシな場所に混ざりに行ったほうがいいよ

402 ：デフォルトの名無しさん (ｱｰｸｾｰ Sx7b-A/Ym)：2020/01/26(日) 22:14:31 ID:9RxiX0DDx.net

>>395
長くなるかどうかは書き方次第だろう
Let In構文はMの文法上必須ではないので、変数を極力使わずLispのような記法で短くまとめても良い

403 ：デフォルトの名無しさん (ﾜｯﾁｮｲ a78e-U9mn)：2020/01/27(月) 00:51:05 ID:X7pesRTh0.net

>>400
馬鹿しかいない職場か？

404 ：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd7f-Y2bj)：2020/01/27(月) 08:07:38 ID:l0N1pZ88d.net

>>400
コーディング含めて1時間あれば出来そう

けど便利屋になるのだけは避けた方がいいぞ。
今後そういう処理は全部お願いってなって、雑用みたいな仕事ばっかり来るはめになる。
プログラマーは評価されにくく、いいように使われやすいから。

コードをしっかり管理して、そうならないようにな！

405 ：デフォルトの名無しさん (ﾜｯﾁｮｲ bf02-D/Lt)：2020/01/27(月) 08:22:04 ID:UsiT3d7U0.net

アホな職場上司もとい老害同僚からは
仕事減るから余計な事するな
と言われる可能性も

406 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa4b-Egc/)：2020/01/27(月) 12:05:43 ID:+n+DvrX6a.net

出る杭は

407 ：デフォルトの名無しさん (ﾜｯﾁｮｲ e7a2-9rwV)：2020/01/27(月) 12:31:00 ID:vcCI8B5w0.net

まじでそういう馬鹿上司いそうで困るな
しかも外のセミナーで自動化で人件費コストカットとか吹き込まれたら躊躇なくクビ切ってきそう

408 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 475f-9rwV)：2020/01/27(月) 19:27:17 ID:2ZMm50820.net

シート上に配置したコントロール（ボタンなど）の名前を調べたり変更したりするには
どうすればよいのでしょうか

シートにたくさん画像が貼り付けてあるので、それらを一斉に消去するために

Public Sub pics_delete(sname As String)
Dim delShape As Shape
For Each delShape In Worksheets(sname).Shapes
If (delShape.Name <> "btnDelete") Then
'delShape.name = btnDelete
delShape.Delete
End If
Next
End Sub

こんな感じのコードを書いているのですが、配置したボタンの名前をワークシート上で
参照／変更することが出来ません
仕方ないので、一旦全てのシェイプが消えたあと再度ボタンを配置して、上記プログラムの
コメント部分を切り替えています

プロパティを見ても、オブジェクトとしてワークシートが選択されてしまうようで、ボタンを
選択した状態でプロパティを見てもボタンの情報が参照できません

409 ：デフォルトの名無しさん (ﾜｯﾁｮｲ a77c-IHvl)：2020/01/27(月) 19:50:12 ID:0hVuFT9Z0.net

>>408
shapesは図形
コントロールはフォームコントロールかActiveXコントロールで扱い方違う

410 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 475f-9rwV)：2020/01/27(月) 20:35:24 ID:2ZMm50820.net

>>409
あ、すいません
プログラム上ではなくて、excelの画面上でボタンの名前を確認、変更したいのです
ちなみにボタンは「開発」タブの「コントロール」で「挿入」から選べるものを使ってます

411 ：デフォルトの名無しさん (ｱｰｸｾｰ Sx7b-A/Ym)：2020/01/27(月) 20:37:54 ID:KoUrFee7x.net

>>410
だから、フォームコントロールとActiveXコントロールのどっちなの

412 ：デフォルトの名無しさん ：2020/01/27(月) 21:01:21.61 ID:2ZMm50820.net

>>411
失礼、フォームコントロールでした

413 ：デフォルトの名無しさん (ｱｰｸｾｰ Sx7b-A/Ym)：2020/01/28(火) 07:51:36 ID:C+B4t99Kx.net

>>412
名前を調べるなんて煩瑣な処理にしなくても、フォームコントロールだけを消さずに画像だけを消したいなら下のようにやれば良いのでは

Public Sub pics_delete(sname As String)
Dim delShape As Shape
For Each delShape In Worksheets(sname).Shapes
With delShape
If .Type <> msoFormControl Then
If .Type = msoPicture Then .Delete
End If
End With
Next delShape
End Sub

delShape.Typeで取得できる図形タイプを表す定数値がMsoShapeType.msoFormControlだったらフォームコントロール、MsoShapeType.msoPictureだったら画像だと判断するようにする
他にも消したいタイプの図形があるなら削除判定の箇所で任意のMsoShapeType列挙体に当てはまるかType属性を持っているかどうかを判定させたら良い

414 ：デフォルトの名無しさん (ﾜｯﾁｮｲ bff7-muPn)：2020/01/28(火) 09:01:31 ID:Ft5XlNEA0.net

>>412
ホームタブ右端の検索と選択→オブジェクトの選択と表示
からシート内オブジェクトリスト出てくるけどこれが名前だったかな

415 ：デフォルトの名無しさん ：2020/01/28(火) 09:48:07.01 ID:9/9sPnJua.net

終わりの鐘は鳴り響いた
https://ascii.jp/elem/000/004/000/4000725/

416 ：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM1f-9ipO)：2020/01/28(火) 10:02:58 ID:Nfh+nWpkM.net

あとは新しいVBAウィルスが出てセキュリティ業者が騒いだらVBAは本当に終わりだな

417 ：デフォルトの名無しさん ：2020/01/28(火) 10:46:16.03 ID:ih37tboE0.net

>>415
それ前にも貼られたけど、今までのとの違いが分からんのだが

418 ：デフォルトの名無しさん (ｵｲｺﾗﾐﾈｵ MMdb-RemH)：2020/01/28(火) 15:16:34 ID:oKycYjGsM.net

>>415
VBAでもできる範疇なら全く覚える気起こらん

419 ：デフォルトの名無しさん (ﾜｯﾁｮｲ e7da-Egc/)：2020/01/28(火) 17:56:01 ID:WltGdJqx0.net

覚えてないことはできるかどうかも判断できない

420 ：デフォルトの名無しさん ：2020/01/28(火) 18:12:38.87 ID:OkfjSvr+0.net

>>413
本来はこれがやりたかった、shapeのプロパティをちゃんと調べていなかったので
出来なかった処理でした
他にも似たような処理があるので、コード使わせていただきます

>>414
私の質問に対する回答は、これが求めていたものでした
開発タブしか見ていなかったんですが、ホームタブでいけたんですね

お二人共ありがとうございました

421 ：デフォルトの名無しさん ：2020/01/28(火) 18:28:16.91 ID:jS595giQM.net

>>418
そうか？
俺はVBAの代わりにTypeScript使えるなら乗換えるよ

422 ：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd0a-HEKX)：2020/01/29(水) 10:51:07 ID:QiJT1T/Bd.net

>>421
どの程度使えるかだな。
全く同じことができるなら乗り換えるだろうな。

423 ：デフォルトの名無しさん ：2020/01/29(水) 20:53:08.43 ID:WcpQW9dq0.net

まったく同じことしかできないなら乗り換える要素がない

424 ：デフォルトの名無しさん ：2020/01/29(水) 21:53:26.65 ID:QiJT1T/Bd.net

全く同じことができるなら、新規に憶えるだけじゃん。
それはこっちの労力だけで済む。
今後移行していくとすればその程度大した問題じゃない。

今まで他言語では出来なかったり、不便だったからVBAを使っていたわけでね。

425 ：デフォルトの名無しさん ：2020/01/29(水) 22:24:20.41 ID:PCXIkBj+0.net

>>423
同じことが楽にできるなら乗り換える理由になるでしょ？

426 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f1ce-unxX)：2020/01/29(水) 23:05:27 ID:vXudwKK20.net

今までと同じことをするだけなら、今までに書いたコードをそのまま使い回すのが一番楽だよな
わざわざ書き直す手間はだれが負担するんだ

427 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa21-jaaY)：2020/01/29(水) 23:12:48 ID:KmqvK0eda.net

>>426
いうてVBAなんて実質的には大したことやってないのが大半だろ
資産価値なんかゼロだよゼロ
コーダーの能力が低すぎて驚くほど冗長なコードになってるのは多いけど

428 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 6935-unxX)：2020/01/29(水) 23:27:08 ID:/IekKsgr0.net

sheet("sheet1").select！
さよか〜

個人的にはjQueryが一番嬉しい
あれ、記述が超絶楽ちんなんだよ。cssセレクタとかExcel vbaと感覚的にかなり似てる部分があると思う
$("sheets!").cell(1,2).backgroundcolor("red")
とかね
と書きながら思ったけどこれ別に言語買える必要ないな

googleのapps scriptは冗長でかなりめんどくさい　
強制的にアドイン扱いだしタイプが長い

429 ：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd0a-HEKX)：2020/01/30(Thu) 01:32:32 ID:OC7VpsKDd.net

>>426
書き直す必要は無いでしょ。
これからの話。

430 ：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd0a-HEKX)：2020/01/30(Thu) 01:33:34 ID:OC7VpsKDd.net

>>427
君のコードは大したことやってないの間違いじゃね?

431 ：デフォルトの名無しさん (ｱｳｱｳｴｰ Sa52-/fp1)：2020/01/30(Thu) 08:06:07 ID:c+cMZ6b7a.net

ぶったけインテリセンス次第なんだよなぁ
javascriptでインテリセンスが優秀なら移らない理由ないし
インテリセンスが不自由ならVBAやめないし

432 ：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM6d-jaaY)：2020/01/30(Thu) 08:13:50 ID:wtwPJonTM.net

>>430
VBAに大したことやらせなきゃいけないなら設計ミスだよ

433 ：デフォルトの名無しさん (ｵｲｺﾗﾐﾈｵ MM92-zWbH)：2020/01/30(Thu) 18:17:30 ID:Pn/eUKFJM.net

VBAで大したことやっちゃいかんでしょ

434 ：デフォルトの名無しさん (ｱｳｱｳｴｰ Sa52-/fp1)：2020/01/30(Thu) 18:33:44 ID:dbuen9v3a.net

自分の仕事の範囲で統計解析とかやるけどな

435 ：デフォルトの名無しさん ：2020/01/30(木) 18:53:21.09 ID:wB7TmKf3M.net

それがPythonだったら同じことやってても倍の年収貰えるのにもったいない

436 ：デフォルトの名無しさん ：2020/01/31(金) 00:09:52.88 ID:vDcmNEzT0.net

jQueryももう大分レガシー扱いだぞ

437 ：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd0a-HEKX)：2020/01/31(金) 02:51:37 ID:5fr2LAkld.net

Pythonでも無能は収入低いぞ。

438 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 6a94-rlSO)：2020/01/31(金) 02:57:44 ID:My55hBAe0.net

VBAのセキュリティは大問題
まともな会社は使用禁止
あんたの会社は禁止されてるよね？

439 ：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd0a-HEKX)：2020/01/31(金) 03:12:26 ID:5fr2LAkld.net

今まで、銀行、通信大手D社、保険、金融で働いたが禁止になってる所なんて無かったがね。
寧ろ、他アプリのインストールは基本禁止だったけど。

440 ：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd0a-HEKX)：2020/01/31(金) 03:14:49 ID:5fr2LAkld.net

そういやあ、某電気メーカーとかも2ヶ所有るけどどっちも禁止じゃ無かったな。

441 ：：2020/01/31(金) 19:54:00.67 ID:tTpxWp9S0.net

>>438
VBA にどんなリスクがあるというのですか？

442 ：デフォルトの名無しさん ：2020/01/31(金) 20:31:33.67 ID:3L7hmACM0.net

アスタリスク

443 ：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd12-unxX)：2020/01/31(金) 20:37:16 ID:z8AuaM8Bd.net

フリスク

444 ：デフォルトの名無しさん (ｽｯﾌﾟ Sd0a-unxX)：2020/01/31(金) 20:38:06 ID:cFUtKE40d.net

バジリスク

445 ：デフォルトの名無しさん ：2020/01/31(金) 20:58:33.01 ID:HqJxIhd9a.net

VBAはブックを開いただけで何でもやりたい放題で、脆弱性とかそういう以前の問題なの
例えるなら、訪問者に対してインターホン越しに応対するなどの身の安全を守る手段が何もなく、
無視するか家に上げるかの選択肢しかない

446 ：デフォルトの名無しさん ：2020/01/31(金) 21:01:57.72 ID:cFUtKE40d.net

古いExcelしか使ったことないんだろうね

447 ：：2020/01/31(金) 21:05:51.22 ID:tTpxWp9S0.net

>>445
その例えは例えになっていないと思いますよ
具体的にどういう危険性があるのか、それがごく普通の Windows アプリ　by win32api & MFC と比べてどのように危険になったのか、それを示していただけませんかね

448 ：デフォルトの名無しさん ：2020/01/31(金) 21:11:45.14 ID:qTFRZrOJ0.net

>>445
そんなのアプリも一緒じゃん
バカなの？
〉無視するか家に上げるかの選択肢しかない
あぁ、真正バカですね

449 ：デフォルトの名無しさん ：2020/01/31(金) 23:14:09.09 ID:3L7hmACM0.net

俺も知らんが、Excel脆弱性でググると色々出てくるってことは、そういうことなんじゃないの?

450 ：デフォルトの名無しさん ：2020/01/31(金) 23:17:05.34 ID:A6FbBq7w0.net

シート1のA行を1列目から右にセルに入ってる文字を配列に順番に入れるにはどうしたらいいですか？

451 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 11da-unxX)：2020/01/31(金) 23:23:17 ID:3L7hmACM0.net

　1　2　3
A
B
C

こ、こうか?
画面が横になってないかそれ。

452 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b501-JUiw)：2020/01/31(金) 23:34:43 ID:XWsoxoln0.net

>>450
WorksheetFunction.Index(取得したい範囲or取得した二次元配列,1)

453 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 397c-O1Hv)：2020/01/31(金) 23:35:50 ID:Y35MubRb0.net

>>450
dim ary as variant
ary = シート1.range(A行1列目から右のセル).value

454 ：デフォルトの名無しさん ：2020/01/31(金) 23:42:44.02 ID:XWsoxoln0.net

それだと二次元配列になって使い勝手悪くないか？
イテレータで回すならいいんだろうけど・・・

455 ：デフォルトの名無しさん ：2020/01/31(金) 23:57:41.94 ID:XWsoxoln0.net

ミス
WorksheetFunction.Index(取得した二次元配列,1,0)
だった

456 ：デフォルトの名無しさん ：2020/02/01(土) 00:00:37.73 ID:7UP4LFJm0.net

>>454
「A行1列目から右」が一次元か二次元か判断付かん

457 ：デフォルトの名無しさん ：2020/02/01(土) 00:45:50.64 ID:/851YuNs0.net

>>450
Excelでは、縦の並びが列、横の並びが行
普通はA列1行目みたいな表現になる

458 ：デフォルトの名無しさん ：2020/02/01(土) 01:30:43.62 ID:vD0VjYxE0.net

配列って言われたら普通はVBAの話だと思うが、実はシート関数の話をしているんじゃないか?

459 ：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd0a-HEKX)：2020/02/01(土) 11:40:24 ID:6d1xNKB7d.net

>>447
まあ、マクロウィルスは作成が簡単というのはあるな。
VBAのプログラムを作成するプログラムが簡単に作成出来るので。

但し、Excelもそれを封じる為にセキュリティーセンター内で、そういうプログラムの実行をするための設定としての「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」のチェックがデフォルトで外れている。
このチェックを付けて運用するのは危険だな。

でもここでチェックが付いてるとVBAが無くても勝手にVBA組まれちゃうんで、VBAの有る無しにかかわらずExcel自体が危険だな。
従って>>445のVBAの危険には該当しない。

>>445の言う危険って何だろうな?
所詮、よく知らない奴が知ったかぶりで語ってるだけ?

460 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f1a2-/fp1)：2020/02/01(土) 11:46:35 ID:RZeoMljp0.net

他の言語で業務を仕組化するって要は自分の価値を切り売りしてるようなもんだからな。
自分への属人性を排除して誰でも自分と同じ作業ができるようにする。
そんなんで金もらっても用がなくなれば切られるだけ。一時的に給料が上がるだけで自分にとって何のメリットもない。
それよりVBAで自分の仕事をブラックボックス化して属人化しといたほうが得。

461 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 6935-unxX)：2020/02/01(土) 12:24:16 ID:JknOw5Wd0.net

>>460
転職後にそういうカスを追い詰めるのが趣味です
徹夜でプログラム読み切ってバグとミスを指摘し続けて「え、ここじゃないんですか？みた瞬間にわかりますけど・・（大嘘）」
で大概の人はイライラMAXでデバッグが手につかなくなるｗざっこｗｗｗ

462 ：デフォルトの名無しさん ：2020/02/01(土) 12:39:36.37 ID:6d1xNKB7d.net

>>460
ん?
他の言語ってWeb系の話?

普通は、コンパイルでコード見えなくなる他言語よりVBAの方が属人性は無いと思うけど。

463 ：デフォルトの名無しさん ：2020/02/01(土) 12:41:37.55 ID:6d1xNKB7d.net

>>461
簡単なプログラムばかり見てきたんだね。
俺が扱うコードでは他人が書いたもの含めてそんな大変なことしたくない。

464 ：デフォルトの名無しさん ：2020/02/01(土) 12:56:41.71 ID:vD0VjYxE0.net

Test(ByVal a As String)
Test(ByRef a As String) ← こっちって型指定する意味ある?

Test(ByRef a) か Test(a) だと何かまずい?

465 ：デフォルトの名無しさん ：2020/02/01(土) 12:57:29.84 ID:JknOw5Wd0.net

>>463
そりゃvbaなんてどう書いてもベタ書きにしかならんよ
ラムダ式やコールバック関数ほかなーんにも無い、順番に読むだけ

466 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 6935-unxX)：2020/02/01(土) 13:02:40 ID:JknOw5Wd0.net

>>464
型が違う場合、コンパイル時点でエラーに出来る
けど型がふわふわのvbaでやる意味は薄いとは思う

Sub foo()
a = 1
Debug.Print Test(a)
End Sub

Sub Test(ByRef a As String)
End Sub

467 ：デフォルトの名無しさん ：2020/02/01(土) 13:06:17.87 ID:/851YuNs0.net

まあ、たまにタイプミスを発見できるとか、時間が経ってからコードに手を入れたい時に型が書いてあれば確認しなくてすむとか、そういう薄いメリットはあるかな

468 ：デフォルトの名無しさん ：2020/02/01(土) 13:21:19.67 ID:RZeoMljp0.net

パスワードかけてるのにどうやって見るんですかねぇ、犯罪者さん。

469 ：デフォルトの名無しさん ：2020/02/01(土) 13:22:06.87 ID:6d1xNKB7d.net

>>466
型定義してないコードなんてよっぽどだな。
そんな所は碌なもんじゃねえw

470 ：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd0a-HEKX)：2020/02/01(土) 13:23:10 ID:6d1xNKB7d.net

>>468
VBAのパスワードは基本的に解除できる筈だが。
俺の知識が古い?

471 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f1a2-/fp1)：2020/02/01(土) 13:25:52 ID:RZeoMljp0.net

技術的に可能だから不正アクセスするのか
犯罪者は発想が違うな

472 ：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd0a-HEKX)：2020/02/01(土) 13:31:03 ID:6d1xNKB7d.net

>>471
俺のまわりでは普通はパスワード掛かってないがw
お前が自らの知識の無さを披露したから指摘しただけだよ。

473 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f1a2-/fp1)：2020/02/01(土) 14:50:58 ID:RZeoMljp0.net

まぁ3流プログラマじゃ数字の流れは盗めてもその数字が意味するところまでは汲み取れないのが現実
相手がプログラミングができないと思い込んで知識窃盗を試みて数値の流れを盗んだところで自己満足
それをどう使うかなんて役員に対して説明もできんだろ
そんな奴はプログラミングできるぼくちゅごい！で思考停止してるアホだな。

474 ：デフォルトの名無しさん ：2020/02/01(土) 15:24:51.88 ID:JknOw5Wd0.net

>>468
プログラムは会社の資産だから別に不正アクセスでもなんでも無いよ？
自分の家の鍵を自分の鍵で開けてるだけだよ
それにvbaのパスワードとか秒で破られるもので防ごうってのも変な話

475 ：デフォルトの名無しさん ：2020/02/01(土) 15:27:07.32 ID:JknOw5Wd0.net

>>473
そんな誰にも分からないような高等な知識をわざわざパスワードかけて、毎回パスワード解除してるの？なんの意味があるの？手間なだけでは？

476 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f1a2-/fp1)：2020/02/01(土) 15:40:01 ID:RZeoMljp0.net

凄くなくてもお前には無理だよ

477 ：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd0a-HEKX)：2020/02/01(土) 16:05:04 ID:6d1xNKB7d.net

負け惜しみが酷い。
パスワード解除出来ることも知らない程度の奴の高度なプログラムなんて、こっちにとっては初心者コードじゃねーの?
精々、中級者までだろうよw

478 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f1a2-/fp1)：2020/02/01(土) 16:20:23 ID:RZeoMljp0.net

で、コードがかけたから何？
結局実務からseが要件定義しないとお前らは何もできないし、要件定義された内容を分割して指示通りにコード化してるだけだろ。
それのどこが偉いの？偉いのは実務だよ。
それにパスワードは外せて簡単に内容見れるとか言うなら俺が自分で計算やDB用ののdll書いてブラックボックス化を進めればいいのか
いくらでもブラックボックス化はできるけど信用の上に立って簡単なvbaで処理してるにすぎんよ
プログラマーが偉そうにするなら俺は協力しないし、会社命令でも手を抜くね
まるで属人化排除が印籠かなんかで相手の気持ちも考えず従えとか言ってくる勘違い馬鹿に協力するわけねぇわ

479 ：デフォルトの名無しさん ：2020/02/01(土) 16:45:45.26 ID:JknOw5Wd0.net

>>478
あぁ、何か変と思ったらこのスレの人をプログラマーと思っていたのか
このスレの大半は事務の人間だよ
俺は両方の経験者だけど

あんたは自分でレベル高いと思っているかもしれないけど、それほどでも無いって自覚だけはしておいたほうが良いぞ

480 ：デフォルトの名無しさん ：2020/02/01(土) 16:48:36.87 ID:RZeoMljp0.net

教養レベルのことを書いたらレベル高いって主張してるように見えるならお前も大したことないな
気をつけろよ

481 ：デフォルトの名無しさん ：2020/02/01(土) 17:08:00.96 ID:JknOw5Wd0.net

虚空に向かって喧嘩してるアホに言われたくないわｗ

482 ：デフォルトの名無しさん ：2020/02/01(土) 17:09:16.56 ID:RZeoMljp0.net

あれれ〜>>461でからんできてそれ言うの？頭大丈夫？

483 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f1a2-/fp1)：2020/02/01(土) 18:04:50 ID:RZeoMljp0.net

他人のエクセルファイル盗み見るとか公然と言うカスは教えてくんにも劣る犬畜生だという自覚すらないからな
教えてくんならググレカスで済むけどおしえてくれないならファイル盗むわとかほんと頭いかれてるわ

484 ：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd0a-HEKX)：2020/02/01(土) 18:20:25 ID:6d1xNKB7d.net

>>483
随分な言い様だな。
パスワード解除出来ることを知識として知っているかどうかの問題だろ。

俺の場合はかなり昔、といってもOffice2007が出て少しした頃だが、社内マクロのメンテナンスの仕事した時に、既に会社辞めた奴の作ったVBAにパスワード掛かってて、会社に了解を取って解除したことあるけど、実際に解除する奴なんてそんなにいないだろ。

だいたい、何が楽しくて解除なんてするんだよw
パスワード掛かってるコードが糞コードじゃないなんてこたあねーぞ。

485 ：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd0a-HEKX)：2020/02/01(土) 18:23:48 ID:6d1xNKB7d.net

>>483
教えて君てw
そんなレベルか?

486 ：デフォルトの名無しさん (ｵｲｺﾗﾐﾈｵ MMb5-ONLx)：2020/02/01(土) 19:30:50 ID:1yr2tbu5M.net

他人のファイルって、、
勝手に個人のファイルを会社に持ち込むな

487 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 6935-unxX)：2020/02/01(土) 19:46:14 ID:JknOw5Wd0.net

しゃべるほどアホが露呈してて草

488 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f1a2-/fp1)：2020/02/02(日) 06:03:03 ID:7y4L711k0.net

イチゴの苗を盗んでうちのイチゴは世界一とか言う人たちがいたなぁ
他人のエクセルファイルを盗んで一般化して得意になるって同じ精神構造なんだろうなぁ
日本の民度もここまで下がったらもうブラックボックス化して自衛するしかないね

489 ：デフォルトの名無しさん (ｱｰｸｾｰ Sxbd-cpDI)：2020/02/02(日) 07:54:10 ID:+yWqX/mnx.net

コモディティとしか言いようがないVBAでコードを盗むだの何だのと言ってることが笑える

490 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 11da-unxX)：2020/02/02(日) 09:18:18 ID:cGh+eVsA0.net

公表してもどうせ誰も読めやしないから、パスかけてないわってのが殆どだと思う。

491 ：デフォルトの名無しさん ：2020/02/02(日) 09:38:02.33 ID:CPvk3cGFd.net

パスワードで保護する価値はないだろ
価値があると思ってるのは自分だけ
VBAは20年前に終わった古いコードでもう出尽くしてるから今更目新しいのはない
あると思ってるのは誰かがもう採用済み

492 ：デフォルトの名無しさん ：2020/02/02(日) 10:05:41.35 ID:+yWqX/mnx.net

パワークエリとかスピル関連でVBAのオブジェクトモデルにもどんどん新しい機能が追加されているぞ
目新しいものがないと言い切るのはおかしい

493 ：デフォルトの名無しさん ：2020/02/02(日) 11:49:30.13 ID:jXfyVbWx0.net

>>490
他人が作った、他人の仕事専用のコードなんか読む意味がない

494 ：デフォルトの名無しさん ：2020/02/02(日) 11:55:17.84 ID:cGh+eVsA0.net

>VBAは20年前に終わった古いコード

さすがにそれはないわ。
新しいバージョンから使えるコードがあるから。

495 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ea9c-TmxF)：2020/02/02(日) 19:10:02 ID:mYIZG7DM0.net

>>491
コードをコビーされたくない財産と思っているのではなくて、書いた人の責任、管理を外れて、コードが勝手に変更されない為に保護するのが一般的。

496 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ea9c-TmxF)：2020/02/02(日) 19:14:37 ID:mYIZG7DM0.net

他の言語では、変更可能な形で、実務者に配布なんてありえないからな。

497 ：デフォルトの名無しさん ：2020/02/02(日) 19:26:59.62 ID:mYIZG7DM0.net

オープンソースの歴史が示している通り、ケチケチするよりオープンにして仲間を増やしたほうが、自分の得になる。

498 ：デフォルトの名無しさん ：2020/02/02(日) 20:14:04.59 ID:hngL1FZE0.net

列をコピーする際にクリップボードを使わずにコピーをする方法ってないでしょうか？
Columns("A").Copy
Columns("B").PasteSpecial (xlPasteValues)
こんな感じでコピーをするとwindows10標準の「クリップボードの履歴」という機能が使われるらしく、負荷がかかってエクセルブック自体が強制終了してしまいます
数行のデータなら何も問題ありませんが数十万行くらいあると落ちます
「クリップボードの履歴」機能をオフにすれば問題なく処理されるのは確認済みですがオンの状態で作業をしたいです
よろしくお願いします

499 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ea9c-TmxF)：2020/02/02(日) 20:21:49 ID:mYIZG7DM0.net

>>498
Columns("B").Value=Columns("A").Value

500 ：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM8e-XveV)：2020/02/02(日) 20:22:47 ID:OwB/30gMM.net

Columns("B").Value = Columns("A").Value

501 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 11da-unxX)：2020/02/02(日) 21:11:52 ID:cGh+eVsA0.net

Columns("B").Value = Columns("A").Value

より

buf = Columns("A").Value
Columns("B").Value = buf

の方がいいって本当かよ。

502 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 5ef7-0Ybi)：2020/02/02(日) 21:51:07 ID:vSAu5ol40.net

Columns(1).Copy Destination:=Cells(1, 2)

503 ：デフォルトの名無しさん (ﾜｯﾁｮｲ c55f-4v/K)：2020/02/02(日) 22:05:15 ID:mKkHkkxd0.net

Destinationは厳密にはクリップボード経由だけど、履歴を残したくないって目的の>>498は達成できるな。

504 ：483 (ｽｯｯﾌﾟ Sd0a-HEKX)：2020/02/02(日) 22:06:50 ID:TNVAL2WHd.net

>>495
俺がメンテナンスしてた時もこれに関してパスワード掛けてたな。
そこは、みんなVBAを弄るので勝手に改変されていって管理出来ないという問題があった。
それであるフォルダにあるブックのVBA全てに有効期限とパスワード掛けるコードとかをその時作った記憶がある。

505 ：デフォルトの名無しさん (ｽｯｯﾌﾟ Sd0a-HEKX)：2020/02/02(日) 22:08:48 ID:TNVAL2WHd.net

>>499
多分、数式消えるよ。

506 ：デフォルトの名無しさん (ｵｯﾍﾟｹ Srbd-0TLc)：2020/02/02(日) 22:35:10 ID:nUy+9nC9r.net

>>505
ん？

507 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 7579-/fp1)：2020/02/02(日) 22:56:08 ID:hngL1FZE0.net

返事が遅くなりましたが理想通りの結果を得られました
コピーしてからペーストという概念に捕らわれていましたがこんなこともできるのですね
ありがとうございました

508 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 6935-unxX)：2020/02/03(月) 07:20:26 ID:la6dU8XN0.net

>>501
特にそう書く意味は無いよ

509 ：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM81-yzQx)：2020/02/04(火) 22:29:38 ID:w6oOKiy/M.net

ExcelのかわりにGoogle spreadsheetが台頭してきましたが
これにもマクロは使えるの？

510 ：デフォルトの名無しさん (ｽｯﾌﾟ Sdea-HEKX)：2020/02/04(火) 22:37:40 ID:QPddTA8md.net

>>506
ごめん。
元の質問が値貼り付けしてるから大丈夫だ。

511 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa9b-YLe+)：2020/02/05(水) 00:55:11 ID:6fUVVF1Va.net

>>509
GASがある
VBAよりは遥かに優れてるよ

512 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 1f05-gL6P)：2020/02/05(水) 15:59:16 ID:N1BYfKU30.net

なんかVBAの実効速度が今日から急に早くなったんだけどなんでだろう？

513 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 377c-OB/u)：2020/02/05(水) 19:22:41 ID:yswtwGvQ0.net

使うデータ同じで速度が変わったんなら裏でなんか重い処理でも動いてたんじゃないの

514 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b735-56gX)：2020/02/05(水) 19:37:41 ID:GjIRsdly0.net

windowsのアップデートで妙に早くなることはたまによくあるな

515 ：デフォルトの名無しさん ：2020/02/05(水) 20:42:09.91 ID:ljVFwt830.net

>VBAよりは遥かに優れてるよ

言い過ぎ。
というか、シート内で出来ること以外は機能が殆どかぶってないと思うが。

516 ：デフォルトの名無しさん ：2020/02/05(水) 22:14:16.66 ID:QzJPWqba0.net

>>511
Excelでいう「マクロの記録」みたいな機能ある？
だったら乗り換えたいかも

517 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f7da-56gX)：2020/02/05(水) 23:05:17 ID:ljVFwt830.net

マクロの記録はあるが、乗り換えって・・。
使い分けだろう。

518 ：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd3f-5XTe)：2020/02/06(Thu) 10:38:54 ID:Lc0GjY0Ud.net

エクセルは多人数で同一ファイルの同時使用が出来ないからgoogleの方が遥かに便利

519 ：デフォルトの名無しさん ：2020/02/06(木) 11:40:29.55 ID:W5BIAByhM.net

ローカルのExcelブックからDBに上げる・DBからブックに落とすだけのマクロは非常に多いからな
VBAマクロの代替以前に、Googleスプレッドシートに移行した時点で不要になるゴミはとても多い

520 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b735-56gX)：2020/02/06(Thu) 18:57:22 ID:QU3mlgEx0.net

excelブックをメールで行ったり来たりさせてメールボックスパンパン
→消した後に悲鳴

何度見たことか

521 ：デフォルトの名無しさん (ﾜﾝﾐﾝｸﾞｸ MM7f-DTjJ)：2020/02/06(Thu) 19:11:07 ID:FEAB4c07M.net

>>511
win32api使えるのかよ？

522 ：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM6b-YLe+)：2020/02/06(Thu) 19:33:40 ID:W5BIAByhM.net

>>521
どうしてもWinAPI叩きたかったら、C#とか好きな言語で書いてWebAPIでスプレッドシートに反映させればよい
帳簿に手足は必要ない

523 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9fad-DTjJ)：2020/02/06(Thu) 19:38:03 ID:S5nSkDf80.net

面倒臭いじゃないか

524 ：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM6b-YLe+)：2020/02/06(Thu) 19:43:08 ID:W5BIAByhM.net

普通はその結果をDBなりに同期させる仕組みを考える方が面倒臭いと思うけど、仕事したことないんだろうね

525 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b735-56gX)：2020/02/06(Thu) 19:47:10 ID:QU3mlgEx0.net

VBAとGASだとさすがにVBAの方が上かな
GASはローカルファイルへのアクセス権がなさすぎるのと、他スプレッドシート扱うのがかなり面倒くさい。まぁしゃーないっちゃしゃーないんだけど
さっとスクリプト組みたい時はVBA＋Excelシート以上にお手軽な環境は無いと思う

>>524
webに対しては確実にgoogleスプレッドシートの方が上だが・・・

どっちが上ってのは無いと思う。使い方次第だろう

526 ：デフォルトの名無しさん ：2020/02/06(木) 20:18:44.88 ID:S5nSkDf80.net

>>524
DBならaccessとodbcでいいや

527 ：デフォルトの名無しさん ：2020/02/06(木) 20:23:02.70 ID:5wTMgkbk0.net

DB接続してないエクセルとか糞だろｗ
GAS?情報共有が楽なだけで話にならん

528 ：デフォルトの名無しさん ：2020/02/06(木) 20:50:55.98 ID:S5nSkDf80.net

>>524
そもそもexcelやaccessならADODBで簡単にデータベース連携できるし

529 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b735-56gX)：2020/02/06(Thu) 21:01:17 ID:QU3mlgEx0.net

そもそもみんなどういう風に使っているんだ？
俺は・・・
・メインシステムはweb上にあり、ベンダーに開発してもらっている。csvを吐き出すシステムがある
・csvの元になるSQL部分は自作（しょっちゅう変わるから自分で作ったほうが早い）。
・後はそのcsvに対してvbaでちゃーっと加工して配布（順序変えたり見やすくしたり）
・ローカルネットワークにもファイルを置く

こういう使い方だとVBAの方が楽なんだよね。GASを使う理由があまりない。データが必要なら、都度csv落とせば良い
ODBCとかめんどくさくない？
php直接書いたほうが遥かに早いし楽だし、データの劣化を最小限に抑えられると思うんだけどなぁ

530 ：デフォルトの名無しさん ：2020/02/06(木) 21:12:09.33 ID:S5nSkDf80.net

>>529
前のプロジェクトvbaのコード少し書くだけでDB連携してたぞ
そこのプロジェクトはなんでもできる系が多数いたけどな

531 ：デフォルトの名無しさん ：2020/02/06(木) 21:31:53.31 ID:QU3mlgEx0.net

>>530
Excelの仕様と、型付でデータが大変にぎやかになるのが辛かった
@が=記号の代わりになるとか知らんがな
番地データが日付になるのは勘弁しておくれやす〜

532 ：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd3f-b0Wi)：2020/02/07(金) 07:38:57 ID:wkeLovp2d.net

>>518
同時編集できるよoffice365で
しかもデスクトップに切り替えも出来る

533 ：デフォルトの名無しさん (ｽﾌｯ Sdbf-n9KO)：2020/02/07(金) 11:47:05 ID:aK4BdxNCd.net

社内のシステムへのログインをVBAで行おうとしたのですが、
特定の入力項目を小ウィンドの選択項目から選んででないとログインできません。
VBAを使って同じような入力内容に出来てるのですがダメです。

何かやり方があれば教えてください。

534 ：デフォルトの名無しさん (ﾍﾞｰｲﾓ MM4f-N6vr)：2020/02/07(金) 12:43:05 ID:cytAyAiUM.net

c++で自作したdllをシャドウコピーして呼び出したいんだけど、そんなことできますかね？
できるなら教えてください

535 ：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd3f-5XTe)：2020/02/07(金) 13:44:00 ID:EHPtr6+3d.net

社内システムへのログインでエクセル開くの？
キモくない？

536 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f42-7zoJ)：2020/02/07(金) 14:23:11 ID:TkpdzcfH0.net

うちもエクセルからだな
「え？URLのショートカットかなんかじゃなくそれ？」って思った

537 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f7ce-56gX)：2020/02/07(金) 15:32:34 ID:YhDqw1xL0.net

>>533
最後の手段はSendKeysとかWin32APIでマウス操作

538 ：デフォルトの名無しさん：2020/02/07(金) 17:47:34.76 ID:3rypWdkEC

愛知県豊田市の県道から側溝のふた1枚を盗んだとして、86歳の男が逮捕されました。

　周辺では先月末に側溝のふた60枚が無くなっているのが見つかっていて、警察が関連を調べています。

　窃盗の疑いで逮捕されたのは、豊田市水沢町の無職　川村貴一容疑者（89）です。

　警察によりますと、川村容疑者は1月31日から2月3日までの間に豊田市桜町の県道で「グレーチング」と呼ばれる鉄製の側溝のふた1枚を盗んだ疑いが持たれています。

539 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 378e-Ygtj)：2020/02/07(金) 17:44:09 ID:f2jr6wz80.net

社内のシステムへのログインが全世界どこも同じだと思ってる馬鹿は死ね

540 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f7da-56gX)：2020/02/07(金) 19:41:49 ID:X+WmhjzG0.net

>>533
選択項目を選ぶと、非表示で隠れている部分にあるフラグが変わると見た。

541 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f7da-56gX)：2020/02/07(金) 19:45:33 ID:X+WmhjzG0.net

あと酷いのになると、テキストボックスが2個重なっていて、
くそっ! 片方ダミーか! ふざけんな! とかさ。

542 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 377c-OB/u)：2020/02/07(金) 19:57:32 ID:xFn4xdfL0.net

>>541
まさに最近引き継いだものがその罠だった

543 ：デフォルトの名無しさん：2020/02/07(金) 23:20:58.76 ID:2VbwEU7Ch

【与沢翼】労働収入を高くしても無駄！税金でほとんど持っていかれますよ。
金持ちになるにはたった２つしか方法がない
https://www.youtube.com/watch?v=A-5lQ2rDmc0
【与沢翼】サラリーマンとして生きるのはリスクでしかない。従業員は創業者に
利用されているだけだということに気づきなさい
https://www.youtube.com/watch?v=uPoTvbr5VDk&t=78s
【与沢翼】「世の中は罠だらけ。これに気づかない人はカモにされ続ける。」【思考の革命】
https://www.youtube.com/watch?v=qUk7HFabMeQ&t=70s
【与沢翼】現状に対する疑問を持てない人はずっと辛い労働をして生きてください。
今自分達が不自由であるということに気づかない人はどうぞご勝手に
https://www.youtube.com/watch?v=YGykF9IHv-w&t=41s
【与沢翼】時間を売るような働き方をしてはいけない。自分の24時間をどれだけ
増やせるかという発想で仕事しなさい。最終決定権がない仕事はビジネスとは呼べませんよ
https://www.youtube.com/watch?v=g0WXpcqg4oA&t=51s

544 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ff63-tipF)：2020/02/08(土) 09:50:54 ID:8SzUllIw0.net

セルA1に金額(例えば100)を入れて
セルA2にセルA1の金額の数値を入れた次の文章

代金はセルA1円になります。
↓
代金は１００円になります。

を表示させたいです。
自力で下記のまでは出来ました。

Range("A2") = "代金は(セルA1)円です"

ですがセルA1の値を文章の途中に組み込めず困っています。
A2に表示された文章は後でコピー貼り付けに使用します
(この部分は自分で出来ますが・・・)。
ご教授宜しくお願い致します。

545 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa9b-YLe+)：2020/02/08(土) 09:57:09 ID:zm8ORV47a.net

>>544
1. VBAを忘れます
2. ="代金は" & A1 & "円です" をA2に入力します
3. (ﾟдﾟ)

546 ：541 (ﾜｯﾁｮｲ ff63-tipF)：2020/02/08(土) 10:12:44 ID:8SzUllIw0.net

>>545
有難うございます。わけ合って&関数は使えないのです。
私の説明が足りずすいません。
マクロを実行するとセルに直接文章を入力したようにしたいのです。

547 ：デフォルトの名無しさん (ｱｰｸｾｰ Sx0b-OKS/)：2020/02/08(土) 10:43:22 ID:/gJCCAG4x.net

Cells(2, 1).Value = "代金は" & Cells(1, 1).Value & "円です"

548 ：541 (ﾜｯﾁｮｲ ff63-tipF)：2020/02/08(土) 10:47:03 ID:8SzUllIw0.net

有難うございます！そのやり方で今からやってみます！

549 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ffcc-VM48)：2020/02/08(土) 11:24:39 ID:1IpoZ9Ay0.net

Ｄ列に「集計」という文字が含まれていなければ、その行を削除して行間を詰めるために
↓のコードを使いたいのですが、Unionの.Rowのところで「参照が不正または不完全です」になります

Sub Delete_Rows()

Dim LastRow As Long '最終行の変数
Dim DereteRow As Range '該当する行を格納
Dim r As Long '処理の範囲を格納
Dim ws As Worksheet

Set DereteRow = Nothing 'オブジェクトへの参照を解除

Set ws = Worksheets("Sheet1")

' Ｆ列を基準にシートの最終行を取得
LastRow = Cells(Rows.Count, 6).End(xlUp).Row

For r = 2 To LastRow '２行目から最終行までB列のセルを対象にする
'Ｄ列のセルが"集計"を含まない文字列の行なら DereteRow に追加
If Cells(r, "D") <> "*集計*" Then
Set DereteRow = Union(DereteRow, .Rows(r).EntireRow)
End If
Next r

'DereteRowに行が代入されていれば一括で削除するが、なければ処理を終了
If Not DereteRow Is Nothing Then
DereteRow.Delete
End If
End Sub

550 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f01-ep3J)：2020/02/08(土) 12:09:16 ID:Di3wk8ih0.net

>>549
そりゃWithもないのに
> .Rows(r).EntireRow
なんてされてもExcelは困っちゃうわな

ルーチン名はDelete_Rowsなのに変数名はDereteRowとか、wsは何に使うつもりなのかとか色々指摘したいところがありまくり

551 ：デフォルトの名無しさん (ｱｰｸｾｰ Sx0b-OKS/)：2020/02/08(土) 12:40:15 ID:/gJCCAG4x.net

>>549
.Rows(r)の"."を消すかActivesheet.Rows(r)に切り替える



蛇足だが、コードにいろいろとおかしな点があるので指摘しておく

・DeleteRowを変数として宣言した直後、まだ何も代入していないのにSet DereteRow = Nothingとやるのは無意味

・ルーチン名をDelete_Rowsにするんだったら削除対象行の変数はDeleteRowではなくTargetRowsとかにした方が良い

・変数 r は「処理の範囲」ではなく「削除対象行判定のループで使用する行カウンタ」と説明しないと意味が通じにくい。「範囲ならばRangeオブジェクトじゃないのか？」と思うし、どの処理で使ってるかも分からない

・変数 ws は何のために宣言してるのか？

552 ：546 ：2020/02/08(土) 13:46:03.51 ID:1IpoZ9Ay0.net

>>550
>>551

ありがとうございます。
↓で
"Set TargetRows = Union(TargetRows, ActiveSheet.Rows(r).EntireRow)"
の部分が「プロシージャの呼び出し、または引数が不正です。」になります

Sub Delete_Rows()

Dim LastRow As Long '最終行の変数
Dim TargetRows As Range '該当する行を格納
Dim r As Long '削除対象行判定のループで使用する行カウンタ変数

' Ｆ列を基準にシートの最終行を取得
LastRow = Cells(Rows.Count, 6).End(xlUp).Row
For r = 2 To LastRow '２行目から最終行までB列のセルを対象にする
'Ｄ列のセルが"集計"を含まない文字列の行なら TargetRows に追加
If Cells(r, "D") <> "*集計*" Then
Set TargetRows = Union(TargetRows, ActiveSheet.Rows(r).EntireRow)
End If
Next r

'TargetRowsに行が代入されていれば一括で削除するが、なければ処理を終了
If Not TargetRows Is Nothing Then
TargetRows.Delete
End If

End Sub

553 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f01-ep3J)：2020/02/08(土) 14:42:01 ID:Di3wk8ih0.net

>>552
ちょっとググったらUnion(Nothing, ...)はダメみたいやね
> Set TargetRows = Union(TargetRows, ActiveSheet.Rows(r).EntireRow)
↓
If TargetRows Is Nothing Then
Set TargetRows = ActiveSheet.Rows(r).EntireRow
Else
Set TargetRows = Union(TargetRows, ActiveSheet.Rows(r).EntireRow)
End If

554 ：546 (ﾜｯﾁｮｲ ffcc-VM48)：2020/02/08(土) 16:59:25 ID:1IpoZ9Ay0.net

>>553
ありがとうございます。
エラーはなくなりましたが、"集計"の文字列を含む行も消えてしまいます

555 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 175f-5WGQ)：2020/02/08(土) 17:09:00 ID:/OGIL8aD0.net

D列セルに「*集計*」と入れてみるべし。

556 ：546 (ﾜｯﾁｮｲ ffcc-VM48)：2020/02/08(土) 17:20:57 ID:1IpoZ9Ay0.net

>>555
*集計* の行は残りましたが"*集計*"で、指定した文字列を含む（指定した文字列の前後に他の文字列がある場合）
ではないのですか

557 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 175f-5WGQ)：2020/02/08(土) 17:22:19 ID:/OGIL8aD0.net

つまり、確認結果の通りです。
ワイルドカードが使えないので、LIKEかInstrを使ってください。

558 ：546 (ﾜｯﾁｮｲ ffcc-VM48)：2020/02/08(土) 17:27:20 ID:1IpoZ9Ay0.net

>>557
分りました。ありがとうございます

559 ：デフォルトの名無しさん (ﾜｯﾁｮｲ f7da-56gX)：2020/02/09(日) 13:06:00 ID:/49HxrXf0.net

いつのまにかテレビでスギちゃんみなくなったな

560 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 172c-4cqo)：2020/02/09(日) 23:14:06 ID:ltQcsHZu0.net

auto_openでユーザーフォームを開きます。
テキストボックスにデータを入力してエンターキーを押すとコマンドボタンに進んで
コマンドボタンでエンターキーを押すとデータがシートに入力されて
テキストボックス内がクリアされてテキストボックスにsetfocusします。

またデータを入力して、の繰り返しなんですが
1回目は上手く行くのに２回目に入力した時にエンターキーを押しても進まない現象が多々起こるんです。

そんな時は一度シートを適当にクリックしてユーザーフォームのテキストボックスに戻るとそれ以降はその現象は起きないんですが、正直シートには触らせたくないんです。

エンターキーで進まない現象は必ずマクロを起動させた一回目で発生します。



同じ様な現象で悩んでいる人は居ませんか？
解決策があれば知りたいです。

561 ：デフォルトの名無しさん ：2020/02/10(月) 00:37:21.85 ID:qIOTpjy+0.net

カーソルが消えて見えないだけで、実は進んでるんじゃないの?
そういう現象なら知ってるが。

562 ：デフォルトの名無しさん ：2020/02/10(月) 06:52:30.10 ID:53UatRUA0.net

小さい再現ソース出すのが早いかも

563 ：デフォルトの名無しさん (ﾜｯﾁｮｲ bf68-7Ol7)：2020/02/10(月) 08:44:50 ID:/E57ld2P0.net

最少構成のソース試行錯誤してる間に解決するのもあるあるだしな

564 ：デフォルトの名無しさん ：2020/02/10(月) 08:53:02.50 ID:OYuxrVSd0.net

対処療法になるけど、起動直後に1回だけ自動でダミーのデータを送り込むマクロを仕込んでおくとか

565 ：デフォルトの名無しさん ：2020/02/10(月) 22:45:50.30 ID:BIhYTAab0.net

>1回目は上手く行くのに２回目に入力した時に
>必ずマクロを起動させた一回目で発生
どっちだよ

566 ：デフォルトの名無しさん ：2020/02/10(月) 23:11:08.64 ID:53UatRUA0.net

>>565
えっ？
後者の一回目は脳内変換で見なかったことにしたけど

567 ：デフォルトの名無しさん ：2020/02/11(火) 05:10:09.38 ID:psNQEJFZ0.net

させたー 回目？

568 ：デフォルトの名無しさん ：2020/02/11(火) 07:49:44.54 ID:xcQXy4MHd.net

昔は最小構成ソースを美しいコードとか言ってた時代もあったけど今じゃ可読性の悪いコードの見本
やっぱ誰でも見やすくないとね
自己満じゃダメよね

569 ：デフォルトの名無しさん ：2020/02/11(火) 08:34:22.59 ID:STnJqlOX0.net

>>568
昔は少ないメモリがゆえのことで自己満なだけではないし、可読性の悪いコードになるとも限らない

570 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b735-56gX)：2020/02/11(火) 09:16:55 ID:EGsB/Toy0.net

知る限り一番縛りがキツイのはポケコン
昔は変数が一文字だけ。変数26種類で終了！って時代があって
可読性が悪いと死ぬ時代があった
オブジェクトももちろんなし

今は多少可読性が多少悪かろうが余裕で読める

571 ：デフォルトの名無しさん (ﾜｯﾁｮｲ bf68-7Ol7)：2020/02/11(火) 09:17:00 ID:mxXo+J1O0.net

>>568
最小構成でなぜ可読性という言葉が出るのか
文字数じゃないんだぞ

572 ：デフォルトの名無しさん ：2020/02/11(火) 09:37:10.38 ID:4y2EJSQ80.net

そもそも最小構成ソースってなに？

573 ：デフォルトの名無しさん ：2020/02/11(火) 10:38:55.72 ID:CJD1Or630.net

最初はトラブルシューティング話をしていたのに、565がいきなり関係ないことを言い出した

574 ：デフォルトの名無しさん ：2020/02/11(火) 23:45:05.58 ID:nC/jcaXZ0.net

integerとlongについて教えてください
今までは数値によりこの二つは使い分けた方がいいと思っていました
しかし、ネットで調べるとintegerも結局longに変換？しているためlong型で統一した方がいいといったことが書かれています
となると、integerの使いどころはどこになるのでしょうか？

575 ：デフォルトの名無しさん ：2020/02/11(火) 23:51:45.85 ID:CJD1Or630.net

>>574
昔の名残と言い切っていいと思う
今は使い分ける意味があんまりなくなってしまった
強いて言えば大きい配列にするとメモリの使用量が変わってくることぐらい
バイナリファイルの読み書きでも結果が変わるけど、そもそもバイナリデータの処理はVBAに向いてない

576 ：デフォルトの名無しさん ：2020/02/11(火) 23:53:50.82 ID:CJD1Or630.net

メモリの使用量が目に見えて変わってくる
にしといて
突っ込まれそうだから

577 ：デフォルトの名無しさん (ﾜｯﾁｮｲ cbda-OxJ8)：2020/02/12(水) 00:34:42 ID:H+ZtqLYW0.net

1048576行だから縦はLong。
16384列だから横はInteger。

異論ある?

578 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 129c-zeWM)：2020/02/12(水) 02:07:44 ID:Xc/lg/zI0.net

仕様変更に備えてlong一択

579 ：デフォルトの名無しさん (ﾜｯﾁｮｲ cb8a-918i)：2020/02/12(水) 02:23:22 ID:X92zMCbd0.net

縦はともかく、横が拡張されることなんかあるんかいな。

580 ：デフォルトの名無しさん ：2020/02/12(水) 07:15:12.66 ID:RAjHSRhnM.net

過去に拡張されたことあるから今後もあるかも
って思うのは不思議じゃない

581 ：デフォルトの名無しさん ：2020/02/12(水) 14:43:59.70 ID:ktDCHij50.net

Ａ列に今日の日付が入っている行であれば、同じ行の"Ｂ"cnt〜"ＡＡ"cnt＋２を水色でぬりつぶす
（対象はＡ列の４行目から最終行）
と
Ｂ列に数字の１が入っている行であれば、同じ行の"Ｂ"cnt〜"ＡＡ"cnt＋２を赤色でぬりつぶす
（対象はＡ列の４行目から最終行）
というのをしたくて書いたのですが、エラーなどはなく、何も起きません
原因を教えてください。

Sub tes()

Dim cnt As Long
Dim buf As String
Dim cnt2 As Long
buf = Date

For cnt = Cells(Rows.Count, 1).End(xlUp).Row To 4 Step 2
If Cells(cnt, 1) = buf Then
Range(Cells(cnt, 3), Cells(cnt + 2, 27)).Interior.Color = RGB(173, 242, 249)
End If
Next cnt

For cnt2 = Cells(Rows.Count, 2).End(xlUp).Row To 4 Step 2
If Cells(cnt2, 2) = 1 Then
Range(Cells(cnt, 3), Cells(cnt + 2, 27)).Interior.Color = RGB(255, 0, 0)
End If
Next cnt2

End Sub

582 ：デフォルトの名無しさん ：2020/02/12(水) 16:42:09.14 ID:Z+Yfmz1v0.net

>>581
Forの条件が逆
For cnt = 4 to Cells(Rows.Count, 1).End(xlUp).Row
For cnt2 = 4 to Cells(Rows.Count, 2).End(xlUp).Row

583 ：デフォルトの名無しさん (ﾜｯﾁｮｲ de8c-u3Kg)：2020/02/12(水) 17:49:54 ID:5NT9XmcH0.net

VBA学びたいんだけど、office以外でVBA出来るところってない？

584 ：デフォルトの名無しさん ：2020/02/12(水) 17:53:09.88 ID:yl8WS00pa.net

LibreOfficeで使える。
インテリセンスが使えないからだれも使わないしそれでもLibreOfficeつかうならpythonで動かす。

585 ：デフォルトの名無しさん ：2020/02/12(水) 18:16:19.33 ID:gfctBwevM.net

今から学ぶなら>>415かGoogleスプレッドシートのGASにしとけば？
どっちも無料だしVBAはレガシーでもうすぐ無くなるよ

586 ：578 ：2020/02/12(水) 18:20:25.60 ID:ktDCHij50.net

>>582
ありがとうございます

587 ：デフォルトの名無しさん ：2020/02/12(水) 19:23:16.28 ID:ATdl69jc0.net

>>583
MS Office以外でという意味ならLibre OfficeのマクロでVBAが使えるがMS Officeとの互換機能のための物だから完全ではない

588 ：デフォルトの名無しさん ：2020/02/12(水) 20:30:50.73 ID:H+ZtqLYW0.net

>VBAはレガシーでもうすぐ無くなるよ

10年後も余裕で残ってると思うが・・。

589 ：デフォルトの名無しさん ：2020/02/12(水) 20:51:59.56 ID:yl8WS00pa.net

別に先端の言語、例えばスカラーやハスケルを使ったとしてもやってることはVBAを使ってやることと同じじゃね。
それがオンプレやウェブを通じてデータを共有するかエクセルで個人でデータを扱うかの違いだけでさ。
目的がデータ共有じゃなくて個人のデータ分析・見える化なら簡素なVBAのほうが優秀に決まってるとおもうが。

590 ：デフォルトの名無しさん ：2020/02/12(水) 20:58:51.98 ID:yl8WS00pa.net

他の言語ならGUIやらグラフ作成のプログラミングが必要なところがエクセルならなしでいいし自分用に簡単にカスタマイズできるとかチートだろ。
その便利さが分からないってちょっとかわいそうだと思うが。保持できるデータ量が少ないっていう人がいるかもしれないけど
それこそDBと接続すれば解決だろ。なんで他言語信仰があるのか俺にはようわからんがー

591 ：デフォルトの名無しさん ：2020/02/12(水) 20:58:54.89 ID:3+kd1fAQ0.net

Haskellって最先端なんか？
凄い古い言語って印象だけど

592 ：デフォルトの名無しさん ：2020/02/12(水) 21:04:01.64 ID:3+kd1fAQ0.net

>>590
ゲーム作成には不向きだったな。ありゃーキツかった
あと機械学習にもまるで向いてない。vbaは内部的にシングルコア臭い。

通常の事務用途なら普通に最強なのは言うまでもないので、あえてそれを言ってないだけではないんだろうかね

593 ：デフォルトの名無しさん ：2020/02/12(水) 21:16:37.85 ID:yl8WS00pa.net

関数型言語だから最新ではなくとも先端だと思うけどな

594 ：デフォルトの名無しさん ：2020/02/12(水) 21:22:44.30 ID:3+kd1fAQ0.net

あぁ先端か、最新とごっちゃになったよスマン

595 ：デフォルトの名無しさん ：2020/02/12(水) 22:17:27.48 ID:Tv6jd7oA0.net

>>585
馬鹿は死ねよ

596 ：デフォルトの名無しさん ：2020/02/13(木) 00:45:56.80 ID:k/bVZGqk0.net

>>583
vbsでよくね
ちょっと遅い以外はVBAより使い所あるよ

597 ：デフォルトの名無しさん ：2020/02/13(木) 03:14:24.86 ID:r2M7N5Eg0.net

VBAの利点なんてExcelに標準で載ってる以外にないだろ
まあその利点が大きすぎて他ので代替できないんだけど
はやくTypeScriptあたりが標準にならねーかな

598 ：デフォルトの名無しさん (ｽｯﾌﾟ Sd52-If3t)：2020/02/13(Thu) 07:45:49 ID:u4d6QES9d.net

Excelが起動してない状態ならどんな言語でも良い。
そもそもVBA使えないし。
でも、Excel起動した状態で、わざわざ別言語呼び出すのは糞だろ。

VBAが使える環境ってのは競合がいない。

599 ：デフォルトの名無しさん ：2020/02/13(木) 11:47:37.56 ID:AalEMFde0.net

Excel は、web プログラミングに対応していないから、
ウェブアプリでは、データベース・CSV の方がよい

そうすると、Ruby, Python, Julia で、
VSCode, Jupyter Notebook で処理できる

ローカルPC 内だけで処理できない場合は、他の言語がよい

600 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 63b0-bduJ)：2020/02/13(Thu) 15:06:53 ID:r2M7N5Eg0.net

>>598
>でも、Excel起動した状態で、わざわざ別言語呼び出すのは糞だろ。
別に糞ではない

601 ：デフォルトの名無しさん ：2020/02/13(木) 15:35:27.13 ID:3ooJhDB3d.net

専用アプリがたくさん出てきた今じゃエクセルなんてメモ帳くらいしか使わなくなった
この先もなるならんと思うけど用途は縮小されるだろうな

602 ：デフォルトの名無しさん ：2020/02/13(木) 19:19:57.68 ID:h5k0eGtyx.net

スレ違いかもしれませんが、VSTOってどうなんでしょうか
よく使われているのですか？

603 ：デフォルトの名無しさん (ﾜｯﾁｮｲ af68-OxJ8)：2020/02/13(Thu) 21:34:00 ID:K4OvKims0.net

>>599
ｒｕｂｙだけはないかな
もう完全に更新停止しちゃったし

604 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 63b0-bduJ)：2020/02/14(金) 03:17:43 ID:khV78Z7h0.net

いつものruby厨が糞なのはわかるが年末にメジャーアップデートしたばかりだよ！

605 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sac3-eKU0)：2020/02/14(金) 12:24:19 ID:loUY2HXBa.net

>>602
使う人は使うだろう

606 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b7f1-pc6R)：2020/02/14(金) 13:53:47 ID:6u1vRBgq0.net

PHPでいいのにRuby
JavaでいいのにKotlin
余計なもの作りすぎてやしないか？
学習しないといけない選択肢や実際に学習しないといけないリスクが増える。

OSにおけるWindowsに対抗したMac
ワープロのWordに対抗した一太郎
スマホにおけるAndroidに対抗したiPhone
にも同等のことが言える

607 ：デフォルトの名無しさん (ﾌﾞｰｲﾓ MMdb-OxJ8)：2020/02/14(金) 14:24:36 ID:yzfFAhi1M.net

>>606
自由競争社会ってのはそういうもん
選択肢が多くて選ぶのが嫌なら共産国にでも行けばいい

608 ：デフォルトの名無しさん (ｱｳｱｳｸｰ MM07-bduJ)：2020/02/14(金) 14:55:02 ID:oTRYZ3a7M.net

PHPでよくないしJavaでよくなかったから新しいものが作られるのは当然

609 ：596 (ﾜｯﾁｮｲ 122c-LiuO)：2020/02/14(金) 15:48:59 ID:+9NDg3r60.net

未だに、Webサイトの最高速度は、Ruby on Rails。
他の言語は複雑だから、高コストで低品質になるw

表示速度が“異常な”Webサイト「dev.to」とか
https://dev.to/

元乃木坂46 の川後陽菜のWebサイト、SKIYAKI とか
https://kawagopro.com/

610 ：デフォルトの名無しさん ：2020/02/14(金) 19:06:02.89 ID:fyxPtfni0.net

日本語不便だから簡素化しよう　　→　わかる
日本語不便だからZ国語を作ろう　→　意味不明

611 ：デフォルトの名無しさん ：2020/02/14(金) 19:36:15.93 ID:xdYnDj0z0.net

おれ今は何でもpowershell
.NETやWin32API呼べるしね

612 ：デフォルトの名無しさん ：2020/02/14(金) 19:39:20.92 ID:4wjLsdfS0.net

>>609
WEBサイトが重くなる原因って、外部サイトから取り込む広告バナーやアイコンが原因なことも多いよな
そういうケースでは自分のサーバーをいくらチューンしても無駄だし

613 ：デフォルトの名無しさん (ﾜｯﾁｮｲ af68-OxJ8)：2020/02/14(金) 20:40:36 ID:fYXT+aFT0.net

>>609
何の機能も無いんだからそりゃ早くて当たり前だ

614 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 02ba-bbsC)：2020/02/14(金) 22:25:32 ID:zOM6NzfF0.net

>>606
Wordよりも一太郎の方が先じゃなかったか？
少なくとも国内では

615 ：デフォルトの名無しさん (ﾜｯﾁｮｲ e791-If3t)：2020/02/15(土) 11:21:56 ID:AUuvC6yh0.net

>>600
そんな手間、普通はしないし、そんな汚いコード書きたく無いのが普通。
レガシーコード嫌ってもっと酷いコード書いて何とも思わないのは害悪だね。

616 ：デフォルトの名無しさん ：2020/02/15(土) 11:25:02.18 ID:AUuvC6yh0.net

>>602
それはアリだ。
会社内で使える環境、積極的に使っていく環境なら大いに活用すべし。

ただ、VSTOって名前は今でもその名前で良いのか?
もはや、名前なんて無くなった感覚だな。
俺も個人的に使ってる。

617 ：デフォルトの名無しさん ：2020/02/15(土) 14:20:57.52 ID:0SWjbLN40.net

>>615
別に普通
コードも汚くならない

618 ：デフォルトの名無しさん ：2020/02/15(土) 17:13:03.49 ID:Lm2T2Naqd.net

>>617
例えば、VBSからVBAを呼び出し、VBA経由でWin32APIを呼び出す。

VBAからShell関数で別exeを呼び出し、そのexeはtxtファイルを残すように作成されており、そのtxtファイルの内容を見て連携する。

あるフォルダを常に監視するプログラムが動いており、そのフォルダにファイルが置かれると其れを読んで動作するプログラムがある。別のプログラムがそのフォルダに指示するファイルを置いて連携する。

どれも、仕方なくそういうプログラムを書くことがある。
しかし、こういうピタゴラスイッチのようなシステムは汚い。
1言語で完結する方が良いのは明らかだ。
そんなこともわからない奴は素養が無い。
動けば良いなんて考えの奴とは組みたく無いね。
スパゲッティで炎上案件必至だ。

619 ：デフォルトの名無しさん ：2020/02/15(土) 17:32:31.69 ID:w0AGl45A0.net

>>618
そういうシステムの場合は1言語で完結する方がいいって？
1言語でもやりたくないな
プロセス毎に担当とかならいいが

620 ：デフォルトの名無しさん ：2020/02/15(土) 17:34:00.99 ID:w0AGl45A0.net

そのプロセス毎に言語が違って余計な手間が増えるのも非効率だな

621 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 63b0-bduJ)：2020/02/15(土) 18:20:20 ID:0SWjbLN40.net

>>618
>どれも、仕方なくそういうプログラムを書くことがある。
そんなプログラム仕方なくでも書くな
たからそんな頓珍漢なシステムしか作れないんだよ
素養なさすぎでしょ

622 ：デフォルトの名無しさん (ｽｯﾌﾟ Sd52-If3t)：2020/02/15(土) 18:27:08 ID:Lm2T2Naqd.net

>>621
だから>>600が正にそれだろw
バカがwww

623 ：デフォルトの名無しさん ：2020/02/15(土) 18:27:51.31 ID:Lm2T2Naqd.net

こっちの主旨も伝わらないとはねw

624 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 16f2-oFCC)：2020/02/15(土) 18:33:14 ID:8KFvWLo00.net

ググルのスプレッドシートってまだまだだねぇ・・・
Excelの完成度の高い操作性に慣れると、あんなの使ってらんねーわ・・・

625 ：デフォルトの名無しさん ：2020/02/15(土) 19:16:30.13 ID:OXybc0Po0.net

あれはGoogleのAPIを使いたい時用。

626 ：デフォルトの名無しさん ：2020/02/15(土) 19:16:36.07 ID:0SWjbLN40.net

>>622
>>597は糞ではないが>>618は糞
極端なものしか語れない/作れないの？
素養無いね。いやマジで

627 ：デフォルトの名無しさん ：2020/02/15(土) 20:04:11.40 ID:Lm2T2Naqd.net

>>626
まだ伝わってね―のかよ。
>>618は糞の例だっちゅうのw

Excel起動した状態で、わざわざ別言語呼び出すのも基本的に同じだ。

628 ：デフォルトの名無しさん ：2020/02/15(土) 20:27:26.64 ID:Lm2T2Naqd.net

ちなみに、俺は実際には>>618のようなものを仕事で書いたことは無い。
しかし、世の中には>>618のような腐ったのはあったりする。
>>618の内の1つは俺がネットワーク系のコード書いてた時にある技術的課題をすぐにクリア出来なかった時に上司や他のメンバーから提案されたものだ。

結局、Win32APIで何とかしたが。

629 ：デフォルトの名無しさん ：2020/02/15(土) 20:46:44.54 ID:0SWjbLN40.net

自分でも書かないような極端な事例を勝手に出してそれに対してマウントとるオナニー気持ちいい？
コミュニケーションの素養も無いね

630 ：デフォルトの名無しさん ：2020/02/15(土) 21:00:26.03 ID:Lm2T2Naqd.net

>>629
プッw
話を変えようとしても無駄。

Excel起動した状態で、わざわざ別言語呼び出すのも糞。

631 ：デフォルトの名無しさん ：2020/02/15(土) 21:02:22.67 ID:Lm2T2Naqd.net

ちなみに、極端でも無いのは上司や他メンバーが提案したことからも明らかだが。
糞だけど実際にはそんな事例は結構ある。

632 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 63b0-bduJ)：2020/02/15(土) 22:00:26 ID:0SWjbLN40.net

>>630
それは糞ではない

633 ：デフォルトの名無しさん (ｽｯﾌﾟ Sd52-If3t)：2020/02/15(土) 22:13:15 ID:Lm2T2Naqd.net

>>632
プッ
センス無いなあw

634 ：デフォルトの名無しさん ：2020/02/15(土) 22:30:05.36 ID:0SWjbLN40.net

>>633
素養って言葉使うのやめたの？

635 ：デフォルトの名無しさん ：2020/02/15(土) 22:51:41.05 ID:Lm2T2Naqd.net

>>634
プw

636 ：デフォルトの名無しさん ：2020/02/15(土) 22:54:09.55 ID:K8Q8SzUI0.net

横からだけど
VBAでは足りないことが多いし、言語も冗長でできれば書きたくない言語
けど、気持ちは分かるわ。自分もエクセル神、VBA最強と思ってた時期があったw

637 ：デフォルトの名無しさん ：2020/02/15(土) 23:04:02.01 ID:DNF/C+cP0.net

よろしくお願いします。

A1からA500まで順に走査し、セルの値が「あ」「い」「う」「え」「お」のいずれかなら同行のB列に「OK」と書く
↑
こういう命令を書きたいのですが、
if ws.cells(row,1)="あ" or ws.cells(row,1)="い" or ws.cells(row,1)="う" or ws.cells(row,1)="え" …　then
という書き方しかしりません。

たぶん、
「セルの値が「あ、い、う、え、お」のどれかの場合は、」という書き方があるんじゃないかと思います。
ひとつひとつORで並べるんじゃなくて、そのように書くにはどうすればよいのでしょうか？
教えてください。

638 ：デフォルトの名無しさん (ﾜｯﾁｮｲ cbda-OxJ8)：2020/02/15(土) 23:28:52 ID:UxF7uCH30.net

select case a
case "あ","い","う","え","お"
cells (i,j) = "OK"
end select

639 ：デフォルトの名無しさん (ﾜｯﾁｮｲ c2eb-GUQA)：2020/02/15(土) 23:41:20 ID:DNF/C+cP0.net

>>638
ありがとうございました！！

640 ：デフォルトの名無しさん ：2020/02/16(日) 01:36:16.88 ID:hu3zE7F/0.net

そもそも他言語使うのにエクセルシートを開くのがダサい

641 ：デフォルトの名無しさん (ｱｳｱｳｸｰ MM07-bduJ)：2020/02/16(日) 05:43:51 ID:UuI8sGIrM.net

pythonでもjsでもいいからさっさとVBA廃止して欲しいわ

642 ：デフォルトの名無しさん ：2020/02/16(日) 06:57:36.74 ID:v3JJWFtt0.net

使わなけりゃいいのに

643 ：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd32-NAxV)：2020/02/16(日) 07:30:58 ID:G5lQpk7Jd.net

VBAを使ってるって人に言うのが恥ずかしい

644 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 1e68-wj5n)：2020/02/16(日) 09:18:13 ID:1S/Tig2+0.net

VBAアレルギーがこのスレにいるのが恥ずかしい

645 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 7705-WmGm)：2020/02/16(日) 09:39:35 ID:qdCD1uit0.net

VBAよく使うし便利なんだけど嫌われている理由って何？

646 ：デフォルトの名無しさん ：2020/02/16(日) 10:08:05.95 ID:+qE5f9v2a.net

>>645
出来る人が多くなると自慢にならない

647 ：デフォルトの名無しさん ：2020/02/16(日) 11:01:43.69 ID:U1tPq90o0.net

>>645
いつ切り捨てられるかわからないストレスの反動

648 ：デフォルトの名無しさん ：2020/02/16(日) 13:09:01.06 ID:tByZLPoS0.net

>>645
アンチがうるさいだけ

649 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 7705-WmGm)：2020/02/16(日) 13:21:44 ID:qdCD1uit0.net

最先端を追っかけて一般に広がったらダサく見えちゃう人のパターン？

650 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sac3-GUQA)：2020/02/16(日) 13:46:18 ID:onfJSXj2a.net

使いこなせないけどとりあえずスカラー使っとけばマウント取れるという風潮

651 ：デフォルトの名無しさん ：2020/02/16(日) 13:54:18.04 ID:gXg/oo9KM.net

スカラーってなぁに？

652 ：デフォルトの名無しさん ：2020/02/16(日) 14:33:37.03 ID:OOULfQDL0.net

オナラを音を出さずにする人のこと

653 ：デフォルトの名無しさん ：2020/02/16(日) 14:49:07.22 ID:myP/3poOM.net

>>645
言語仕様が古臭すぎる
モダンな便利な仕組みが使えないしデフォルトの関数やライブラリも貧弱
Excelっていう表を使うのにリスト周りの機能が劣悪なのが個人的に最高に糞
sortやfilter、mapぐらいは用意しといてくれ

654 ：デフォルトの名無しさん ：2020/02/16(日) 17:03:22.19 ID:crcHCgfv0.net

Excelは神じゃないし、VBAも別に古くないなんて言わない。
でも、VBAを使う場合では他に選択肢が無い。
他のモダンな言語使ってダサさ極まりないプログラムを書くことになる。

Excelを介さずにExcelのファイル作る場合ではVBAはお呼びじゃ無いし、Excelを介して何かする場合はVBA以外がダサイプログラムとなる。

655 ：デフォルトの名無しさん ：2020/02/16(日) 17:23:12.06 ID:bd16la8D0.net

だよな
VBAでIE操作するなんてダッサイよな
Excel VBAでWord操作するなんてもっての外だ

656 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b7f1-pc6R)：2020/02/16(日) 17:37:11 ID:OOULfQDL0.net

>>654
日本語を

657 ：デフォルトの名無しさん (ﾜｯﾁｮｲ cbda-OxJ8)：2020/02/16(日) 19:45:47 ID:264B3TMP0.net

それはVBAでIEを操作したいんじゃなくて、
取り出したデータをシートに書き込みたいからVBAなんだよ。

658 ：デフォルトの名無しさん ：2020/02/16(日) 20:02:56.16 ID:bd16la8D0.net

pythonでExcelを操作したいんじゃなくてpythonで弄ったデータをシートに書き込みたいからWin32APIなんだよ

659 ：デフォルトの名無しさん ：2020/02/16(日) 20:46:33.79 ID:YpWFdUlV0.net

>>651
しめつけ痴漢ビームだろ

660 ：デフォルトの名無しさん ：2020/02/17(月) 17:50:27.95 ID:vNEYHF2AM.net

VBAはコレクションが貧弱すぎ
そしてVBの言語仕様が大嫌い

661 ：デフォルトの名無しさん ：2020/02/17(月) 18:40:54.09 ID:Pe28e1YX0.net

ちょっとそれ詳しく

662 ：デフォルトの名無しさん ：2020/02/18(火) 03:35:58.54 ID:TF8ZYXaL0.net

VBAに継承があったら、もっと楽しくコード書けるのになあ

663 ：デフォルトの名無しさん ：2020/02/18(火) 06:20:13.81 ID:8hbClqqAx.net

クラスはサポートしてるのに継承がなくてポリモーフィズムしか使えないからね
クラスを作るのが面倒で仕方ない

664 ：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MMea-2sCL)：2020/02/18(火) 07:31:23 ID:EfyTSHg3M.net

せめてコンストラクタ（VBAだとInitialize）の引数は欲しかったわ

665 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sac3-cpkQ)：2020/02/18(火) 10:24:05 ID:6ZsCABKsa.net

良くわからないんだがexcelに必要か？

666 ：デフォルトの名無しさん ：2020/02/18(火) 13:47:20.72 ID:chdQR5M40.net

excelが必要か？に見えた

667 ：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd52-K0qH)：2020/02/18(火) 18:45:59 ID:/5Mxz8ykd.net

CADで書いたデータをDXFにしてメモ帳で開いて読み取って、エクセルシートにオートシェイプで書いたんですが、円の中にテキストがあるやつのみグループ化したいんですがいい方法ありますか？

調べると座標点から追ってみたいな方法しかないですか？

668 ：デフォルトの名無しさん (ﾜｯﾁｮｲ cbda-OxJ8)：2020/02/18(火) 21:01:24 ID:F3RpBkgw0.net

自分の仕事くらい自力でやれば？

669 ：◆QZaw55cn4c (ﾜｯﾁｮｲ f2aa-R34l)：2020/02/18(火) 21:11:50 ID:YCW0Xx5j0.net

>>662-663
継承は愚策であることが判明しているのでは？継承よりも委譲をつかいなしあ

670 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 93da-Nz9x)：2020/02/19(水) 19:57:26 ID:mzzoJTJv0.net

VBAよりpythonの方が実行速度が速いなら使ってもいいが、そうじゃないんだろ?

671 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 73b0-y94j)：2020/02/19(水) 21:51:44 ID:kwCZcDbv0.net

マクロの実行速度なんてほぼExcel側で決まるんだから言語変わっても変わるわけないだろ
そもそもたかがExcelのマクロに実効速度とか要求するか？

672 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 93da-Nz9x)：2020/02/19(水) 22:21:56 ID:mzzoJTJv0.net

ん、いや、pythonに何かしらメリットがなきゃ、乗り換える意味なんてないよなと思って。

673 ：デフォルトの名無しさん ：2020/02/19(水) 23:50:48.47 ID:IiRLq+jSM.net

VBA使わなくていいっていう最大のメリットが

674 ：デフォルトの名無しさん ：2020/02/19(水) 23:58:20.17 ID:FWuAEXxDa.net

VBAがないなら もうWindowsを使う意味はないってユーザーも多いのでは

675 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 13ce-Nz9x)：2020/02/20(Thu) 00:18:21 ID:AoQGP1nv0.net

手作業で数式を入れるだけならオンラインのスプレッドシートで十分だもんな

676 ：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr07-joR1)：2020/02/20(Thu) 06:08:18 ID:L/aFoY2Cr.net

スプシでネイティブアプリ並の速度でかつVBAが使えれば言うことないんだけど

677 ：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM1f-P13C)：2020/02/20(Thu) 06:43:28 ID:2rLj+nIZM.net

>>672
お前さんがメリットないと思えばそのままでいいんじゃね？
俺はpythonなら乗換えるよ
理由は>>662-664辺りに書いてある通り

678 ：デフォルトの名無しさん ：2020/02/20(木) 07:44:40.62 ID:D4QlVP2L0.net

端末にPythonインストールされてないし使えない。

679 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 4301-Nz9x)：2020/02/20(Thu) 12:18:14 ID:IgUrfnDG0.net

っていうかPythonつかうならVB.netでいいんじゃないの？？
C#でもいいし。

680 ：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM1f-P13C)：2020/02/20(Thu) 12:52:29 ID:2rLj+nIZM.net

>>641の話じゃないのか？
現状ならそりゃVBA使うしかないわけで
外部から制御するならC#でもPowerShellでもいいわな

681 ：デフォルトの名無しさん ：2020/02/20(木) 19:50:27.27 ID:oaOtGalk0.net

Excel VBAスレでpython信者が何いってもねｗ

682 ：デフォルトの名無しさん ：2020/02/20(木) 22:25:17.20 ID:Gh4fiqHN0.net

エクセル中心でやりたいことはvbaでも十分だよ
何かの作業のほんの一部にエクセル使うときは、そもそもエクセルをフレームワークとして使うこと自体間違ってる

683 ：デフォルトの名無しさん ：2020/02/21(金) 21:53:28.61 ID:pWRsPetz0.net

得ろサイトの動画や画像を根こそぎゲットするためにサイトの解析してるんだけど
ソースにないリンク（javaとかで生成されたリンク）ってVBAで取得できるの？

684 ：デフォルトの名無しさん ：2020/02/22(土) 02:17:27.01 ID:MTp4jPgj0.net

>>683
サイトごとに画像ファイルのデータベースの作りが違うから、不可能じゃないけどかなり面倒
画像のURLのパターンを調べるだけなら既成のアプリでパケットキャプチャしたり、自動運転してフラウザのキャッシュから拾った方が早い

エロサイトスクレイピングの最大の問題は、サイトの解析に夢中になるあまり、抜いてないのに疲れて賢者モードになってしまうこと

685 ：デフォルトの名無しさん ：2020/02/22(土) 02:26:26.53 ID:/4ot1EkTM.net

そういうのは、いつのまにかダウンロードが目的になってしまう
大量の画像を一気にゲットしても99%は好みじゃないから、どうせ見ないよ

686 ：デフォルトの名無しさん ：2020/02/22(土) 03:41:31.80 ID:ksAsfwMgd.net

VBAでする必要ある？
会社の事務作業に必要？

687 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ff2c-lQWV)：2020/02/22(土) 13:58:35 ID:qQaAG+8d0.net

漏れは、スクレイピングは、Ruby, Selenium WebDriver, Nokogiri を使うけど、
各サイトの解析が大変

例えば、5ch の投稿から画像ファイルだけを探すのに、
「div.message a」内のURL で、拡張子が「png jpg jpeg gif」のものだけを絞り込むとか、
こういう処理を、VBA で書くのは辛い

可読性が高い、Rubyなどを使わないと面倒

688 ：デフォルトの名無しさん ：2020/02/22(土) 18:55:32.50 ID:VWTN01Wl0.net

>>687
5ｃｈで探すとグロと宣伝の同じ画像だらけで集める意味ないとおもう

689 ：デフォルトの名無しさん ：2020/02/22(土) 20:40:32.07 ID:CpuGABtnd.net

>>687
VBAでも簡単だけどな。
というか、世の中のスクレイピング見てると随分テキトーだなと思うね。
ページ内のタグ1つ1つをごっそり取ってくる処理書ければ、絞りこむ方法なんて簡単だろ。
どっちにしろ、スクレイピングなんて初心者とは言わないが、その程度の話。
情報なんてゴマンと有るんだから。

690 ：デフォルトの名無しさん ：2020/02/23(日) 00:38:51.54 ID:jVAo1XvKd.net

jsonから動的にHTMLを生成するページだとjsonファイルのURLを調べるのが面倒
そのままソースには書いてないことも多いし

691 ：デフォルトの名無しさん ：2020/02/23(日) 03:39:39.65 ID:DZYqUxJ90.net

Ruby使いは画像収集家なのかご苦労様

692 ：デフォルトの名無しさん ：2020/02/23(日) 04:26:11.00 ID:K7fXFWfL0.net

VBAちょっと触ってみたけど難しいね
書き方独特すぎてちょっときつい

693 ：デフォルトの名無しさん ：2020/02/23(日) 06:38:50.97 ID:wq/R6u2w0.net

VBAが独特って日頃どんな言語使ってるんだ…

694 ：デフォルトの名無しさん ：2020/02/23(日) 07:12:19.53 ID:FxSnKpMed.net

独特と言うか構文が長くて繰り返しが多い

695 ：デフォルトの名無しさん ：2020/02/23(日) 07:15:28.16 ID:/TUwZlyEa.net

いじめられっ子VBA

696 ：デフォルトの名無しさん ：2020/02/23(日) 07:35:03.32 ID:+eBIvQNk0.net

>>684
やっぱ面倒か、諦めよ
ありがとう

697 ：デフォルトの名無しさん ：2020/02/23(日) 07:46:27.78 ID:unOBnpssx.net

[VBA]
Dim str As String: str = "hoge"

[VB.NET]
Dim str As String = "hoge"

[Java,C# その他]
string str = "hoge";

まぁ確かにVBAは冗長で繰り返し多いわな
If Then構文もThen書かせるなと思うし

698 ：デフォルトの名無しさん ：2020/02/23(日) 08:19:14.23 ID:hlUaoTwd0.net

コンストだと真ん中みたいに書けるのにな。

699 ：デフォルトの名無しさん ：2020/02/23(日) 08:27:54.12 ID:sbceR+SQ0.net

文字列から組み込み定数の値を取得する事は出来ますか？
例）”rgbRed" -> 255

700 ：デフォルトの名無しさん ：2020/02/23(日) 08:31:22.34 ID:pFS6OxI+0.net

[VBA]
Dim str$: str = "hoge"

[VB.NET]
Dim str$ = "hoge"

[Java,C# その他]
string str = "hoge";

大差ないな
そもそも文字数の差なんて全体から見たら誤差みたいなもんだ

701 ：デフォルトの名無しさん ：2020/02/23(日) 08:48:22.46 ID:m7teXSWT0.net

VBAならDimステートメントは省略できるからもっと文字数を減らせる

702 ：デフォルトの名無しさん ：2020/02/23(日) 08:52:41.96 ID:wq/R6u2w0.net

>>697
宣言+初期値設定だけ？
> If Then構文もThen書かせるなと思うし
そんなことまでケチつけるのかw
むしろSelect CaseのCaseの方が要らんだろ

703 ：デフォルトの名無しさん ：2020/02/23(日) 08:58:08.06 ID:unOBnpssx.net

>>700
どうかね、タイプ量って生産性に直結するのだが
そもそもVBAの型宣言文字ってごく一部のプリミティブ型にしか割り当てられてないじゃん

Class1 cls = new Class1(param);
の一行で変数宣言、引数付きコンストラクタへの引数付与、インスタンス生成代入が同時に出来るのは便利だぞ

それに慣れてしまったら、
Dim cls As Class1
Set cls = New Class1
cls.Init(param)
みたいにVBAでやるのが馬鹿らしくなる

704 ：デフォルトの名無しさん ：2020/02/23(日) 09:00:12.99 ID:wq/R6u2w0.net

>>699
いま手元に環境ないから試せないけどApplication.Evaluate("rgbRed")とかでできないかな？

705 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ff01-P13C)：2020/02/23(日) 09:03:59 ID:wq/R6u2w0.net

>>703
タイプ量の話なら
Dim cls As New Class1
ってやるだけだろ
わざわざ自爆ネタを提供しに来るとか斬新だなw

706 ：デフォルトの名無しさん ：2020/02/23(日) 09:08:06.54 ID:sbceR+SQ0.net

>>704
Evaluateでは評価できませんでした。

707 ：デフォルトの名無しさん (ｱｳｱｳｴｰ Sadf-JxPc)：2020/02/23(日) 09:08:57 ID:/TUwZlyEa.net

文字数そんなに重要？

708 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8340-KfDg)：2020/02/23(日) 09:12:15 ID:KMj3XtMO0.net

>>705
汎用的な処理を省略したいなら関数を書けってなる
VBAに限らず基本的なことのはずだけど

709 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 13ce-Nz9x)：2020/02/23(日) 09:23:07 ID:m7teXSWT0.net

定数名(文字列)から値を得るのって、昔はtlbinf32.dllでできたんだけどWindows10でなくなっちゃったんだよね
GetExportedTypesでできそうなんだけど、すぐに使えるサンプルがネット上には見当たらない
あとはVBAのソースをテキストファイルに書いてインポートとか

710 ：デフォルトの名無しさん ：2020/02/23(日) 09:26:18.22 ID:unOBnpssx.net

>>705
その書き方はJava等で一行でインスタンスを生成代入するのとは意味が違うので、比較対象にならない

有名な話だけど、DimステートメントでNewを付加した場合、Nothingで一度参照破棄しても変数を評価する度に新しいインスタンス参照が生成代入されるので、以下のようなコードがコンパイルエラーにならない
非常識な挙動なのでMSも非推奨と言ってるし、いまどき使うのはアウト

Sub Test()
Dim C1 As New Collection
Set C = Nothing
C.Add "エラーにならない"
End Sub

711 ：デフォルトの名無しさん ：2020/02/23(日) 09:28:01.95 ID:unOBnpssx.net

>>710
間違えた、Set C1 = Nothingだな

712 ：デフォルトの名無しさん ：2020/02/23(日) 09:30:04.09 ID:wq/R6u2w0.net

>>708
何を言ってるの？

>>710
だからわざわざ「タイプ量の話なら」って書いてあるんよ
わからなかったの？w

713 ：デフォルトの名無しさん ：2020/02/23(日) 09:31:22.21 ID:wq/R6u2w0.net

>>707
コーダーレベルの人には重要なんだろうねw

714 ：デフォルトの名無しさん ：2020/02/23(日) 09:34:37.47 ID:unOBnpssx.net

>>712
機能や挙動が等価でない構文を並べてタイプ量を比べても意味がないだろ

715 ：デフォルトの名無しさん ：2020/02/23(日) 09:56:51.02 ID:KMj3XtMO0.net

>>712
その場での記述量の話じゃないの？
引数付きコンストラクタだって元々タイプした関数だろ

716 ：デフォルトの名無しさん ：2020/02/23(日) 09:57:00.88 ID:wq/R6u2w0.net

>>714
それ以前にタイプ量云々っていつの時代の話だよ
ってことねw

717 ：デフォルトの名無しさん ：2020/02/23(日) 10:00:28.85 ID:wq/R6u2w0.net

>>715
ああコンストラクタの引数の話を言ってたのか
これは確かにVBAではできないし俺もすげー不便に思う
タイプ量の話じゃなくて別に初期化関数持つのがダメダメ

718 ：デフォルトの名無しさん ：2020/02/23(日) 10:02:34.10 ID:unOBnpssx.net

>>716
タイプ量はステップ数やコードの可読性低下、人件費とほぼ正相関するので、オーバーヘッド抑制のために下流はもちろん中流以上のPMクラスでもケアしなきゃならない基本中の基本だぞ
いつの時代も変わらない

719 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ff01-P13C)：2020/02/23(日) 10:22:38 ID:wq/R6u2w0.net

まだこんな老害がいるんだな…
変数名は１文字に限るとか？w

720 ：デフォルトの名無しさん (ｱｰｸｾｰ Sx07-XxLC)：2020/02/23(日) 11:03:51 ID:unOBnpssx.net

読解力皆無で笑える

721 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ffea-C6+A)：2020/02/23(日) 12:08:50 ID:sbceR+SQ0.net

>>709
変換テーブルでも用意するしかないですかね。

722 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ff01-P13C)：2020/02/23(日) 12:47:04 ID:wq/R6u2w0.net

>>720
揶揄されてることも理解できないとか可哀想ですらあるw

723 ：デフォルトの名無しさん ：2020/02/23(日) 16:21:03.27 ID:dmBvCqf60.net

タイプ量ってwww

いつの時代だよ。
というか、タイプ量少ない奴は寧ろ組みたく無いわな。

頓珍漢なロジックで余計なことやってることでタイプ量がが増えたので無い限り、そんなもん気にするバカは真っ先に要らない。

724 ：デフォルトの名無しさん ：2020/02/23(日) 16:41:58.26 ID:EF3UNxNad.net

そもそもVBAは構文が長いって話なのに
プログラム全体で見てば間違いなく長くなる
でタイプ量の話は流れの中で出て来た少ない方が良いよね程度の事なのに絡まれてる人が気の毒だわ

725 ：デフォルトの名無しさん ：2020/02/23(日) 17:21:12.88 ID:ot72o1TpM.net

>>724
> タイプ量の話は流れの中で出て来た少ない方が良いよね程度の事なのに
老害にはそうでもないみたいよw ⇒ >>718

726 ：デフォルトの名無しさん ：2020/02/23(日) 17:46:51.73 ID:tUguP7M50.net

デジャヴかと思ったら
>>568再来なん？

727 ：デフォルトの名無しさん ：2020/02/23(日) 18:31:17.82 ID:ot72o1TpM.net

>>568自体が最小構成ソースとかのオレオレ用語で意味不明なので再来かどうかもわからん

728 ：デフォルトの名無しさん ：2020/02/23(日) 18:38:52.53 ID:YcvTMcMQ0.net

構文レベルのタイプ数の多さはまともなIDEがあれば気にならない
つまりExcelのVBA環境だとゴミクズ

729 ：デフォルトの名無しさん ：2020/02/23(日) 20:58:50.89 ID:9ZBd+yN40.net

そもそも言ってる内容が正しいとは思えないが、そこは議論の余地がなくはない
それよりオーバーヘッドって用語、使い方が間違ってると思うぞ

730 ：デフォルトの名無しさん (ｱｳｱｳｴｰ Sadf-Nz9x)：2020/02/23(日) 21:57:21 ID:2PAuLkEda.net

タイプ量が長いのもあるけど
コードが長いと注意が分散されてミスに気付きにくくなるというのはあると思う
宗教戦争になるけど

731 ：デフォルトの名無しさん ：2020/02/24(月) 16:11:57.17 ID:1tltuveE0.net

深さ不明の入れ子の連想配列があります。
値は数値一つか、一つ以上の連想配列のどちらかです。
下記の様にタブインデントの回数で位置を示した図をテキストファイルで作成したいのですが、どうすればいいでしょうか。

A
B
C 653
D 993
E
F
　　　G 534
H 331

732 ：デフォルトの名無しさん ：2020/02/24(月) 16:13:00.23 ID:1tltuveE0.net

スペースが潰れてしまったので修正します

A
　B
　　C 653
　　D 993
　E
　　F
　　　G 534
H 331

733 ：デフォルトの名無しさん ：2020/02/24(月) 16:28:54.55 ID:pOROlutlM.net

VBAを投げ捨ててyamlにする

734 ：デフォルトの名無しさん ：2020/02/24(月) 16:29:30.10 ID:BJsPLhtxr.net

みなさんコード打ちはJIS配列でしていますか？
USのほうがやっぱり打ちやすいのかな

735 ：デフォルトの名無しさん ：2020/02/24(月) 16:48:26.70 ID:OWwFgx4ma.net

VBA使ってる即ちプリインストール厨なんだから職場貸与のJISキーボードに決まってるでしょ
道具に拘ること自体は否定しないが、そんな奴がVBAなんてストレスMAXじゃないか？
捻れが大きすぎて正常な精神を保てなそう

736 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8340-KfDg)：2020/02/24(月) 17:00:35 ID:1tltuveE0.net

>>733
VBAでお願いします

737 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ff79-HgOh)：2020/02/24(月) 17:02:23 ID:zhSNWlOe0.net

JSON VBAでぐぐれ

738 ：デフォルトの名無しさん ：2020/02/24(月) 17:50:57.41 ID:l6OFRdVP0.net

いやだ

739 ：デフォルトの名無しさん (ｱｰｸｾｰ Sx07-XxLC)：2020/02/24(月) 19:43:10 ID:jjjPoigmx.net

>>731
連想配列とネスト深度を引数にとって出力を返す再帰関数を作る
連想配列の第一要素の型が数値ならば普通にネスト深度とKeyとValueから出力内容を生成して返し、連想配列だったら更に自身を呼び出すようにすれば良い

740 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 93da-uj/U)：2020/02/25(火) 09:26:37 ID:d82kFCO70.net

>>731
普通にやっても問題ない

741 ：デフォルトの名無しさん ：2020/02/25(火) 09:59:23.47 ID:9IyrqwVFM.net

VBAを気持ちよく使い続けたいなら、今与えられている環境が最高であると信じて疑わず、余計な知識を仕入れないことだ
特に、作業環境に拘りはじめるといずれ確実にVBAがボトルネックであるという考えに至ってしまうため非常に危険

742 ：デフォルトの名無しさん ：2020/02/25(火) 10:39:35.32 ID:d82kFCO70.net

仕事なのか趣味なのかで取り組み方は全然違うぞ

743 ：デフォルトの名無しさん ：2020/02/26(水) 19:10:12.76 ID:vsXFrrYA0.net

VBAで何でも作れると、VSなんて要らないと思われてしまうため非常に危険

744 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 0b94-ctjd)：2020/02/26(水) 20:09:04 ID:JVb++aVC0.net

VBAで何でも作れるとは？

745 ：デフォルトの名無しさん (ｽﾌｯ Sdea-/0SP)：2020/02/26(水) 20:15:42 ID:rKAt0si0d.net

何でもは作れないわ、作れる物だけ

746 ：デフォルトの名無しさん (ﾌﾞｰｲﾓ MM27-Y3k4)：2020/02/26(水) 20:28:14 ID:Ll3mA7qnM.net

excelVBAでDDEexecution使ってあるアプリを操作し、
そこでクリップボードに取得した画像をアクティブシートに貼り付けたいです

DDE経由で取得したクリップボードが空っぽなのですが、
DDEterminateする前にオブジェクトに移さないとダメなのでしょうか？

747 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 0b48-QQwt)：2020/02/26(水) 20:37:33 ID:8sZglkar0.net

別言語いじると、元言語に戻ったとき、思わぬブレークスルーがあるので、別言語は是非やるべきだと思う。

748 ：デフォルトの名無しさん ：2020/02/26(水) 21:08:39.92 ID:+cz27N880.net

今やるならAWSだろ。

749 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ca01-bE1b)：2020/02/26(水) 22:51:04 ID:UkD+a9vW0.net

VBAでそこそこの物を作れるとは思うが他の言語使えるならわざわざVBAなんて選択しないよ
なので>>743が何を主張してるのかよくわからん

750 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 0ba2-ZhQ4)：2020/02/26(水) 22:52:21 ID:+cz27N880.net

じゃ、なんでこのスレいるの？

751 ：デフォルトの名無しさん ：2020/02/26(水) 23:20:52.00 ID:UkD+a9vW0.net

VBAでやらんといけない場合もあるから
ってことも想像できないの？

752 ：デフォルトの名無しさん ：2020/02/26(水) 23:32:57.96 ID:+cz27N880.net

じゃ他言語が使えてもVBA使うことあるってことじゃん、何言ってんのこいつ

753 ：デフォルトの名無しさん ：2020/02/27(木) 00:05:00.80 ID:RMeeA8fN0.net

日本語の理解力なさすぎw
他の言語が使える（状況）ならって話な

754 ：デフォルトの名無しさん ：2020/02/27(木) 00:14:45.62 ID:5xLWm1lA0.net

じゃ、状況って書けよ
VBAでそこそこの物を作れるとは思うが他の言語使えるならわざわざVBAなんて選択しない
↑
この表現から「状況」って単語を読み取ってほしいって自分の言葉足らずを認めず他人をなじるただの馬鹿としか思えんわな。
素直に謝れよｗ

755 ：デフォルトの名無しさん ：2020/02/27(木) 00:17:32.13 ID:5xLWm1lA0.net

「小学生並みの表現力が誤解を招いたにもかかわらず悪態をついた卑しき自分が存在してすみません」って言え

756 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 07ce-DFeu)：2020/02/27(Thu) 04:21:27 ID:NxJu2KcC0.net

たしかに「使える人」「使える状況」どっちにも読めるけど、俺は初見では「使える人」の方だと思った

判断の理由は、まずこの文章には主語がないこと
そこで想像で「俺は」を補い読み進めると、次に同じ文章の中に「作れる」「選択しない」という単語が、また主格を伴わずに出てくる
この場合は、すべての動詞の主体は「人」だと判断するのが自然

757 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 0b94-ctjd)：2020/02/27(Thu) 04:35:15 ID:PX1R20t40.net

ネチネチとクドい言い方がキモいよ

758 ：デフォルトの名無しさん ：2020/02/27(木) 04:55:30.05 ID:RMeeA8fN0.net

理解力足りない奴がクドクド夜中まで大変だなw

759 ：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd02-ciQC)：2020/02/27(Thu) 05:05:43 ID:F9flkDmPd.net

4時21分は夜中だけど4時55分は朝

760 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 3a26-7qQN)：2020/02/27(Thu) 05:27:02 ID:1NTaOPIN0.net

文章力低すぎて試験で失敗したタイプ

761 ：デフォルトの名無しさん ：2020/02/27(木) 06:51:41.59 ID:6N44UBOdM.net

文章力で試験に失敗とかそんな経験ないけどなw
そもそも今時ム板見てる人でVBAだけ使える人って珍しくね？

762 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 0668-Qfp7)：2020/02/27(Thu) 09:46:48 ID:RXnANkEf0.net

論点ズレズレで遊ぶ大人(外見だけ)？

763 ：デフォルトの名無しさん ：2020/02/27(木) 12:41:36.10 ID:6N44UBOdM.net

試験とか言い出して論点ずらそうと必死な奴を虐めるなよw

764 ：デフォルトの名無しさん (ﾜｯﾁｮｲ def2-oL1e)：2020/02/27(Thu) 14:04:05 ID:XYBaslRL0.net

ＣＧだとわかっていてもｗｗｗ

765 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2f-n4Mc)：2020/02/27(Thu) 14:16:04 ID:xizTLawga.net

>>759
わかる（わかる）

766 ：デフォルトの名無しさん ：2020/02/27(木) 15:36:14.26 ID:C8kQhi5I0.net

言葉の内容じゃなくて表現に文句つける奴は大体無能
完璧な意思疎通なんて無理なんだから曖昧な点は都度確認して
ああそういう意図だったので済むのにネチネチとなんの生産性もない

767 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2f-VlRL)：2020/02/27(Thu) 18:40:02 ID:cb25kGwba.net

せやかてクド

768 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 4a42-us/x)：2020/02/27(Thu) 22:04:00 ID:d4EgxlqA0.net

わふー

769 ：◆QZaw55cn4c (ﾜｯﾁｮｲ 2aaa-r80M)：2020/02/27(Thu) 22:06:00 ID:JMJaKBCQ0.net

>>745
VBA で何でも作れるのでは？
だって win32api を自由にコールできるのだから

770 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b301-hmiQ)：2020/02/27(Thu) 23:43:30 ID:qWPXm1F00.net

>>769
非同期処理や並列処理はできないやろ
たぶん
簡単にできるなら書き方教えてほしいっす

771 ：デフォルトの名無しさん ：2020/02/28(金) 06:19:02.24 ID:unYBun0f0.net

それはズルいだろって言われそうな方法なら…。

772 ：デフォルトの名無しさん ：2020/02/28(金) 06:20:10.17 ID:L+KjVouD0.net

C#とかで処理してVBAに渡すとか？

773 ：767 (ﾜｯﾁｮｲ b301-hmiQ)：2020/02/28(金) 07:09:52 ID:yw4NYUGs0.net

別のEXCEL（多数）起動して並列処理もどきをやったことはあるんですが、無理やりな感じは否めないかな…
ソース（ファイル）も分散するし
（プロジェクトとしてフォルダに纏めるくらいしか…）
VBAの知識だけでできるのはいいんだけど

774 ：デフォルトの名無しさん (JP 0H27-iWdh)：2020/02/28(金) 10:20:28 ID:zXCoNy+pH.net

sendkeysを使って
他のアプリを操作し
ctrl +pgdnをしたいのですが実行されません

SendKeys"^｛PGDN｝",True

775 ：デフォルトの名無しさん (ﾜｯﾁｮｲ decc-DFeu)：2020/02/28(金) 12:25:39 ID:2j7Cc3iW0.net

>>774
まず第一に、SendKeysの確実性はそんなに高くないので、正しく記述しても必ずしも毎回動くとは限らないということを理解しておく必要があるよ
その上で
アクティブなウインドウに送るので事前に他のアプリをアクティブにしておく
他のウインドウをアクティブにするのにウインドウタイトルを指定する必要があるのでその記述にも気を配る
他のウインドウがアクティブになるのにタイムラグがあるのでSleepとかを使って調整する必要があるけどVBAには無いのでほかから借りてくるかApplication.Waitで代用する
どうしても動かない場合は、もっと簡単なケースで試す

776 ：デフォルトの名無しさん ：2020/02/28(金) 17:21:36.80 ID:eDNEl8wD0.net

Excel21016
現在フォルダを指定してその配下にあるファイルの一覧をシートに記載するのを作成中なんですが。
FileLen関数でファイルサイズを出してるんだけど戻り値がLiong型でそれを越えるファイルだとマイナスの値が
返ってきてしまう。そこでFileLen関数以外で正しくサイズを返せるものあるいは工夫ってあります？

777 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 06f7-R/mx)：2020/02/28(金) 18:23:01 ID:MtqAk8k50.net

Scripting.FileSystemObjectのFile.Sizeを使うとか

778 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2f-VlRL)：2020/02/28(金) 18:24:45 ID:tYO2NqnQa.net

入力ミスかw

779 ：デフォルトの名無しさん (ｵｲｺﾗﾐﾈｵ MMeb-hmiQ)：2020/02/28(金) 18:31:00 ID:J9MIpREGM.net

FileSystemObjectを使う機会は増えたな

780 ：773 (ﾜｯﾁｮｲ 4a90-DFeu)：2020/02/28(金) 18:54:32 ID:eDNEl8wD0.net

>>777
ありがとう。調べて作り直してみるよ

781 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2f-VlRL)：2020/02/28(金) 19:38:05 ID:XpFHUdRGa.net

vbaのlong って最大いくつ？

782 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b301-bz6n)：2020/02/28(金) 19:53:42 ID:04Y2DCb30.net

符号付4byteだから(256^4)/2-1

783 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 07ce-DFeu)：2020/02/28(金) 20:02:10 ID:aE85awzW0.net

>>781
2G

784 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2f-VlRL)：2020/02/28(金) 22:10:29 ID:KGz3N4NDa.net

2G越えるファイルexcelで読むの？

785 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa2f-VlRL)：2020/02/28(金) 22:12:17 ID:KGz3N4NDa.net

あ、一覧か
とりあえず負の数なら強引に変換するとか

786 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 07ce-DFeu)：2020/02/28(金) 22:50:10 ID:aE85awzW0.net

それでも4Gまでしか扱えないから困るんじゃない？やっぱり根本的に解決するにはFSOが必要だよ

787 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 67da-DFeu)：2020/02/29(土) 01:59:32 ID:nzXCWKfq0.net

LongLongってVBAで使える？

788 ：デフォルトの名無しさん ：2020/02/29(土) 06:46:07.87 ID:PnWd0bax0.net

>>787
Officeが64bit版なら使える

789 ：デフォルトの名無しさん ：2020/02/29(土) 08:45:02.05 ID:yVx3ckV70.net

>>776
無理にVBA使わなくてもBATでいいんじゃ・・。

790 ：デフォルトの名無しさん (ｽｯﾌﾟ Sd8a-nxU/)：2020/02/29(土) 10:00:21 ID:8kABrwU4d.net

>>775
Sendkeysなんて絶対使わないというぐらいの考え方であるべき。
Sendkeys使うぐらいならWM_KEYUP使う。
普通はWM_COMMAND使う。

791 ：デフォルトの名無しさん ：2020/02/29(土) 17:24:40.65 ID:pn9TVa1rd.net

でもWindowsの設定とかストアアプリ系に入力したい時そういう考えだと詰む

792 ：デフォルトの名無しさん (ｽｯﾌﾟ Sd8a-nxU/)：2020/02/29(土) 19:33:22 ID:8kABrwU4d.net

>>791
つまねえよ。
方法なんていくらでもある。

793 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b301-hmiQ)：2020/02/29(土) 19:49:03 ID:aTMkJ8LJ0.net

>>792
Windowsの設定はいいとして、ストアアプリ系で他に使えるいくらでもある方法教えて下さい

794 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 67da-DFeu)：2020/02/29(土) 19:55:39 ID:yVx3ckV70.net

>いくらでもある

何か前にも聞いたことあるな。
いくらでもある　→　具体的にはどうするの　→　絶対答えられない　のパターン。
前とは別の人だといいね。

795 ：デフォルトの名無しさん (ｽﾌﾟｯｯ Sd8a-ctjd)：2020/03/01(日) 01:31:17 ID:08o/9f1Pd.net

WindowsPhoneとかストアアプリとかアッというまに消えたよね

796 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 67da-VlRL)：2020/03/01(日) 14:55:22 ID:HFjntDoM0.net

消えたのか、どうでもいいけど

797 ：デフォルトの名無しさん ：2020/03/01(日) 20:39:03.78 ID:pGVc13rd0.net

作る側の負担が大きい上にメリットがない

798 ：デフォルトの名無しさん ：2020/03/01(日) 20:39:37.46 ID:0p2p+SL30.net

>>793
その詰むというアプリは具体的に、何てアプリで、どこで詰むんだよ?
アクセシビリティやUIAutomationもダメなのか?

799 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b301-hmiQ)：2020/03/01(日) 21:13:10 ID:e3qx9Rp60.net

>>798
アクセシビリティって何すか？

800 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 67da-DFeu)：2020/03/01(日) 21:20:05 ID:l9YkKU150.net

その人じゃないが、UIAutomationのinvokePattern.Invokeでフリーズして詰んだことはある。

801 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 67da-DFeu)：2020/03/01(日) 21:23:39 ID:l9YkKU150.net

>>799
多分IAccessible。

802 ：デフォルトの名無しさん ：2020/03/02(月) 00:30:19.58 ID:lG3i9xSc0.net

>>801
多分も何も、それ以外有るまい。
UIAutomationの前身だろ。

>>800
それは何かが足りないとか、他の方法も駄目なのかとか、いろいろ回避策有りそうだが。

803 ：デフォルトの名無しさん ：2020/03/03(火) 15:10:58.72 ID:7/oOWVG0M.net

プログラミング言語人気ランキング2020
https://active.nikkeibp.co.jp/atcl/act/19/00124/

使用している言語のトップ10内にVBAが。まあ、実際そんなもんでしょう
C/C++がトップなのは日経がゆえなのか…
PL/Iが出てるのが懐い(ToT)
htmlが違和感。まあ言語だけど…

804 ：デフォルトの名無しさん ：2020/03/03(火) 17:19:11.87 ID:JZf49imxr.net

>>803
全部ウィンドウズでできますか？

805 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 07ce-DFeu)：2020/03/03(火) 18:02:04 ID:ZNfWdjcz0.net

>>803
COBOLがC#の1/3もあるのか
すごいアンケートだな

806 ：デフォルトの名無しさん ：2020/03/03(火) 18:59:05.76 ID:tIhoJqwEa.net

rubyってこんなもんか

807 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f7c-oL1e)：2020/03/03(火) 19:26:06 ID:b2+NWnE80.net

COBOLは使いたくなくても使わざるを得ないんだよ

808 ：デフォルトの名無しさん ：2020/03/03(火) 20:03:07.46 ID:AJx5UoX4M.net

まあ業務で使ってる言語ならそれほど違和感無いな
なんだかんだ言ってC/C++はつえーわ
あといい加減HTML/CSSを入れるのをやめろと思うわ
言語と言ってもプログラム言語じゃねーし

809 ：デフォルトの名無しさん ：2020/03/03(火) 22:21:40.76 ID:dFpQRGVD0.net

Java と VBA が同じって有り得ないと思うが

810 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 07ce-DFeu)：2020/03/03(火) 22:32:12 ID:ZNfWdjcz0.net

だから職場で強要されてる言語のランキングでしょ
能率とか好みとか無関係

811 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ff8e-oceE)：2020/03/03(火) 22:33:01 ID:dGcpOur50.net

これと似たような理由だろ
https://i.imgur.com/q4GXr11.jpg

812 ：デフォルトの名無しさん (ｱｰｸｾｰ Sx03-54rA)：2020/03/03(火) 22:33:31 ID:1bYPNvMdx.net

COBOLは数十年に及ぶ後方互換性維持の実績があるから絶対にこのくらいの順位で落ち着く
COBOL不要論とか妄言だからなマジで

813 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f7c-oL1e)：2020/03/03(火) 22:49:49 ID:b2+NWnE80.net

VBAの依頼はとても多い

814 ：デフォルトの名無しさん (ﾜｯﾁｮｲ cbae-1hVY)：2020/03/04(水) 00:14:55 ID:SHIP3lO60.net

アドインをショートカットで呼びだす方法が調べてもわからないのですがあるのでしょうか

815 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa0f-blPw)：2020/03/04(水) 00:21:59 ID:9VsHR+eQa.net

業界が慢性的な人不足だから、ある程度メジャーな言語ならそりゃ絶対的にはどれでも依頼はとても多いさ
どれを選んでも仕事は十分にあるのだから、どれとは言わないがあえて単価も人材市場評価も低いものを選ぶ必要はない

816 ：デフォルトの名無しさん ：2020/03/04(水) 06:19:22.68 ID:Yqjto87s0.net

>>809
うちだけかも知れんがJava案件激減したよ
VBAは自前のツールとかちょっとしたデータ処理に使ってる人も多いし

817 ：デフォルトの名無しさん (ｱｳｱｳｴｰ Sa3f-QWq5)：2020/03/04(水) 12:28:43 ID:5h+Z4JsAa.net

VBAの将来性ってどうなんですかね？
これがいい、っていう代わりがあればすぐにも移行するけど、それが示されないのにただ VBAは将来が… って言われてもなぁ…

818 ：デフォルトの名無しさん (ｱｳｱｳｴｰ Sa3f-2dlT)：2020/03/04(水) 12:48:25 ID:pN64i/qda.net

なんか何年も前からそう言われ続けている気がする

819 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 3bb0-yu5C)：2020/03/04(水) 12:52:02 ID:wYjs4WK40.net

現状維持か消えるかだろう
どう考えても発展する余地はない

820 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 3bb0-yu5C)：2020/03/04(水) 12:53:02 ID:wYjs4WK40.net

どちらにせよ今のCOBOL需要みたいなのは残るだろうね

821 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 1bce-xiWk)：2020/03/04(水) 12:53:45 ID:192gnjdP0.net

ずっと10年以上VBAは終わりと言い続けてるやつがいるけど、ランキングを見ればわかるように現場では普通に使われてる
WindowsというOSも終わりと以下略

一度広まってしまった物は簡単には消えないんだよ
生態系を壊してるブラックバスと同じ

822 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ef33-MCu0)：2020/03/04(水) 13:23:13 ID:GaU/rHnt0.net

じゃあコロナも消えないな

823 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f42-ZjDW)：2020/03/04(水) 13:55:31 ID:HLZcEGPZ0.net

自然淘汰を待っているのと積極的に対策してるのを同列に語るのはどうかと

824 ：デフォルトの名無しさん (ﾜｯﾁｮｲ cbda-xiWk)：2020/03/04(水) 14:16:54 ID:ryjR/JBt0.net

VBAが終わったらMSオフィスを使う理由がなくなる

825 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9bda-xiWk)：2020/03/04(水) 16:39:27 ID:MKyvAYdn0.net

何をもって終わったというのか、後続が出なくても現場で使っていたら終わってないし

826 ：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM4f-blPw)：2020/03/04(水) 18:32:59 ID:O/qwuvY6M.net

まあ既存のVBAマクロが新しいバージョンのExcelで動かなくなる日が来るとは思えないが、
VBEが廃止されて新規に作れなくなるのは十分にありうる
終わりがくるとしたらそれだろう
実際、VisualStudioなどのMS製品の多くは昔はVBAが入ってたわけだしな

827 ：デフォルトの名無しさん ：2020/03/04(水) 19:49:17.22 ID:192gnjdP0.net

>>822
もちろん病原菌も根絶は不可能
治療法を探して対処するしかない

828 ：デフォルトの名無しさん ：2020/03/04(水) 20:05:22.88 ID:SHIP3lO60.net

>>814
これ誰か知りませんか

829 ：デフォルトの名無しさん ：2020/03/04(水) 20:13:23.22 ID:4N1Kq+pZ0.net

>>828
クイックアクセスツールバーに入れてAltで呼び出すのが手軽なんじゃね

830 ：デフォルトの名無しさん ：2020/03/04(水) 20:17:28.31 ID:3PnKhINo0.net

ショートカットってなにさ

831 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ab01-UjD1)：2020/03/04(水) 20:26:14 ID:X6jjanDB0.net

ctrl + A みたいなんやろ

832 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9bda-xiWk)：2020/03/04(水) 20:41:44 ID:hxmeGFhc0.net

調べてもわからないってなんやねん・・。
俺もわからないからググったら、検索結果の1番上に出てきたじゃんか。

833 ：デフォルトの名無しさん (ｽﾌﾟｯｯ Sdbf-kTmN)：2020/03/05(Thu) 14:00:12 ID:rKi2A6DKd.net

昔は何でもかんでもエクセルだったけど今は専用アプリが増えてエクセルの出番が減ってる
今後はもっとエクセルを使う場面が減るだろう
エクセルが無くなる事はないにしても

834 ：デフォルトの名無しさん ：2020/03/05(木) 15:07:31.53 ID:Ug+scqfur.net

専用アプリ？

835 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 0feb-Lqe9)：2020/03/05(Thu) 20:34:42 ID:K6v7QzcZ0.net

質問です。よろしくお願いします。
ブックにある複数のシートをそれぞれ順に、いちばん左上が表示されている状態にしておく、という動作を作りたいです。
Do
　　Name = (対象シートの名前）
ThisWorkbook.Worksheets(Name).Select
ThisWorkbook.Worksheets(Name).Range("A1").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
　　（対象を次のシートに切り替え）
Loop
↑
このように書きました。
しかし、この書き方では、このプログラムを動作中にたまたま他のブックが選択されてしまったりして、
当ブックがアクティブでなくなった場合、ActiveWindow.という部分でエラーがでるんじゃないかという気になりました。
とはいえ、ThisWorkbook.Worksheets(Name).ScrollColumn = 1　というように書いてもダメみたいです。
また、A1をselectするだけでは、表示が左上になりません。
何かいい方法ないでしょうか？

836 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 3b7c-Ff7g)：2020/03/05(Thu) 21:15:18 ID:/LYBmypS0.net

>>835
application.goto

837 ：デフォルトの名無しさん ：2020/03/05(木) 21:41:08.70 ID:yWFKM6iN0.net

>>835
Application.Goto Sheets("Sheet1").Cells(1, 1), True

838 ：デフォルトの名無しさん (ﾜｯﾁｮｲ eff7-e9xa)：2020/03/05(Thu) 23:02:22 ID:WJr0+YDk0.net

>>835
Application.ignoreRemoteRequest = false

839 ：832 (ﾜｯﾁｮｲ 0feb-Lqe9)：2020/03/06(金) 01:00:24 ID:kNbJ3ddM0.net

>>835です。
>>836-837
ありがとうございました。
確認なんですが、
Application.Goto というのは、自ブックのウィンドウがアクティブではなく、別のウィンドウがアクティブになっている状態で、
むりやり自分のブックとそのウィンドウをアクティブに変更するのではなく、
ひっそりと陰で、アクティブではない状態のまま、ただ「自分のブックの範囲の中ではこのシートがもっともアクティブ」という
解釈でやってくれるという理解でいいのでしょうか？

840 ：デフォルトの名無しさん (ﾜｯﾁｮｲ cbad-wzO4)：2020/03/06(金) 01:31:44 ID:Z17kfdKR0.net

>>817
>>821
VBAはオワコン、オワコン、って言われてきたが
実際はマイナー言語の方が先に終わってるからな！

841 ：デフォルトの名無しさん ：2020/03/06(金) 01:33:53.22 ID:Z17kfdKR0.net

>>826
VBAをPythonやJSに置きかえればいいのにな
今はVBAの言語仕様が古くなってしまったから

>>833
そりゃ専用アプリの方が便利だろうが
エクセル自体の代替はほとんどないな

842 ：デフォルトの名無しさん ：2020/03/06(金) 06:07:03.55 ID:3qnD0oaT0.net

逆に1,1をselectして左上が表示される俺のエクセルは一体どうなってるんだ。。。

843 ：デフォルトの名無しさん ：2020/03/06(金) 06:46:48.61 ID:fNVi1eTS0.net

VBAはマクロ言語としては普通に使いやすいと思うけどな
汎用的な言語としてはクソだとは思うけど

844 ：：2020/03/06(金) 18:37:22.13 ID:XdrWOsjB0.net

>>843
VBA のどのような点が汎用言語として残念なのでしょうか？

845 ：デフォルトの名無しさん ：2020/03/06(金) 18:42:09.16 ID:TqGCTxoCH.net

>>841
JSはない
あの癖がありすぎて無理だろ

846 ：デフォルトの名無しさん (ﾜｯﾁｮｲ cbad-wzO4)：2020/03/06(金) 18:44:01 ID:Z17kfdKR0.net

>>845
本音を言えばオレもクセが嫌いだけど
最近JSにクラス構文できてマシになった

本当はRubyで一番書きたいんだけど
Windowsに嫌われてて採用されなそうだから

847 ：デフォルトの名無しさん ：2020/03/06(金) 19:21:04.42 ID:9o5wzflr0.net

>>839
実際やってみたらどうだった？

848 ：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM4f-F74f)：2020/03/06(金) 21:02:36 ID:hYOq9QPMM.net

>>845
俺もそれには同意したいがnodejsとかの状況見たらそんなことは言ってられないような気がする

849 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9bda-xiWk)：2020/03/06(金) 21:13:00 ID:VJTVQ6P20.net

↓宣言

Dim warota As String
Dim kusa As String

↓ずれてるのがしっくりこないのでこうしてみる。

Dim warota As String
Dim kusa　　As String

文字間が空いているのも嫌なので、
↓もうこれでいいやwwwwってなる。

Dim warota As String, kusa As String

850 ：デフォルトの名無しさん ：2020/03/06(金) 21:13:29.84 ID:VJTVQ6P20.net

どうすればいいっすかね。

851 ：デフォルトの名無しさん ：2020/03/06(金) 21:41:31.84 ID:qqIAHFEh0.net

>>841
何頓珍漢なこと言ってんだよ。PythonはVBAより古いぞ。

1991年　Python
1993年　VBA
1996年　JScript

Pythonなんてゴミみたいな文法で、VBAとは比べ物にならない。
VBAも古くなったのは確かなので、VBA.NETに進化させるべきだな。

852 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 1bce-xiWk)：2020/03/06(金) 22:08:33 ID:zRyfvowG0.net

VBAはVBの長い歴史を引き継いでるんだから、VBAの登場時期だけでくらべても意味がない

853 ：デフォルトの名無しさん ：2020/03/06(金) 22:19:00.08 ID:8BomHpEo0.net

>>849
Dim warota$, kusa$

854 ：デフォルトの名無しさん ：2020/03/06(金) 22:44:21.46 ID:qqIAHFEh0.net

>>851
VBは1991年登場だからPythonと同じ。構造化され、1964年のBASICとは別物。

VBAにはwith文（Python風のではなくPascal風の）があるので、同じオブジェクトに
対する連続した操作をすっきり記述できて、Excelに適している。

855 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f01-F74f)：2020/03/06(金) 22:47:00 ID:Oq5LDxMU0.net

>>851
古いから駄目ってか？
お前の方が頓珍漢すぎるw
C++とか1983年だぞ
登場年よりどれだけ改訂されてるかだろ

856 ：デフォルトの名無しさん ：2020/03/06(金) 23:18:50.14 ID:VJTVQ6P20.net

>>853
いいじゃん!
それにするわ。

857 ：デフォルトの名無しさん (ｽﾌﾟﾌﾟ Sdbf-rBsR)：2020/03/06(金) 23:36:11 ID:x5aTnGY4d.net

>>856
これが原点回帰

858 ：デフォルトの名無しさん ：2020/03/06(金) 23:37:21.11 ID:/27OnYlma.net

発展の余地がないとか…
枯れてるからよいということもあるのにね

859 ：デフォルトの名無しさん (ﾜｯﾁｮｲ cbad-wzO4)：2020/03/07(土) 03:51:28 ID:meF2wfp30.net

登場年の問題じゃなくて
言語の記述性の問題

860 ：デフォルトの名無しさん ：2020/03/07(土) 05:49:46.99 ID:wS7FLE9a0.net

記述性より可読性じゃね

861 ：デフォルトの名無しさん ：2020/03/07(土) 08:18:03.28 ID:ZT4uJUE70.net

なんか、頓珍漢な議論になってるな。
Excelに搭載されてるなら何でも良いだろ。
搭載されてるかどうかが全てだぞ。

汎用的な言語とか意味が無い。
汎用的に使わないから意味が有るのに。

862 ：デフォルトの名無しさん ：2020/03/07(土) 08:32:32.42 ID:meF2wfp30.net

記述性も可読性も両方
Pythonの方が高いだろ

863 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f79-sNVK)：2020/03/07(土) 13:39:18 ID:oT61NKq30.net

Excelに搭載されてる必要を感じない

864 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ab01-Licc)：2020/03/07(土) 13:43:50 ID:XL39BLbv0.net

>>856

865 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ab01-Licc)：2020/03/07(土) 13:47:04 ID:XL39BLbv0.net

>>856
（あ、間違って書き込み押してしまった）
!#$%&
ずっとこればっか
integerやdoubleとか書いてない

866 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8b04-qBvo)：2020/03/07(土) 16:15:01 ID:qDBeB9FV0.net

フィルターで絞り込まれた表の一部分を選択した後、
下記のイベントを発生させるとメッセージボックスが2回ループします。
なぜなんでしょうか？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim セル As Variant
For Each セル In Target.SpecialCells(xlCellTypeVisible)
MsgBox セル
Next

End Sub

867 ：デフォルトの名無しさん ：2020/03/07(土) 16:24:52.38 ID:ccKtHpW90.net

>>866
セル2個選択してるんでないの

868 ：デフォルトの名無しさん ：2020/03/07(土) 16:29:20.73 ID:qDBeB9FV0.net

>>867
863です。
書き忘れてました。セル範囲を選択します。
数に関係なく2回ループします。

869 ：デフォルトの名無しさん ：2020/03/07(土) 16:30:32.47 ID:XL39BLbv0.net

>>866
targetと セル 変数の中身は何なんだろ？

870 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 3b7c-Ff7g)：2020/03/07(土) 17:40:21 ID:ccKtHpW90.net

>>868
Target.SpecialCellsでSelectionChangeが発生してる気がする
forのApplication.EnableEventsで一旦止めたらいいんじゃないか

871 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 3b7c-Ff7g)：2020/03/07(土) 17:40:43 ID:ccKtHpW90.net

forの前に

872 ：デフォルトの名無しさん ：2020/03/07(土) 18:39:19.55 ID:XtitbUGhM.net

>>869
レスありがとうございます。
targetの始めの中身はフィルターをかけた後に選択したセル範囲が入ってるはずです。
セルはfor each で格納するため初期値は何も入ってないはずです。

873 ：デフォルトの名無しさん ：2020/03/07(土) 18:48:07.81 ID:XtitbUGhM.net

>>870

> >>868
> Target.SpecialCellsでSelectionChangeが発生してる気がする
レスありがとうございます。
そうなんですよ。
msgboxが2回ループするということは、SelectionChangeがイベント発生中にもう一度発生しているということなんだと思います。
ただ今までマクロ使ってきて初めてのことで、色々調べてみたんですがどうしても分からなかったんです。
SpecialCellsってセルの再選択が発生するんでしょうか？


> forのApplication.EnableEventsで一旦止めたらいいんじゃないか

あとで試してみます。

874 ：デフォルトの名無しさん ：2020/03/07(土) 19:39:05.36 ID:IvWBzVie0.net

Excelでメモリの使用量を知る方法ってない?
タスクマネージャーのやつじゃなくて、Excel上で。
配列にどのくらいまでなら入れられるかの目安にしたいんだけど。

875 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ab01-Licc)：2020/03/07(土) 21:31:42 ID:XL39BLbv0.net

>>872
subの直後に
debug.print "Worksheet_SelectionChange start"
debug.print target.address（でいけるかな…）
forの中に
debug.print "セル" & セル.address

こうすると、どういう順で動いてるか、値も把握できて解析に役立つ
何なんだろと聞いたのはそういう事

動きがわからないときはどんどんdebug.print を埋め込んで可視化するのが解決の近道ですよ

876 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8b04-vh9z)：2020/03/07(土) 21:52:17 ID:qDBeB9FV0.net

>>875
ありがとうございます。
正直、debugprintはあまり使わずブレークポイントやイミディエイトウィンドウなどでチェックしてました。
試してみます。

877 ：デフォルトの名無しさん (ｱｳｱｳｴｰ Sa3f-Inmc)：2020/03/07(土) 22:02:15 ID:2DcP5AA9a.net

ちなみに、printの部分は?でもいけるよな

878 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 1bce-xiWk)：2020/03/07(土) 23:28:27 ID:IUbg0+ba0.net

>>874
昔のApplication.MemoryFreeに相当する空きメモリ情報はWin32APIのGetProcessMemoryInfoを使わないと取得できない

879 ：デフォルトの名無しさん ：2020/03/08(日) 00:44:09.13 ID:mw19GHmw0.net

>>877
mjd?……
ホンマや。知らんかった…
というか、昔何かのBASICで ？書いてたような記憶が蘇ってきた…
ちなみに print #1とかにも使える〜
教えてくれてありがと〜

880 ：デフォルトの名無しさん (ﾜｯﾁｮｲ bb8e-jhwo)：2020/03/08(日) 00:57:04 ID:eh2q8TLt0.net

>>879
馬鹿は死ねよ

881 ：デフォルトの名無しさん ：2020/03/08(日) 01:15:51.35 ID:zr0fZFNpr.net

>>880
ネットでしか偉そうなこと言えない真正バカニートはそう言うことでしか精神状態保てないんだね
かわいそうに

882 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ab01-5zdl)：2020/03/08(日) 01:53:06 ID:I6P98FeB0.net

>>844
・名前空間がない
・クラスが継承出来ない
・局所関数が作れない
みたいなコード管理や再利用に関する機能が貧弱

そのせいで関数同士の関係が分かりづらくて
作った人しか分からないソースになりがちだと思う

一応プロジェクトを名前空間として扱えば頑張れるが作業に対するコスパが悪い

883 ：デフォルトの名無しさん ：2020/03/08(日) 09:30:09.90 ID:d1lp2qnEa.net

他人に簡単に理解されて得なことなんて一つもない
理解されない方が得
理解されて何の得があるんだよ

884 ：デフォルトの名無しさん (ﾜｯﾁｮｲ eff7-e9xa)：2020/03/08(日) 10:04:42 ID:KmiE4RE50.net

チームメンバーは他人じゃないよな
いわば運命共同体
同僚は兄弟、同僚は家族

885 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa0f-lYXe)：2020/03/08(日) 10:23:41 ID:lidP191Ca.net

>>884
お前のものは俺のもの

886 ：デフォルトの名無しさん ：2020/03/08(日) 11:06:34.19 ID:/EkcPSuMa.net

>>884
それ思ってるのお前だけだから

887 ：デフォルトの名無しさん (ｱｳｱｳｴｰ Sa3f-Inmc)：2020/03/08(日) 11:16:24 ID:aqmzj8A6a.net

>>882
それ、よく言われてるけど、結局オブジェクトのスパゲティーができるだけだよな、、、
ちょっとしたシステムでもクラスが数千個もできて管理できないやつ
継承とか再利用って何か修正があった時の影響調査に時間ががかるだけで全然楽にならない

888 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa0f-qWno)：2020/03/08(日) 11:33:52 ID:4UY9QB9Za.net

いまだにVBAで新規開発してるようなレベルの現場ならまあそうなるだろうな

889 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa0f-Lqe9)：2020/03/08(日) 11:35:57 ID:/EkcPSuMa.net

>>888
他人の知識を共有化させてプログラムにしてお金を稼ぐ鬼畜
正義ぶっていい気になんな

890 ：デフォルトの名無しさん ：2020/03/08(日) 12:16:04.79 ID:pGwY8Xd00.net

Excelで会社の進捗表や推移表を作っているのですが
VBAで作れるようになりたいです。
どの本から勉強するのがオススメでしょうか？

891 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 9f01-F74f)：2020/03/08(日) 12:47:55 ID:K4cIg85y0.net

>>887
バカが使うとどんなツールでも意味ないというだけの話

892 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 3b7c-Ff7g)：2020/03/08(日) 12:57:51 ID:wGN5QR/10.net

>>890
VBAはExcelだけで実現が難しいことをやるためのもんなのでExcelでできることはあまりVBAを使わない方がいい

893 ：デフォルトの名無しさん (ｱｳｱｳｴｰ Sa3f-2dlT)：2020/03/08(日) 13:07:04 ID:HrEjfMsja.net

>>890
vbaの本の前に、プログラミングの基礎から学んだ方がいいのでは？

894 ：デフォルトの名無しさん ：2020/03/08(日) 13:08:28.89 ID:HrEjfMsja.net

プログラミングの基礎は知ってるならいいけど

895 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 3b7c-TJPv)：2020/03/08(日) 13:12:36 ID:wGN5QR/10.net

ExcelでVBA使うだけならプログラミング基礎からやる必要はない

896 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sa0f-qWno)：2020/03/08(日) 14:13:36 ID:4UY9QB9Za.net

>>890
そんな暇があったらMS Projectでも買え
クラウド版のサブスクリプションなら一人月額千円だから、お前の月給が30万ならお前をリプレースすれば300人分になる

897 ：デフォルトの名無しさん (ﾜｯﾁｮｲ cbad-wzO4)：2020/03/08(日) 17:13:32 ID:q3PBpoad0.net

>>887
＞影響調査に時間ががかる
って時点で間違ったオブジェクト指向だな
変更時の影響範囲を限定するためのOOだぞ

898 ：デフォルトの名無しさん (ﾜｯﾁｮｲ cbad-wzO4)：2020/03/08(日) 17:15:23 ID:q3PBpoad0.net

>>890
表紙がやさしそうな本から読めば？
何冊も読む必要があるけど
最初から分厚いの読むより楽

あとVBAで作ることに意味があるのは
定型化や自動化できる部分なんで
業務を把握することがVBA以上に大事

899 ：デフォルトの名無しさん (ｱｳｱｳｴｰ Sa3f-Inmc)：2020/03/08(日) 17:29:03 ID:aqmzj8A6a.net

>>897
どういう使われ方をしてるか確認しないのか？
リグレッションとかもしないの？
みんな理想通りにオブジェクト指向で作れてるんだな、、、

900 ：デフォルトの名無しさん (ｱｰｸｾｰ Sx4f-HOkB)：2020/03/08(日) 17:42:48 ID:qsdyu9ekx.net

局所関数はむしろローカルスコープ内でイテレータに渡して使い捨てるだけというイメージだが
変数に仕込んであちこちで使い回したりしてるのか

901 ：デフォルトの名無しさん ：2020/03/08(日) 18:34:24.60 ID:eh2q8TLt0.net

>>881
お前みたいな馬鹿に対して周りが思っていることをはっきり書いただけだが
図星で悔しかったか？

902 ：デフォルトの名無しさん ：2020/03/08(日) 19:56:01.62 ID:qHSkoWsm0.net

実務経験1年で月収80万稼げるエンジニアになった理由
https://www.youtube.com/watch?v=DrbbyGsHQic
意識が低いエンジニアこそフリーランスになれ
https://www.youtube.com/watch?v=nSEaAJlgjbQ
フリーランスエンジニアの週3労働ってどんな感じ？
https://www.youtube.com/watch?v=8yjoDCdbzMc
ぼくがスキルのない社畜ならこうやって脱する
https://www.youtube.com/watch?v=aae8xxbUlMM
初めて人を雇ったらもう二度とサラリーマンをやりたくないと思った話
https://www.youtube.com/watch?v=U0OCGRVLFsM
プログラミングは文系でも余裕で出来ます！理由を現役プログラマーが解説
https://www.youtube.com/watch?v=iBOeiSKBIW8
貧乏人こそ社会不適合者
https://www.youtube.com/watch?v=O3BT72BIBJI
元ド貧乏が教える】貧乏を抜け出すための2つの考え方
https://www.youtube.com/watch?v=IRrCgTy3ckc
より良いオファー貰ってるのに転職しないとか何考えてるの？
https://www.youtube.com/watch?v=i0J6uRhlj7o

903 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8b02-rTj6)：2020/03/08(日) 19:57:42 ID:MJ8bCrVY0.net

こういう宣伝は嫌われるからな。
次から気をつけろよ

904 ：：2020/03/08(日) 20:00:17.65 ID:r6+9p1ny0.net

>>882
＞・名前空間がない
C言語にも名前空間はありません。そんなCでもうまくやっているのだから、どうでもいい問題でしょうね

＞・クラスが継承出来ない
OO 界は継承は「ダメな子」「出来ない子」「要らない子」「出来ちゃった…」な存在なのは周知の事実
継承は排除されつつあり、かわりに継承と等価な委譲を使います。VBA でも委譲を使えばいいのです

＞・局所関数が作れない
C言語にも局所関数はありません。そんなCでもうまくやっているのだから、どうでもいい問題でしょうね

905 ：デフォルトの名無しさん ：2020/03/08(日) 20:08:42.71 ID:M2hf0BiX0.net

>>899
VBAの話ですよね？
普通、理想通りのオブジェクト指向作れるでしょう
VBAの案件なんて一人で全部兼任でしょうに

906 ：デフォルトの名無しさん ：2020/03/08(日) 20:26:40.85 ID:q3PBpoad0.net

>>904
どうでもいい訳ない……！

Cがあまり使われなくなった理由だろう
名前空間だけじゃなくてOOじゃないのが

907 ：デフォルトの名無しさん ：2020/03/08(日) 21:58:47.86 ID:mw19GHmw0.net

>>901
お前みたいなネットでしか偉そうなこと言えない真正バカニートに対して周りが思っていることをはっきり書いただけだが
図星でしたか
かわいそうに

908 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 6b40-5zdl)：2020/03/08(日) 22:22:13 ID:Z/oySaPq0.net

>>900
そう、ローカルスコープ内で定義できる使い捨て関数が欲しいってこと
現状だとイテレータを作るクラスにPublicで関数を公開しないといけないから管理しづらくなる

>>904
言語機能が安全なプログラミングをサポートしてくれるかって話なのに、
C言語ならうまくやる（根性論）で解決してると言われても困る

その委譲ってライブラリをラップする時とかで使う奴だよね
継承代わりに多用してたらスパゲッティの温床になるから、もし実務でやってるなら減らした方がいいよ

909 ：デフォルトの名無しさん ：2020/03/08(日) 22:30:33.43 ID:nDN087zZM.net

>>902
この人タイでよくエッチな店行ってると自慢して
それを動機にフリーエンジニアになれと言ってたよね。

われわれもほんとになれるの？

910 ：デフォルトの名無しさん ：2020/03/08(日) 22:31:58.19 ID:nDN087zZM.net

継承は、スマホアプリや他のいろんなプラットフォームで利用されてるぞ

911 ：：2020/03/08(日) 22:59:29.71 ID:r6+9p1ny0.net

>>906
＞Cがあまり使われなくなった理由だろう

冗談でしょう？
C は今でもバンバン使われていますよ、linux は C で記述されており C++ は受け付けません
あと汎用ライブラリ zlib とかは、多言語から呼び出せるように、あえて C で記述しています
汎用ライブラリは、それが汎用性を目指せば目指すほど、C で書き直される運命にあるのです

912 ：：2020/03/08(日) 23:02:54.97 ID:r6+9p1ny0.net

>>908
＞継承代わりに多用してたらスパゲッティの温床になるから、もし実務でやってるなら減らした方がいい

最近の動向は真逆ですよ
継承こそ、スパゲッティの温床であり、継承は is-a 関係以外では使ってはいけない、継承こそ制限されるべきです
私も https://mevius.5ch.net/test/read.cgi/tech/1434079972/37 では継承を使っていましたが、
https://mevius.5ch.net/test/read.cgi/tech/1434079972/51 では委譲に変えました、委譲に換えて目障りなキャストが減りすっきりしました…

913 ：デフォルトの名無しさん ：2020/03/08(日) 23:16:43.48 ID:LxdcdXu+0.net

Excelvab初心者です。血からを貸してください。
ユーザーフォームで商品名をExcelのシート(商品マスター)に入力しています。
A列には番号が自動的にＢ列にはユーザーフォームで入力した商品名が入力されます。
Ｂ2に(例えば、まぐろ)が入力された状態で入力フォームにまぐろが入力されるとエラーがでるようにしたいのですがうまくいきません。お力をお貸しください

914 ：デフォルトの名無しさん ：2020/03/08(日) 23:27:25.61 ID:M2hf0BiX0.net

>>908
あなたのいう機能が無いと困るのは、どういうマクロを組むことを想定してのことですか？
あくまでVBAで設計するレベルの話で
それらの機能があったとして、すごい楽！！ってなる場面が思いつきません

>>913
テキストボックスのイベントであったような気がしますが
そもそも、その設計だと「まぐろ丼」と入力したい場合はどうなるのでしょうか
まぐろ「エラー！！！」丼という感じになるような
テキストボックスに入力をし終わってから、登録処理を実行する時にチェックをすれば良いのではないでしょうか

915 ：デフォルトの名無しさん ：2020/03/08(日) 23:37:07.95 ID:qsdyu9ekx.net

>>913
マグロの入力が駄目な理由は？
使用が禁止されている商品名だからなのか、既に登録済の商品であるマグロの重複入力を避けたいのか
入力制限の趣旨によってエラーチェックの実装が異なる

916 ：デフォルトの名無しさん ：2020/03/08(日) 23:42:59.94 ID:KmiE4RE50.net

プライマリキーとかデータ制約の話ならSQL使うべきや

917 ：デフォルトの名無しさん ：2020/03/09(月) 01:17:58.71 ID:boUatrmd0.net

>>913
まともに文章も書けない馬鹿には無理

918 ：デフォルトの名無しさん ：2020/03/09(月) 01:26:09.58 ID:7fIcR6pI0.net

>>915
コメントありがとうございます。
データの重複をさけたいのです

919 ：デフォルトの名無しさん (ﾜｯﾁｮｲ eb94-Fh0b)：2020/03/09(月) 01:38:14 ID:7fIcR6pI0.net

>>914
返信ありがとうございます。
おっしゃるとおり
『テキストボックスに入力後の登録処理時にチェックする』
がやりたいことに近いです。
やり方をご教授いただければうれしいです。

920 ：デフォルトの名無しさん ：2020/03/09(月) 01:40:02.32 ID:7fIcR6pI0.net

現在の入力フォームはこのようは形です。
Private Sub btnEntry_Click()
Dim rv As Integer
r = Range("A" & Rows.Count).End(xlUp).Offset(1).Row
Worksheets("商品マスタ").Range("A" & r).Value = r - 1
Worksheets("商品マスタ").Range("B" & r).Value = txtGoods.Text
txtGoods.Value = ""
txtGoods.SetFocus
End Sub

921 ：デフォルトの名無しさん ：2020/03/09(月) 01:50:53.63 ID:ajCpPJPb0.net

>>911
高速な処理が求められるライブラリには
これからも速いCが使われていくだろうね
フロントエンドはPythonとかOOになる

AIとかがそうでしょ

922 ：デフォルトの名無しさん ：2020/03/09(月) 02:52:58.81 ID:1wOyNmDi0.net

Private Sub btnEntry_Click()
On Error GoTo errorStep
Const PRODUCT_TBL_NAME As String = "商品マスタ"
Const PRODUCT_NAME_COLUMN As Long = 2 '商品名が登録されているカラム
Dim productTbl As Worksheet
Set productTbl = ThisWorkbook.Worksheets(PRODUCT_TBL_NAME)
With productTbl
Dim productRecord As Variant
productRecord = .Range(.Cells(1, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, .Cells(1, .Columns.Count).End(xlToLeft).Column)).Value
End With
Dim existsItem As Boolean
existsItem = False
Dim i As Long
For i = LBound(productRecord, 1) + 1 To UBound(productRecord, 1) '1行目はタイトルなので+1にて検索を省く
If productRecord(i, PRODUCT_NAME_COLUMN) = txtGoods.Text Then
existsItem = True
GoTo errorStep
End If
Next
With productTbl
.Range(.Cells(UBound(productRecord, 1) + 1, 1), .Cells(UBound(productRecord, 1) + 1, PRODUCT_NAME_COLUMN)).Value = Array(UBound(productRecord, 1), txtGoods.Text)
End With
With txtGoods
.Value = ""
.SetFocus
End With
errorStep:
If existsItem Then MsgBox txtGoods.Text & "もとい、まぐろが重複しています", vbCritical + vbOKOnly, "重複"
ElseIf Err.Number <> 0 Then MsgBox Err.Number & Err.Description
End Sub

923 ：デフォルトの名無しさん ：2020/03/09(月) 08:07:04.13 ID:YSbl2F5Md.net

>>922
この
クソコー
ド
見る気
無くす

924 ：デフォルトの名無しさん ：2020/03/09(月) 09:24:28.40 ID:ZxqpmtOQd.net

クソコードの見本

925 ：デフォルトの名無しさん ：2020/03/09(月) 10:40:08.36 ID:4/MgldDWr.net

Excel VBAの手書きで入力する InkEditコントロールを利用しているんだけど、最初の一画目を横に引くと線が消えて右に進んでしまう。
（一を描くと手書きと認識されずに右に進むになってしまう）
逆に一画目を右から左に引くと同じように消えるけどバックスペースとして認識するのか入力文字が一文字消える。
何かのコントロールが入っているのかな？

一画目からきちんと手書き認識させるにはどうしたらいいのか教えてほしいです。

926 ：デフォルトの名無しさん ：2020/03/09(月) 10:48:17.23 ID:122ZuEx00.net

>>925
androidの手書き入力でも同じ問題が起きてる
設計したのがアメリカ人だからどうしようもない
書き順を無視して縦線から書くしかない

927 ：デフォルトの名無しさん ：2020/03/09(月) 12:05:57.48 ID:JOXwKeygr.net

VBAで「タッチして描写する」を呼び出したい場合はどう登録すればいいですか？

928 ：デフォルトの名無しさん ：2020/03/09(月) 12:19:34.60 ID:XqBoaxlA0.net

>>920
Private Sub btnEntry_Click()
Dim r As Integer

r = Range("A" & Rows.Count).End(xlUp).Offset(1).Row
With Worksheets("商品マスタ")
If Application.CountIf(.Range("B:B"), txtGoods.Text) = 0 Then
.Range("A" & r).Value = r - 1
.Range("B" & r).Value = txtGoods.Text
lblAlert.Caption = ""
Else
lblAlert.Caption = "入力済です"
End If
End With

txtGoods.SetFocus
Application.Wait Now + 1 / 24 / 60 / 60 / 10
SendKeys "^a", True
End Sub

929 ：デフォルトの名無しさん ：2020/03/11(水) 22:56:52.92 ID:tqnB5YsS0.net

いつも思うんですけど、

With ActiveSheet
　.Range(.Cells(1, 1), .Cells(2, 3))
End With

って、シンプルに

ActiveSheet.Range(1, 1, 2, 3)

にしてくれませんかねぇ。

930 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 4d7c-9blg)：2020/03/11(水) 23:07:19 ID:mSxLcM6q0.net

シンプル重視か把握しやすさ重視は人によるんでないの

931 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 4d7c-9blg)：2020/03/11(水) 23:16:24 ID:mSxLcM6q0.net

自分的にしてほしいのはこれ
rows(3, 5)
columns("a", "c")
rangeはOKなのになんでダメなのか

932 ：デフォルトの名無しさん (ﾜｯﾁｮｲ e5ce-drwQ)：2020/03/11(水) 23:28:12 ID:GnLLEs2o0.net

>>931
範囲指定ならrows("3:5") columns("a:c")とか書けるけど、そういう意味じゃなくて？

933 ：デフォルトの名無しさん ：2020/03/11(水) 23:43:13.84 ID:mSxLcM6q0.net

>>932
変数使ったら「a & ":" & b」って書かなきゃならんのが嫌なだけ
& ":" &が嫌

934 ：デフォルトの名無しさん (ｱｰｸｾｰ Sx91-qc3J)：2020/03/12(Thu) 00:49:49 ID:1HHLdXOlx.net

>>931
二次元のオフセット値で座標確定しなきゃならないRangeと違ってRowsやColumnsは一次元のオフセットで場所を指定できるからね
行や列の指定に多次元引数を許容する実利が少ない
逆にRangeだって三次元以上のインデックスを指定できるようにする意味がないから二次元までのインデックスになってるわけで

935 ：デフォルトの名無しさん ：2020/03/12(木) 01:58:06.82 ID:NVBYTwVX0.net

いや実利ありまくりだろうが

936 ：デフォルトの名無しさん ：2020/03/12(木) 08:21:08.26 ID:2qpmsnq30.net

>>928
Application.Wait Now + 1 / 24 / 60 / 60 / 10

これって、wait してる？

937 ：デフォルトの名無しさん (ﾜｯﾁｮｲ eecc-drwQ)：2020/03/12(Thu) 10:33:01 ID:F1q/9YDt0.net

925だけど、ごめんなさい
NOWだと秒未満が扱えないから、現在時刻が0.1秒超えるとコマンド実行分しかwaitしてないのか
以下の様に訂正します
×Application.Wait Now + 1 / 24 / 60 / 60 / 10
○Application.Wait [Now()] + 1 / 24 / 60 / 60 / 10
[]はワークｼｰﾄ関数らしいね

938 ：デフォルトの名無しさん ：2020/03/12(木) 14:14:34.28 ID:renYLELNM.net

セルの組み合わせを検索したいんですがfind関数のAND使うしか無いですかね？
A1セルかつB1セルの値をC,D列から検索するような事をしたいです。

939 ：デフォルトの名無しさん ：2020/03/12(木) 15:35:29.52 ID:+5QmAI+3r.net

みなさんが使ってるパソコンのスペック教えて下さい
できれば機種もおながいします

940 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 4d7c-9blg)：2020/03/12(Thu) 19:36:43 ID:RTn0fWyO0.net

>>938
1セルずつ自分で調べる

941 ：デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM4a-A9/a)：2020/03/12(Thu) 19:42:45 ID:kpCmVf8sM.net

>>939
そんなの知って何がしたいんだよ

942 ：デフォルトの名無しさん (ｱｳｱｳｸｰ MM51-55Jx)：2020/03/12(Thu) 20:56:37 ID:okuX4gckM.net

>>938
ドクターゲロに聞く

943 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 0242-gN7l)：2020/03/12(Thu) 21:04:05 ID:2HpOUvGf0.net

>>938
AB列の値を結合した検索用の列を追加すればいいんじゃね

944 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 858a-JgDO)：2020/03/12(Thu) 21:42:19 ID:eUhuAVRD0.net

>>941
大喜利。
MMXペンティアムとかボケろってことでは?

945 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 5102-CfvC)：2020/03/12(Thu) 22:03:09 ID:R0C6kYZh0.net

じゃあ、CyrixMII 233MHzぅ！

946 ：デフォルトの名無しさん ：2020/03/12(木) 22:56:49.72 ID:nToT5DGB0.net

datファイルやtxtファイル読んで配列に入れたい場合って、EOFまで一行ずつ読んで配列要素をredimするのがキレイで分かりやすい？

947 ：デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MM8d-drUO)：2020/03/12(Thu) 23:24:55 ID:renYLELNM.net

>>943
ありがとうございます
セルをグループ化するオブジェクトがあるかと思ったのですが、皆さんの反応見るとやり方工夫するしか無さそうなのが分かりました…

948 ：デフォルトの名無しさん ：2020/03/12(木) 23:52:42.43 ID:RTn0fWyO0.net

>>946
一括で読んでsplitする手もある

949 ：デフォルトの名無しさん ：2020/03/13(金) 00:22:47.36 ID:wWT1UGjTr.net

みんなどうやって勉強したの？
どく学？

950 ：デフォルトの名無しさん ：2020/03/13(金) 00:28:32.32 ID:ZeWzgGw60.net

他の言語やってれば独学で（も）行けるが
もし始めてなら入門書読んだ方が早いかも

951 ：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr91-tJbe)：2020/03/13(金) 00:38:00 ID:/vlIPRjer.net

>>950
サイトで調べてやろうかと思ったけどなかなか大変そうなので買って読んでみます！ありがとうございます！

952 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sac5-pUvF)：2020/03/13(金) 03:28:46 ID:OcgrooQ3a.net

>>949
もう20年以上前だがな

953 ：デフォルトの名無しさん ：2020/03/13(金) 07:21:17.73 ID:8ov/WEIe0.net

インプレス『できるExcelマクロ＆ＶＢＡ』他、期間限定で全文公開
https://book.impress.co.jp/items/tameshiyomi

954 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sac5-Syvm)：2020/03/13(金) 09:45:24 ID:S934/UwJa.net

VB.NET 廃止か
まさかVBAより先に死ぬとはな

955 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ed8e-TDt8)：2020/03/13(金) 11:43:51 ID:hr/TjqNF0.net

>>954
ソースどこ？

956 ：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr91-tJbe)：2020/03/13(金) 11:44:52 ID:ojnGj1Dgr.net

>>953
これは電子書籍無料ダウンロードはできないのね
見るだけか

957 ：デフォルトの名無しさん ：2020/03/13(金) 12:07:27.45 ID:ZeWzgGw60.net

>>953
いいね！

>>954
ソース？

958 ：デフォルトの名無しさん ：2020/03/13(金) 14:33:35.87 ID:DsczgAs80.net

https://devblogs.microsoft.com/vbteam/visual-basic-support-planned-for-net-5-0/
今後、Visual Basicを言語として進化させる予定はありません。
言語の変更を必要とする.NET Coreの将来の機能は、Visual Basicではサポートされない可能性があります。
プラットフォームの違いにより、.NET Framework上のVisual Basicと.NET Coreにはいくつかの違いがあります。

959 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b901-FfQu)：2020/03/13(金) 15:39:53 ID:yxSDhoD50.net

>>956
画像ファイル1ページずつならできないわけじゃないけど面倒やね
例えばクロームのデベロッパーツール使うと

960 ：デフォルトの名無しさん ：2020/03/13(金) 16:28:43.22 ID:hr/TjqNF0.net

廃止じゃないじゃん
馬鹿は死ねよ

961 ：デフォルトの名無しさん ：2020/03/13(金) 18:21:15.27 ID:cgyHyg3GM.net

>>960
死ぬのは、スレ違いネタに必死になってるおまえの方だよ

962 ：デフォルトの名無しさん ：2020/03/13(金) 23:23:36.16 ID:VPbZTknR0.net

いやいやお前だろ

963 ：デフォルトの名無しさん ：2020/03/13(金) 23:39:30.54 ID:sLWP0xGH0.net

わかった！オレがしぬ！

964 ：デフォルトの名無しさん (ﾜｯﾁｮｲ c633-ioXh)：2020/03/14(土) 09:26:33 ID:cldo6UeB0.net

罰が当たってコロナに感染重症化しそう

965 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8549-rHbc)：2020/03/14(土) 09:28:47 ID:XOiIzQdu0.net

わかった！おれもしぬ！

966 ：デフォルトの名無しさん (ｱｳｱｳｳｰ Sac5-CfvC)：2020/03/14(土) 09:55:43 ID:8jJQrMy3a.net

はいはい！オレもしぬ！

967 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 0994-GmOQ)：2020/03/14(土) 16:27:40 ID:juE+caHb0.net

A列の数字に対してabc順に処理をしたいんですがどのような構文にすればいいでしょうか？
A B C
1 a d
1 b e
1 c f
2 g i
2 h j
3 k l

968 ：デフォルトの名無しさん ：2020/03/14(土) 17:03:17.53 ID:9mSKrJ1e0.net

>>967
abc順に進むカウンターでループ
BC列の各セルに対しfor eachループし、 カウンターと一致したら同行A列の数字に対して処理を行う

969 ：デフォルトの名無しさん ：2020/03/14(土) 17:48:23.61 ID:juE+caHb0.net

>>968
すみません説明が悪かったです
A列を組としてB列を男C列を女としたときに
1組の男、1組の女、2組の男、2組の女‥‥の順でそれぞれ上から処理する形です

970 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 2eba-ioXh)：2020/03/14(土) 18:22:21 ID:nT2WeRIi0.net

>>967の例で言うと
1-a (B1)
1-d (C1)
1-b (B2)
1-e (C2)
1-c (B3)
1-f (C3)
の順に処理したいって事？

971 ：デフォルトの名無しさん (ﾜｯﾁｮｲ feca-FfQu)：2020/03/14(土) 18:47:53 ID:7lWVnCph0.net

オレ： >>968すげぇ！　>>967が言ってる意味分かるんだ！！
オレ： >>969？、組？男？女？　964を見てそれを想定するの、人類にはムリだよ…
　　　で？　結局「処理」って何なん？
オレ： >>970すげぇ！　さっぱり分からん！！

972 ：デフォルトの名無しさん ：2020/03/14(土) 18:53:08.37 ID:JrGvwLlh0.net

アルファベット順だろ
A列がソートされてるんならIFで一個下と比較すりゃいいだろ
されてないならソートしろ

973 ：デフォルトの名無しさん ：2020/03/14(土) 18:53:46.16 ID:wiK5yt+U0.net

>>971
わかる
エスパー

974 ：デフォルトの名無しさん (ﾜｯﾁｮｲ ed8e-TDt8)：2020/03/14(土) 19:24:58 ID:JhfhrpV40.net

馬鹿は自分頭の中で整理できないから馬鹿なんだよな

975 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 2eef-drwQ)：2020/03/14(土) 19:50:52 ID:9mSKrJ1e0.net

>>969
1((a,b,c),(d,e,f)),2((g,h),(i,j)),3((k),(l)) かな
どうも、アルファベット順というのも座標の説明に使っただけで、それでソートするってわけでもなさそうだね
組もごちゃ混ぜになってるわけでもないっぽいね
なら
上から下へ進むループを組んで、組が変わったら位置を記憶して、その範囲でB列、C列の順にループ

976 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 0242-gN7l)：2020/03/14(土) 19:54:23 ID:E0DYL6Pb0.net

すげーよな
昇順になってんだから頭から順番に処理すりゃいいんじゃね？としか考えつかない

977 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 0994-GmOQ)：2020/03/14(土) 21:29:14 ID:juE+caHb0.net

>>975
できました
ありがとうございます

978 ：デフォルトの名無しさん：2020/03/14(土) 21:35:30.58 ID:ZtUBAZXIh

【公開】ぶっちゃけ、動画編集はかなり儲かる件【チャンスありすぎ】
https://www.youtube.com/watch?v=jSMi8qM95Xk
【超入門】YouTubeの動画編集で「月５万円」を稼ぐ方法【徹底解説】
https://www.youtube.com/watch?v=VfItWZ2PXVY
動画編集者が忙しいわけがない。めちゃくちゃラクな仕事だよ。
https://www.youtube.com/watch?v=z5MwL8gedNQ
【体験談】素人が映像クリエイターになった方法。
https://www.youtube.com/watch?v=6v9T0lBg_f0
SONY α6400でCinematicなVlog撮ってみた。【福島Vlog】
https://www.youtube.com/watch?v=3_XBZ6d8ghE
【2020冬版】VLOGやYouTubeするならこのカメラ５選！！【カメラ・映像初心者必見！】
https://www.youtube.com/watch?v=E1dQaugN96M
【最新副業】時給5000円以上も狙える「サムネイル制作」！
https://www.youtube.com/watch?v=nqlDb_AWUKo
ブログ・アフィリエイターをやめて動画編集者になった理由　メリット・デメリット・稼ぎ方を徹底解
https://www.youtube.com/watch?v=EyOga8qn6Xs

979 ：デフォルトの名無しさん ：2020/03/14(土) 21:46:30.89 ID:uUhF8jFda.net

別のブックのVBAをRUNしたらMsgBoxが出てきてボタンをクリックしないといけなくなったんですが、
VBAでボタンをクリックする方法はないでしょうか。
その別のVBAの方は修正したくないので。

980 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b901-AGez)：2020/03/14(土) 22:44:44 ID:2hmQ2yxV0.net

sendkey enterでええんじゃね

981 ：デフォルトの名無しさん ：2020/03/14(土) 23:46:23.57 ID:1CTohHuR0.net

タッチディスプレイでエクセルドロップダウンリストが選択しにくいのでVbaでユーザーフォームで
ドロップダウンリストを全部表示させて選択式にしたいんだけど何か良い方法ありますか？

982 ：デフォルトの名無しさん (ﾜｯﾁｮｲ b901-R/wk)：2020/03/15(日) 01:41:25 ID:B9oF4/gh0.net

VBEの各種ウィンドウ(プロパティウィンドウとかローカルウィンドウとか)を
マウスでドラッグすると、ウィンドウの枠がマウスポインタの動きから
遅れて動き、ウィンドウの枠がチラつくのは自分だけですか？
CPU使用率は10％未満なのでスペックの問題ではないと思います。
OSはWin10でエクセル2010の環境です。

983 ：978 (ﾜｯﾁｮｲ b901-R/wk)：2020/03/15(日) 01:50:40 ID:B9oF4/gh0.net

>>982
メモリ使用率は50%未満です。

984 ：978 ：2020/03/15(日) 03:47:53.03 ID:B9oF4/gh0.net

すいません。意味が分かりにくいので再投稿します。

VBEの各種ウィンドウ(プロパティウィンドウとかローカルウィンドウとか)を
マウスでドラッグすると、そのウィンドウの枠がチラつきながら
マウスポインタよりも目に見えて遅れて動きます。
これは直すにはどうしたら良いでしょうか。
CPU使用率は10％未満でメモリ使用率は50%未満なので
スペックの問題ではないと思います。
OSはWin10でエクセル2010の環境です。

985 ：デフォルトの名無しさん ：2020/03/15(日) 07:14:17.59 ID:DNgNcsNnd.net

仕様なので気にしない事

986 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 2eef-drwQ)：2020/03/15(日) 07:51:34 ID:3dklKXuL0.net

>>981
ドロップダウンじゃない方のリストボックスを使う
ユーザーフォームにこだわらなければ、空欄にリストの内容を表示して、イベントで拾ってもいいと思う

987 ：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr91-lt+r)：2020/03/15(日) 14:54:37 ID:0UhNKPF0r.net

（インクの開始）とかをマクロボタンに登録可能？
各機能をマクロボタン化したいけど、どの機能がどのマクロか探しても出てこない…

988 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 2eba-ioXh)：2020/03/15(日) 15:25:04 ID:/MmP9RhE0.net

これ？
With Application.CommandBars
　If .GetEnabledMso("InkingStart") = True Then
　　.ExecuteMso "InkingStart"
　End If
End With

989 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 85da-drwQ)：2020/03/15(日) 17:52:47 ID:LHwp9FeQ0.net

描画にインク機能があるが、再生が無い。
2019なのに何故?

990 ：デフォルトの名無しさん (ｽｯﾌﾟ Sd02-LpqU)：2020/03/15(日) 17:56:02 ID:ro5SoUspd.net

>>987
まあ回答じゃないけど、その場で
Dim cb As Commandber
Dim ctl As CommandbarControl
For Each cb In Application.Commandbars
Debug.Print cb.Name
For Each ctl In cb.Controls
Debug.Print " " & ctl.Name
Next
Next
的なのを実行して調べるな。(出先なのでExcel触れないから間違ってるかも。NameはCaptionか?)
大量に出てくるからDebug.Printじゃ間に合わないだろうから、GUIにしてリストボックスとかにするのが現実的。

991 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 8279-AXJv)：2020/03/15(日) 23:43:09 ID:KOSOM8NC0.net

>OSはWin10でエクセル2010の環境です。
これだよ
2013以上にすると直るよ

992 ：デフォルトの名無しさん (ﾜｯﾁｮｲ e5ce-drwQ)：2020/03/16(月) 09:42:32 ID:zMoP23Lv0.net

Excelの内部構造が大幅に変わったのは2017からじゃなかったか

993 ：デフォルトの名無しさん ：2020/03/16(月) 11:24:29.57 ID:DJ4MbV7t0.net

2013じゃね

994 ：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr91-lt+r)：2020/03/16(月) 17:48:16 ID:Ehy6Otktr.net

>>988
タッチパネルだとエラーがでたり、何も動かなかったりするね…

995 ：デフォルトの名無しさん (ｵｯﾍﾟｹ Sr91-lt+r)：2020/03/16(月) 17:49:06 ID:Ehy6Otktr.net

>>988
でもありがとう
お礼書いてなかった

996 ：デフォルトの名無しさん ：2020/03/16(月) 20:29:35.60 ID:YT6hS8mka.net

>>979-980
待ちになったままsendkey の行が処理されないですわ

997 ：デフォルトの名無しさん ：2020/03/16(月) 20:57:04.54 ID:G4gOAdERd.net

>>996
されるわけない。
マルチプロセスにすべし。

998 ：デフォルトの名無しさん ：2020/03/16(月) 21:45:49.75 ID:YT6hS8mka.net

>>997
こんな感じか
'CreateObject("Excel.Application")を宣言し変数を作成します。 Set myApp = CreateObject("Excel.Application") '以下のコードがエクセルを別プロセスで開くための肝になる点です。 myApp.Workbooks.Open "開く対象のファイルのフルパス"　'

999 ：デフォルトの名無しさん (ﾜｯﾁｮｲ d22d-drUO)：2020/03/16(月) 23:12:55 ID:cMwINrzG0.net

コピーした行を挿入したいのにpasteやらDestination:=Rowsやらinsertやら試してもダメだったけどPasteSpecialしたら通った
よくわからん

1000 ：デフォルトの名無しさん ：2020/03/16(月) 23:46:26.48 ID:ZHCf4FTc0.net

pasteやらDestinationじゃそりゃ出来んだろう

1001 ：デフォルトの名無しさん ：2020/03/17(火) 07:10:46.51 ID:fnLz6KMUr.net

>>990
よくわからなかった

1002 ：デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MMd2-drUO)：2020/03/17(火) 09:07:31 ID:KpY/Lzz/M.net

>>1000
そうなの？解説ページ見たんだけどな
ほかに行貼り付けする記述ってあります？

1003 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 09e6-oTi3)：2020/03/17(火) 13:21:49 ID:4wOPps0G0.net

Ｅｘｃｅｌ×Ｐｙｔｈｏｎ最速仕事術
マクロはもう古い！

1004 ：デフォルトの名無しさん (ﾜｯﾁｮｲ 02a5-5LgE)：2020/03/17(火) 13:36:34 ID:ybHHyXnP0.net

excelはエディタがどうにかならんのか？

1005 ：2ch.net投稿限界：Over 1000 Thread

2ch.netからのレス数が1000に到達しました。