Excel VBA 質問スレ Part51

2017/11/08(水) 11:26:30.13

スレ立ての際は一行目に
!extend:checked:vvvvv:1000:512
と入れてスレ立てして下さい

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

※関連スレ
VBAなんでも質問スレ Part2
http://mevius.2ch.net/test/read.cgi/tech/1432173164/
Access VBA 質問スレ Part1
http://mevius.2ch.net/test/read.cgi/tech/1328536426/
Excel総合相談所 126
https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/

※前スレ
Excel VBA 質問スレ Part50
http://mevius.2ch.net/test/read.cgi/tech/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured 👀
Rock54: Caution(BBR-MD5:0be15ced7fbdb9fdb4d0ce1929c1b82f)

2017/12/23(土) 08:11:12.55

>>681
お・・これはいけそうです
こういう使い方があるんですね・・・
作業を先に進められそうです
ありがとうございました

2017/12/23(土) 10:35:36.95

フォームコントロールボタンの文字の色を変えたいんだけど
セレクトしない方法はないのですか？

Sub test01()
　n = Worksheets("Sheet1").Shapes("Button 1").Name
　Worksheets("Sheet1").Shapes(n).Select
　Selection.Font.ColorIndex = 3
End Sub

2017/12/23(土) 10:51:51.14

フォームコントロールボタンの文字の色を変えたいんだけど
セレクトしない方法はないのですか？

Set n = Worksheets("Sheet1").Shapes("Button 1")
　n.Font.ColorIndex = 3

みたいな？

2017/12/23(土) 13:25:10.14

シート上のボタンならtoggleにしなくてもモジュールレベルのクリックフラグ変数で管理できねーか？

2017/12/23(土) 13:35:38.33

>>685
出来合いのものを、わざわざ回避する利点は？

2017/12/23(土) 15:32:28.22

>>686
いや、最初コマンドボタンだったからコマンドの方がいいのかなって思っただけ
別に必要無いなら必要無いでいいし

2017/12/23(土) 18:23:21.18

>>684
逆に何でセレクトしなきゃならんのかが分からん。
普通セレクトなんてしないだろ。

2017/12/23(土) 18:24:04.16

すまん。
>>683向けね。

2017/12/23(土) 19:38:10.94

>>683
Worksheets("Sheet1").Shapes("Button 1").TextFrame.Characters.Font.Color = vbRed
または
Worksheets("Sheet1").Buttons("Button 1").Font.Color = vbRed

SelectするとButtons("Button 1")をオブジェクトとしてSelectionに持つので
Selection.Font.Color = vbRed　でいける
一方、ShapesはFontオブジェクトをもっていないので
Fontオブジェクトを持っているヤツまで掘り下げてかなければダメ

ということだと思う。

2017/12/23(土) 19:53:54.32

>>690
直感的な説明だが、オブジェクトがオブジェクトを持つという表現は間違い
オブジェクトが持つのはあくまでメソッドとプロパティからなるメンバで、いわゆる下位オブジェクトにはメンバを介してアクセスしてるだけだからな

2017/12/23(土) 20:15:31.85

>>690
マクロの記録でやってたので。1行で可能なのですね。
TextFrame.Characters.Font.Colorでググったら出てきました。
ありがとうございました。

2017/12/23(土) 20:55:59.08

ちなみにButtonsとかCheckBoxesとかは隠しプロパティ
ヘルプにもでてこないからな

なんで隠してあるのかねぇ

2017/12/24(日) 00:26:44.47

>>692
分かるよ。
そういう人がとても多いから。

でも、殆どの処理はセレクト無しで書ける。
個人的にはセレクト無しで書けない場合でも何とかセレクトせずに書けないかを考える。

2017/12/24(日) 00:45:00.70

まあ、大多数の用途では得られるメリットが少なすぎてSelectを消す意味は薄いけどな

2017/12/24(日) 01:23:50.46

オブジェクトのプロパティにアクセスする処理でSelectメソッドはなるべく使わない
コードの実行中にデバッグ作業を行ったときなどに予期しないオブジェクトが選択されて、アクセスしたいプロパティにアクセス出来ずエラーになることがよくあるからね
Rangeオブジェクトを指定していたはずがShapeオブジェクトやOLEObjectオブジェクトを選んでいたりとか

2017/12/24(日) 01:43:15.08

Selectは必ず代替手段があるから、範囲選択してユーザーに注意を促すとかでなけりゃSelect使う事に疑問を持った方がいい。

2017/12/24(日) 06:22:03.30

起動中のIEからさらに別窓で開かれるフォーム入力用窓のIEオブジェクトを取得して操作したいと考えているのですが、
Function hoge() As WebBrowser
Dim tmp As Variant
For Each tmp In CreateObject("Shell.Application").Windows
If TypeName(tmp.document) = "HTMLDocument" Then
Set hoge = tmp
Exit Function
End If
Next tmp
End Function
のようにShellを使ってもIEオブジェクトを取得できなくて困っています

Set objIE = MAGIC(hWnd)
のような形で、ハンドルからIEオブジェクトを取得する方法は無いでしょうか
他に方法があれば、ハンドルから取得する方法にこだわりません
ただし、諸事情により外部からライブラリをダウンロードしてきて使用する、といったことはできないです

2017/12/24(日) 08:15:14.57

>>698
別窓かどうかの判定が抜けてる
LocationNameとかLocationURLあたりを調べないと

2017/12/24(日) 11:59:50.98

IEが複数あるかもしれないのに見つかったら抜けちゃうコードで何かおかしいと感じないの?

2017/12/24(日) 15:06:20.77

Dim u As Long
Range("A1", "I5").Value = u
u = Round(u, 4)

四捨五入したいのに全部ゼロになる！

2017/12/24(日) 15:18:15.83

>>701
uには何が入るの？

2017/12/24(日) 15:18:38.84

てか、そりゃゼロになるだろw

2017/12/24(日) 15:27:49.11

何かが逆でワロタ。

2017/12/24(日) 15:36:05.76

>>702
A1からI5のセルを桁指定したいんだ。
どうすればいいか教えてくれ

2017/12/24(日) 15:53:02.16

>>705
A1からI5の範囲に初期化したばかりのu(=0)を入れてる。
入れるのは逆で、入れた後で桁変更して戻す必要もある。
最初からuを使わずに自分自身に桁変更した自分を入れる方が普通かな。

そもそも見た目だけ桁指定する方が一般的だと思うが。

2017/12/24(日) 15:54:56.74

桁指定したいならexcel vba 書式設定
でググりなさい

2017/12/24(日) 15:56:16.29

というか、値が複数(配列)だから一発でいけないだろ。

2017/12/24(日) 15:56:53.27

それぞれの行のB列からC列を引きたいのですが、下のコードだと
すべてB2-C2となってしまいます。
どうすればよろしいかご教示ください。

Dim i As Long
Dim Lrow As Long
Lrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To Lrow
Cells(i, "D").Formula = "=B2-C2"
Next

2017/12/24(日) 16:09:57.86

>>709
数式書き込んでるループ内の処理の右辺を
"=$B" & i & "-" & "$C" & i
にするだけ
折角行インデックスをiで指定してループ回してるんだから使わないと

この程度のことだったらVBA使わなくても組み込みのテーブル機能で実現できるけどね

2017/12/24(日) 16:11:04.02

>>709
Sub foo()
Cells(2, 4).Formula = "= B2 - C2"
Cells(2, 4).Copy
Lrow = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(2, 4), Cells(Lrow, 4)).PasteSpecial
End Sub

2017/12/24(日) 16:13:21.90

>>710>>711

ありがとうございました。

2017/12/24(日) 17:56:35.14

>>699-700
コードはあくまでも例で、実際はURLや文書内の文字列から判定しています
今回問題なのは、CreateObject("Shell.Application").WindowsをFor Eachで全要素を調べても、要素にそもそも含まれていない点です
IEの子窓として存在しており、タスクマネージャーで調べるとプロセスも存在するのに、IEオブジェクトを取得できません
しかし、WindowsAPIのFindWindowを用いるとハンドルの取得は可能だったので、
Set objIE = MAGIC(hWnd)のような形でハンドルからIEオブジェクトを取得する関数を作れないか質問させていただきました

2017/12/24(日) 19:48:46.67

Excel2010です
以下のコードを実行すると、"$A$2"が表示されます。
セル範囲に添字0を付けた場合、セル範囲の先頭セルが参照される
（この場合B2）と思い込んでいたのですが、私の誤りでしょうか？

MsgBox(worksheets(1).range("B2:C3")(0).address)

2017/12/24(日) 21:16:40.55

0　じゃなく　1

2017/12/24(日) 22:01:25.06

>>715
ありがとうございます
OffSet()だと原点がゼロなので
そういうのと混同していたかも知れません

2017/12/24(日) 22:44:17.96

Dim FSO As Object
Set FSO = CreateObject("scripting.filesystemobject")
Dim folder As Object
Set folder = FSO.getfolder(ファイルパス)
Dim f As Object
　For Each f In folder.Files
　　If f.Name Like "*" & Month(Date) & "*" Then
　　　’ここでファイル名を翌月に変えてコピーを作成したい
　　End If
　Next

ファイル名は「AAA〇〇月BBB」で統一(ABは文字列で〇〇は月を二桁表示)
抽出できた今月ファイルをコピーして名前の〇〇を翌月に変更したもの(翌月ファイル)を同フォルダ内に作成したいです
コピー元ファイル名を継承して一部だけ変更する良い方法が見つからなかったので教えてください

2017/12/24(日) 23:29:24.13

>>712
そのセル全部のRangeに対して"=B2-C2"でいける。

2017/12/25(月) 00:16:31.32

>>717
Sub foo(FolderPath As String)
Dim FSO As New FileSystemObject
Dim c As New Collection
Dim Folder As Folder
Dim File As File

FindWord = "*" & Month(Date) & "*"
Set Folder = FSO.GetFolder(FolderPath)
For Each File In Folder.Files
If File.Name Like FindWord Then Exit For
Next
If File Is Nothing Then Exit Sub

s = Split(File.Path, "\")
For i = LBound(s) To UBound(s)
If s(i) Like FindWord Then
e = Split(s(i), ".")
s(i) = Month(DateAdd("m", 1, Date)) & s(1)
End If
FilePath = FilePath & s(i)
If i < UBound(s) Then FilePath = FilePath & "\"
Next

FSO.CopyFile File.Path, FilePath
End Sub

試してないけどこんな感じかなぁ。

2017/12/25(月) 08:06:21.04

>>717
fileName = Replace(fileName,○○,××)

2017/12/25(月) 08:07:54.57

ああ、AAAとBBBに数字がない前提じゃないとダメだな

**717** (ﾌﾞｰｲﾓ MMff-pp+B) · 2017/12/25(月) 12:59:33.91

>>719>>720回答ありがとうございます
まだ試せていませんが
AAA○○月BBBじゃなくて
AAABBB○○月にした場合もう少し簡単に記述出来ますかね？
ちなみにABに数字は含まれてないです

2017/12/25(月) 16:18:43.87

んんんんあああああああああああああああああああああああああああああああああ

2017/12/25(月) 16:44:33.34

コピーしてファイル名置換するだけでしょ？
フォルダもすでに取得してるなら
fso.copyfile file.Path,folder.Path & "\" & Replace(file.Name,"○○","××")
だけで行けるんじゃね

2017/12/25(月) 17:30:49.11

UserFormに「次へ」のボタンをつくり複数のUserFormを次々と経由することで対話式に値を取得していきたいと思っています
誤った選択をしてしまった場合に備え、戻るボタンも作るとします
○UserForm1の「次へ」ボタンのクリックイベントに以下のように記述しました
Me.Hide
UserForm2.Show
○そしてUserForm2の「戻る」ボタンのクリックイベントには以下のように
Me.Hide
UserForm1.Show

うまくいったと思いきや、一度１に戻ってからもう一度UserForm2を再表示させると
UserForm2のinitializeに書いた処理が実行されません。

仕方が無いので１の次へに
UserForm2.Show
Unload Me
と書いてみると、今度は２から戻る時に、「フォームは既に表示されています。モーダルに表示できません」と出ます
２の「戻る」には上に書いたようにMe.Hideがあるにも関わらずこのエラー表示
解決法はありますか？

2017/12/25(月) 17:46:45.39

>>725
ユーザーフォームの行き来はめんどくさいしスパゲティになりがちだからやめた方がいいと思う
というのはさておき、initializeじゃなくてactivateイベントにしてみたらどうかね

2017/12/25(月) 17:48:18.57

いやいや何か間違えてる
修正

仕方が無いので２の「戻る」に
UserForm1.Show
Unload Me
と書いてみると、今度は１から２にもう一度行こうとすると、「フォームは既に表示されています。モーダルに表示できません」と出ます
ついでにとにかくhideは避けてすべてunloadにしてもやはり２→１の段階で同じアラート
解決法はありますか？

2017/12/25(月) 17:48:59.15

>>726
ありがとうございます
調べてみます
分からなかったらまた書きますのでお願いします・・・

2017/12/25(月) 18:01:10.24

>>726
うまくいったようです
3時間ほど解決法が見つからず頭抱えてました
感謝です

2017/12/25(月) 22:53:06.92

sub test()
'マクロ起動用エクセルがあるフォルダ内のフォルダ名の取得
Dim strPattern As String
Dim strFolder As String
strPattern = "C:\xxxxx"
strFolder = Dir(strPattern, vbDirectory)

Do While Len(strFolder) > 0
If GetAttr(strPattern & strFolder) And vbDirectory Then
If strFolder <> "." And strFolder <> ".." Then 'if文始まり
'各フォルダ内にあるエクセルファイル名の取得
Dim FSO As Object
Set FSO = CreateObject("scripting.filesystemobject")
Dim folder As Object
Set folder = FSO.getfolder(strPattern & strFolder)
Dim f As Object
For Each f In folder.Files
If f.Name Like "*" & Month(Date) & "*" Then 'ファイルパスに今月が含まれている場合
FSO.copyfile f.Path, folder.Path & "\" & Replace(f.Name, Month(Date), Month(DateAdd("m", 1, Date)))
Debug.Print f.Name
End If
Next
End If 'if文終わり
End If
strFolder = Dir()
Loop
End Sub

717ですが上の記述で一応期待通りの動作をしてくれました
皆さんありがとうございました
ただこれだとファイル名に１～１２の数字を使えなかったりエクセル以外も取得できるのでまだ改良が必要そうです

2017/12/25(月) 23:30:15.25

>>730
ファイルの種類に関しては、ループ処理の冒頭でFSO.GetExtensionName(f.Path)の戻り値を調べて処理を分岐させるようにすれば、狙った種類のファイルだけを処理できるようになると思うよ

2017/12/25(月) 23:37:14.60

ググったのですがどうしてもわからないので教えてください

【環境】Windows10、Excel2010
【不具合症状】新規コードの作成ができない

新規bookを作成し、VBEを起動した際、通常はプロジェクトウィンドウに
「Sheet1-3」が表示されるかと思いますが、真っ白なまま何も表示されない状態です。
メニューの「挿入」をクリックしても、標準モジュールがグレイアウトになってしまい、
新規コードの作成が行えない状態です。

ITに相談しても初めての事例とのことでわかりませんでした。
コンパネからのofficeの修復も行いましたが改善されません。
マクロのセキュリティは「全て有効」で設定されています。
xlsm形式で保存もしてみましたがダメでした。
PC再起動も試してみました。

同一PCで、既存作成マクロの実行は行えます。
既存マクロのVBEを起動した際、プロジェクトウィンドウやコードウィンドウは
普通に見えますが、コードウィンドウで1文字でも編集すると、F5実行時に
「ファイルが見つかりません」とのエラーが出ます。ステップ実行でも同じです。
編集は例えコメント行でも同じエラーが出ます。

新規作成は全てにおいて不可です。
自動記録をしようとすると「マクロが記録できませんでした」とエラーが出ます。
マクロの作成ボタンは押せますが、押してもコードウィンドウが起動しません。

新規作成と編集が制限されているようなのですが、どこから変更するのかが
どうしてもわかりませんでした。もしわかる方いらしたら教えていただけないでしょうか？

スレチであれば、該当スレッドに誘導していただけると助かります。
よろしくお願いします。

2017/12/26(火) 01:59:52.47

>>732
エクセルのレジストリ削除してみてもダメ？

2017/12/26(火) 06:55:25.36

>>732
そのマシンに新規ユーザーつくって現象が発生する？
テンポラリやら消したら直るかもしれん
あとセキュリティ対策ソフト切って試すとか

2017/12/26(火) 06:58:32.09

>>717
「01月」というファイル名のコピーが、「02月」として、同じフォルダに入れるのか

フォルダ内に、「01月」「02月」があるとして、
この状態で、もう一度、同じ事をするなよ！w

設計として、同じフォルダに入れるのはおかしい。
異なるフォルダに入れるべき

わかりやすいように投稿する時は、名前欄に、717 と入れてくれ

2017/12/26(火) 07:54:39.17

>>733
>>734

732です、レスありがとうございます。

最悪、officeの再インストールも覚悟しています。
レジストリかも？とはITには言われましたが・・・・

新規ユーザーはまだ試していません。
セキュリティ対策ソフトはITの管轄なので、切れるかどうか不明ですが
聞いてみます。

こちらの書き込みは自宅からなので、次のレスが遅くなるかもしれません。
よろしくお願いします。

2017/12/26(火) 08:20:51.65

>>735
運用の話までは管轄外じゃね
あとは自分で考えりゃいいよ

2017/12/27(水) 09:27:07.83

>>719とか>>730とかのコードで意味わかんないところがいくつかある
（コードが間違ってるって意味じゃなくて、こっちの知識が足りなくて理解が追い付かないって意味です）
まず>>719は
なんでコレクションを宣言してるのか？
しかもなぜ宣言したのに使わないのか？
変数eは何のために使ってるのか？
ファイルのパスをsplitで分割してるけど、
ファイル名だったらinstrrevで\を探したほうが話が早いんじゃないか？
等々

>>730は
ループの中でdim使うのは大丈夫なの？
複数回宣言したらエラーになりそう
後、一番知りたいのが
If strFolder <> "." And strFolder <> ".." Then
これ、どういう意味なのか解説をお願いしたい
（書いてる人たちにケチつけてるんじゃなくて、本当に分らない事を教えて欲しいだけです）
どなたか教えてください、よろしくお願いします

2017/12/27(水) 09:45:06.41

>>738
コマンドプロンプトで cd .. って打ってみたら判る　
c:>test>test1> cd ..
親ディレクトリに移動する。つまり親フォルダの事

「.」　は「.」　カレントフォルダの事

2017/12/27(水) 10:22:00.13

寝ぼけて書いてたからめちゃくちゃだな^^;

c:\test\test1> というフォルダがあったとしてそこで
c:\test\test1>cd .. と打てば
c:\test> と親ディレクトリ（フォルダ）に移動する

2017/12/27(水) 10:45:52.46

>>738
ループ内でDimしてもエラーにはならないよ
その都度メモリが割り当てられるだけじゃないかな
フォルダ名の"."と".."は相対パスじゃなかったかな
一個上と二個上の親フォルダだったと思う
間違ってるかもしれないから調べてね

2017/12/27(水) 10:46:46.56

あ、間違ってたw
.がカレントフォルダで..がひとつ上の親フォルダね
すんませんな

2017/12/27(水) 10:48:05.37

あとsplitの問題に関しては読みやすさとか書きやすさじゃね
俺もよくやる
楽だからね

2017/12/27(水) 12:51:59.50

beforeStr = "あ12月い"

afterStr = beforeStr.sub(/\d\d月/) do |matched|
month = matched.to_i + 1
month = 1 if month == 13

sprintf("%02d", month)
end
puts afterStr

#=> あ01い

Ruby で、文字列を置換した。
こういう処理は、Ruby が良い。

PowerShell でも作ってみたが、簡単な置換方法がなかった。
置換時に、コールバック関数を取れる、sub のような関数が無かった

わかりやすいように質問者が投稿する時は、名前欄に、717 と入れてくれ

**744** (ﾜｯﾁｮｲ cf80-fDvV) · 2017/12/27(水) 12:58:13.04

間違っていたので、修正した

beforeStr = "あ12月い"

afterStr = beforeStr.sub(/(\d\d)月/) do |matched|
month = $1.to_i + 1
month = 1 if month == 13

sprintf("%02d", month) + '月'
end

puts afterStr #=> あ01月い

2017/12/27(水) 13:38:32.87

VBA勉強し始めて間もない時に組んだマクロに
replaceという名前のプロシージャを作りました
そのことはすっかり忘れてたのですが、最近になってそのマクロを手直しする必要があって
その中でReplace関数を使おうとしたらエラーが出る
おかしいなと思い調べてみたらSub replace()　を発見
プロシージャの名前を変えたら大丈夫かと思いきやなぜかどこかに何かが残っているようでエラーがでる
一旦そのモジュールを解放したらReplace関数は使えるようにはなりました
しかし、なぜかReplaceと打ってもreplaceとなる
replaceと打ってもそのままreplace
replaceをReplace関数と認識してくれてはいるものの、どこかに何かが残っている
他のブックでは起きないのでまぁそれほど支障はないものの、もし分かる方いらっしゃったら
どうすればいいか教えてください

2017/12/27(水) 13:47:19.08

Replaceで変数宣言してみ

2017/12/27(水) 15:20:29.55

>>746
大文字小文字は、現在開いてるコード全体で統一されてしまうからな。
変数でもプロシャージャでもいいから、定義し直すと内部で覚えてる大文字小文字が上書きされるぽ
この仕様のせいで、他人の書いたブック開いたまま修正保存するといつのまにか変わってたりする。
するとWinMergeとかでDIFFしたときにイラッ
独り言でした

2017/12/27(水) 18:43:06.62

プロシージャ外に書いたオブジェクトの寿命はいつまでなのでしょうか？
グローバル変数にオブジェクトを保存してそれをfunctionで返すシングルトンオブジェクトを作ったのですが、
プログラムが一度終了して再度起動した際もオブジェクトが残っており、ゴミデータでエラーが起きています。
一度ファイルを全て閉じるまでは残るものなのでしょうか？

2017/12/27(水) 18:55:21.26

>>749
グローバル変数ならエラーで止まるかブックが生きてる限りは生きてるんじゃね

**デフォルトの名無しさん** (JP 0H27-amUm) · 2017/12/27(水) 19:03:21.38

>>749
あとEndで止めると死ぬ

2017/12/27(水) 20:23:28.17

>>751
End なあ、せめて Class_Terminate()して欲しかった

2017/12/27(水) 20:40:54.92

>>732　です。

officeの再インストール試してみましたが
不具合解消せずでした・・・・無念

幸い既存マクロは動くので、新規作成と実行は
他のPCでやることにしました。

不具合はExcelだけで、Accessでは特に問題ありませんでした。
一応ご報告まで。

2017/12/27(水) 20:55:52.26

>>752
てか、マクロ終わったら初期化すりゃよくね？
できない仕様なの？

2017/12/27(水) 21:08:27.21

>>754
マクロ終わったら誰が初期化するん？

2017/12/27(水) 23:24:01.01

>>753
マクロの記録から操作を記録すると
標準モジュール作成される？

2017/12/27(水) 23:29:35.39

>>751

Endだとなにがまずいのでしょうか

2017/12/28(木) 02:02:28.11

>>757
Globalで保持していると想定していた変数がいつのまにかクリアされていて想定外の動作をおこし痛い目にあったことがあります。
調べてみたら、エラー発生時またはEnd通過時にGlobal変数の寿命が尽きるようで、、
それ以来、Global変数もEnd Statementも避けています。
記憶が必要な場合は、Cell値やValidation値またはDocumentProperty等を使うようになりました。

**デフォルトの名無しさん** (JP 0H96-FiVz) · 2017/12/28(木) 02:45:31.50

VBA初心者です
2つのセルがイコールになるように別のセルの値を変化させるというVBAソルバを作成したいのですが、エラーばかりで全く進みません・・・
現在は7行目から10行目まで構文エラーが出ています。
どなたかご教授願います・・・

Sub Solver()
i = 1
Do Until i = 313
'-------------------------------------------
Application.DisplayAlerts = False
SolverOk SetCell:="K" & i, ByChange:="J" & i
SolverAdd cellRef:=Range("K1:K313"), _
Relation:=2, _
FormulaText:=Range("L1:L313"), _
Application.DisplayAlerts = True
'---------------------------------------------
SolverSolve
i = i + 1
Loop
End Sub

2017/12/28(木) 05:04:43.84

>>747
>>748
ありがとうございました。

2017/12/28(木) 08:06:18.47

>>755
マクロ終わったらオブジェクト破棄するんじゃダメなのかと言うことだが
まあダメな使用なんだろうけど

2017/12/28(木) 08:14:47.46

イミディエイトウィンドウにあるオブジェクトのことだよね

2017/12/28(木) 17:26:42.52

>>749,758
そもそもプログラムが終了ってどういう事をさしてる？
ホントにプログラムが終了すれば、すべての変数の内容は失われるよ
たんに実行するコードが無くなっただけではプログラムは終了していない

Endはプログラムを終了させるけど、エラー出ただけでは終了するとは限らない
デバッグで再実行や変数見たりできるのはプログラムは中断したけど終了してないから

**753** (ﾜｯﾁｮｲ 5aeb-RYVm) · 2017/12/28(木) 23:10:38.77

>>756

753です。

マクロの記録そのものができないのです。
記録しようとすると「マクロの記録ができませんでした」と
エラーが出てしまいます。

新規作成と編集が全て制限されているようです。
セキュリティは「すべて有効」で設定しており、
そこでの問題は無いと思うのですが・・・・

2017/12/29(金) 04:00:07.55

>>759
"_"　は次の行をつなげるためにつけたのだろうけど
Application.DisplayAlearts = True の前の行にも "_" が付いているから
何か貼り付け忘れか、間違って削除してしまったものがあるのでは

2017/12/29(金) 04:08:47.98

セキュリティーレベル一番高いとダメなんじゃね

2017/12/29(金) 07:22:34.45

>>732
あー、昔そんな事象に当たったことあるよ
原因は同じかどうかは分からんけど
俺の場合とんでもなく深い階層のフォルダに置いてたら
VBEのシートモジュールが青く表示されてコードが作成できなくなった

そのファイル、とりあえず浅い階層のフォルダや
どこかのサーバに置いているなら
クライアント側にコピーして内容確認出来る？

2017/12/29(金) 08:53:00.31

732、753です
皆様レスありがとうございます。

作成の不具合は、全くの新規Bookでも起こります。
既存マクロの場合は、コードの表示と実行は行えますが
編集が制限されています。

問題が発生してから、他のPCで新規作成したマクロを
該当PCで実行しようとしましたが、それはコードの表示すら
できませんでした。ファイルサーバー経由とかではなく
デスクトップ上に置いて実行しても同じです。

Accessでは特に問題ないので、VBAそのものではなく、
Excel単体の何かだとは思うのですが、皆目見当がつきませぬ。

2017/12/29(金) 10:57:41.44

>>765
>>759です
一部コピペして使ったので何か消してしまったのかもしれません・・・
確認してみます、ありがとうございます。

2017/12/30(土) 12:22:18.46

CreateObject("System.Collections.ArrayList")ってやったら
.NETのArrayListがVBAで使えてしまったんですが
これ隠し機能とかじゃなくて正式に使っていいんですよね？

2017/12/30(土) 13:25:09.57

前にも話題に上がったけど
.NETのほんの一部はVBAからも使える
リファレンスにも書いてあったような気がする

他で代替できるのでArrayListをわざわざ使うメリットはないということで
そのときは終わったと思う

2017/12/30(土) 15:32:35.43

>>771
参考にします。ありがとうございました

2017/12/30(土) 15:33:00.15

>>770
.Net Frameworkの機能でコンストラクタに引数を渡す必要のないものは使えるらしい
>>771
ArrayListは各種メソッドが揃ってるからコレクションより使いやすいんじゃね？キーを使わないなら
ただ遅いのがたまに傷

2017/12/31(日) 08:34:16.68

>>772
Windows APIだって使えるんだぞ？

2017/12/31(日) 08:58:37.79

VBAの保存方法について
バックアップどうしてますか？
VBAのマクロだと戻る釦聞かないし、バグって復旧するとマクロの個所全部消えちゃうので２つくらいのバックアップを別ファイルでとってあるんですけど皆さんはどうしてますか？
まだ素人なので思ったのと違う処理になって戻せなくなることがしょっちゅうあるので
バックアップは大事

**775** (ﾜｯﾁｮｲ de81-DSDK) · 2017/12/31(日) 09:02:17.31

>>775
戻る釦ってまるい矢印の奴ね

2017/12/31(日) 09:09:26.61

>>775
バージョン管理システム入れてないなら同じになるでしょ。
俺も同じくでファイル名_Ver nnn.xlsmと言うかたちで3世代別フォルダに保存してるけど
（時たま忘れたりする^^;

2017/12/31(日) 09:49:30.47

マクロ有りエクセルファイル自体にデータを入れて運用するのと、
データは別エクセルファイルにしてマクロ有りエクセルファイルでデータ入りエクセルファイルを操作するのと、
どっちがメンテナンスしやすい作り方だろうか？
いつも悩んでしまう

2017/12/31(日) 09:52:29.70

アドインマクロにしましょう

2017/12/31(日) 11:06:17.25

マクロのバージョン管理ってどうやってます？
インポートファイルを分けすぎると不便なのでshareFanction見たいなインポートファイルに使いそうな関数全部入れてますが、初心者なもので開発中に関数の引数や戻り値を変えたくなるような場面が多々あり
今までのshareFanctionと互換性が保てなくなりますが、引数と戻り値を修正した関数以外でバグを潰したような関数は最新を使用したいです。
今はコピペで対応してますが

2017/12/31(日) 11:27:58.03

個人なのか仕事なのか書かないと有効なレスがつかないのではないかな