Excel VBA 質問スレ Part52

■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん
垢版 |
2018/01/27(土) 20:25:05.67ID:Xe+uGT7T
スレ立ての際は一行目に
!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 VBA 質問スレ Part51
http://mevius.2ch.net/test/read.cgi/tech/1510107990/
2018/03/17(土) 12:28:23.68ID:zttMJW/5
当たり判定とヒットマークの位置関係だけあらかじめ決めておいて、あとはヒットした当たり判定のセル位置のアドレスなり座標なりからオフセット参照するだけじゃん
421デフォルトの名無しさん
垢版 |
2018/03/17(土) 12:53:01.02ID:0VMaqrOi
>>420
構うなや

どうせまた後出しで「その方法も考えたんですが
〜〜が〜〜だからそれではダメなんです。」とか
慇懃無礼にマウント取ってくるから
2018/03/17(土) 13:02:49.05ID:JhGe8NGg
マウントって簡単に言いすぎ
倫理をふりかざして人を委縮させようとする言動に限らないと
言葉の力がなくなってしまう
2018/03/17(土) 13:38:51.05ID:heA3uIoa
>>410
>>411
助かります。やってみます
2018/03/17(土) 14:18:21.64ID:7XiT0JZV
>>412
もしかして当たった位置が判らないということですか?
2018/03/17(土) 15:07:46.54ID:JHaB3/LC
>>412
へぇ、このスレでは珍しい質問だね。
あくまでひとつの方法としての提案だけど、
当たり判定が出来るということは攻撃範囲と体範囲って呼んでるけど、
それが重なったことは判定出来てるんだよね?

なら重なった範囲の中心にヒットマークを出すようにすればいいと思うよ。

つまりキャラAの右下セルよりキャラBの左上セルが
左上にあって、かつ
キャラAの左上セルよりキャラBの右下セルが右下にある場合、これがキャラが重なった「当たった」ことに該当するんだけど、
この状態からキャラAの右下セルからキャラBの左上セルの縦横それぞれの差分を出して
それを2で割ってキャラAの右下セルの縦と横にそれぞれ足してやれば求められるはず。

後は複数判定用の範囲を持ってるというところで
どの範囲を優先するかの優先順位をつけて。
頑張って下さいね。
2018/03/17(土) 22:00:46.63ID:plFeqth9
自演死ね
427デフォルトの名無しさん
垢版 |
2018/03/18(日) 01:02:38.92ID:5x2puHKk
教えてください。
別ブックを範囲(A10:B24)指定してコピーして
現在のブックA10をはじめとした範囲にペーストしたいのですが、
なぜか参照ブックをアクティブにした上で範囲指定ができません。

最初のブック・・・A.xlsm
参照ブック・・・nal.xls  参照シート:sheet10
参照ブックのデータ最終行・・・i (24が入っています)

Dim i As Integer

Workbooks("nal.xls").Activate
i = Worksheets("sheet10").Range("A10").End(xlDown).Row

Workbooks("nal.xls").Activate

Worksheets("sheet10").Activate

Range(Cells(10, 1), Cells(i, 2)).Select  ←RangeクラスのSelectメソッドが失敗しました。
Selection.Copy


どなたか助けてください。
2018/03/18(日) 03:11:59.88ID:Ml7D0I3C
複数シートでゴニョゴニョする際は
Worksheets("sheet10").Range(Worksheets("sheet10").Cells(10, 1), Worksheets("sheet10").Cells(i, 2)).Select
と略さずに書くといいよ
デバッグ中につい違うページ開いちゃうと後で泣きを見る
2018/03/18(日) 03:58:35.89ID:JrJJTzVM
Aブックに、BブックをOpenするコードが書いてあります。
困ったことにBブックが正常に開くこともあれば、
長時間たってもビジー状態が続き開かないこともあります。
これはAブックから開くときだけでなく、Bブックのアイコンをダブルクリックしても同様です。
そんなときでも、エクセルを強制終了した後にBブックを開くとなぜか問題なく開くことも多いです。

Bブックの問題を取り除くのが正しい方法なんでしょうが、とりあえずの対策として、
wb = Workbooks.Open(strPath & "\" & "B.xslm")
で、AブックがBブックをOpenした後に一定時間経過後にBブックの特定のセルの内容を読み取れなければ、
Bブックを強制的に閉じて、再度Bブックを開き直すというコードを書こうと思ったのですが、
wb = Workbooks.Open(strPath & "\" & "B.xslm") を実行すると、
Bブックが開くまでAブックのマクロが止まってしまい、Bブックのセルが読めるかどうか判定することができません。

どうしたらよいでしょうか?
2018/03/18(日) 04:24:15.80ID:/1Of5770
>>429
開けていないものを閉じろと言うのは無理ゲー
2018/03/18(日) 06:47:14.19ID:JFJ3EKTR
最初にタスクマネージャーで、
起動中のすべてのExcel を、強制終了させてから実行すれば?

たぶん、起動中のExcel が、そのブックをつかんでいるのだろう
432412
垢版 |
2018/03/18(日) 11:12:47.56ID:l25Pelu+
皆さん色々返答ありがとうございます。
>>420さんと>>425さんの意見を
参考にさせて頂きました。
特に>>425さんの案は取り入れてみたところ
範囲が大きいときでも小さいときでも
見た目いい位置に表示されしかも汎用的に
使えるようでありがたいです。
>>420さんの案は乱舞系必殺技のような
受けた相手の位置を補正しながら出す技に最適のようです。
ちょっと行き詰まったところだったので
非常に助かりました。ありがとうございました。
2018/03/18(日) 11:21:02.32ID:A1IN0XTG
>>432
VBA初心者でこのスレをたまにチラチラ見ているものですが
「EXCELで対戦格闘ゲーム」ってものがどういうものなのか全然想像できないです
(どうやったらそんなことできるの! てかどんな画面になるの!! 状態です)

もしよろしければ、何か雰囲気の掴めそうな画像か
もしくは、そういう人たちが作ったゲームのリンクなどを紹介していただけると嬉しいです
434427
垢版 |
2018/03/18(日) 21:11:28.30ID:5x2puHKk
>>428
お返事遅くなってすみません。
コード丸写しで略さずにかいたところ、うまく動きました。
エラーの前のbookとsheetをアクティブにしただけでは足りなかったようで。
勉強になりました。
ありがとうございました。
2018/03/18(日) 21:34:46.44ID:utQAsfrI
on
2018/03/18(日) 21:35:52.97ID:utQAsfrI
ontimeでopenするとかは?
2018/03/19(月) 07:21:13.16ID:We1Ev2gv
>>433
ちと古いけどこういうのがある

Excel VBA アクションゲーム作成入門 Excel 2007/2003/2002 対応
https://book.impress.co.jp/books/2686
2018/03/19(月) 20:14:20.80ID:uXl73OAC
>>437
紹介ありがとうだけど…、本だとやっぱりよく実感がつかめない…
でその本のタイトルで色々ググってみたら実際にゲームをやってる動画が出てきた

エクセルでスーパーマリオを作ってみた
http://www.nico video.jp/watch/sm12052293

Excelでこんなものが作れちゃうってすごい!(というか見てもなお信じられないが)
2018/03/19(月) 20:59:21.19ID:Lmqu9UWt
>>438
お前みたいな馬鹿には無理ってだけ
dll呼び出しできるから何でもやろうと思えばできる
440デフォルトの名無しさん
垢版 |
2018/03/19(月) 22:27:28.31ID:bkGJBs4p
スーパーマリオのDLLとかあるんか?
すげーなエクセルって
2018/03/19(月) 23:08:18.69ID:SfVA8M0M
>>440
DLLは自分でいくらでも作れるし、スーパーマリオもDLL化は可能だけど普通はそんなバカなことはやらない
2018/03/20(火) 00:08:55.57ID:w5UAsH4d
>>439
バカはお前
DLLなんていくら出来たところでゲーム作れるだけの知識がなければ何も出来ない
知ったかぶりしてないで死んどけゴミ
2018/03/20(火) 00:13:05.69ID:XeOK7PK4
>>442
作れる知識と作る意義を感じるかは別問題
馬鹿は死ねよ
2018/03/20(火) 01:20:07.81ID:NBntR4Uy
はいはい、メゾット君は無視しましょうね〜
2018/03/20(火) 06:01:07.86ID:w5UAsH4d
メゾット野郎はいつも口先ばかりwwwwwwww
違うってんならゲーム作ってみせろ無能wwwwwwwwwww
446デフォルトの名無しさん
垢版 |
2018/03/20(火) 08:02:11.84ID:Su8VuYEw
ゲームをエクセルで作る意味って何があるの?
447デフォルトの名無しさん
垢版 |
2018/03/20(火) 08:03:53.80ID:TJC60I00
意味は他人に教わるものじゃない
自分で見出すのだ
448デフォルトの名無しさん
垢版 |
2018/03/20(火) 08:14:23.93ID:mdjnVZmX
やろうと思えばできるって言ってもなあ
やってない人が言ってもみたいな
449デフォルトの名無しさん
垢版 |
2018/03/20(火) 08:32:50.91ID:Su8VuYEw
マリオのゲームってもコントロールしてるわけじゃないでしょ?
ドットに色表示してるだけじゃないの?
450デフォルトの名無しさん
垢版 |
2018/03/20(火) 09:49:54.48ID:uUCQMwFd
>>439
DLL使うんならExcelでやる意味なさそうだがな

Excelのセルでドット絵を描いてVBAでアクションゲームを作るということに
Excelでアクションゲームを作る意義があるんだと思うが
2018/03/20(火) 15:10:05.57ID:HXa9qFC5
>>449
> マリオのゲームってもコントロールしてるわけじゃないでしょ?
> ドットに色表示してるだけじゃないの?
本まである(>>437)のに何言ってるんだろう…
452デフォルトの名無しさん
垢版 |
2018/03/20(火) 16:00:38.63ID:J0Id73NT
DLLしたあとインスコするんだったっけ。
453デフォルトの名無しさん
垢版 |
2018/03/20(火) 19:53:45.15ID:FFuoeUFR
>>452
同じフォルダに置いておけば使えるだろw
2018/03/20(火) 20:20:30.33ID:GZSZ4At9
ボケ殺し
455デフォルトの名無しさん
垢版 |
2018/03/20(火) 22:16:37.59ID:BysB7y8w
アスペなんやで
456デフォルトの名無しさん
垢版 |
2018/03/20(火) 22:48:23.28ID:9kggXYDo
質問です。
任意のフォルダ(ThisBookと同じフォルダ)の中にある
xlsファイルの数を取得する方法を考えています。

Dim N as Integer
  With CreateObject("Scripting.FileSystemObject")
For Each ff In .GetFolder(ThisWorkbook.Path).Files
If UCase(.GetExtensionName(ff.Path)) = "xls" Then N = N + 1
Next
End With


ネットで調べてみたものの、カウントがされません。
現在対象のフォルダにはxlsファイルが一つあります。
どこを修正すれば良いのでしょうか。
教えてください。
457デフォルトの名無しさん
垢版 |
2018/03/20(火) 23:07:13.92ID:BysB7y8w
>>456
UCaseの意味をもう一度調べてみれば?
2018/03/20(火) 23:25:24.58ID:qVb9KqM8
Ruby なら、これだけだが

puts Dir.glob('*.txt').size #=> 5
459デフォルトの名無しさん
垢版 |
2018/03/20(火) 23:29:52.36ID:9kggXYDo
>>457
調べました。
UCaseではなく、LCaseだったんですね。
先に進めました。
ありがとうございました。
2018/03/21(水) 11:16:23.41ID:7pPMZ9pD
>>459
UCase/LCase よりも
StrConv(, vbUpperCase) や StrConv(, vbLowerCase)
を使った方がより良いと思う。

なんとなくだが
461デフォルトの名無しさん
垢版 |
2018/03/21(水) 23:19:13.74ID:1JiLJjJR
そーゆー感性ってすごく大事

なんとなくだが
2018/03/22(木) 23:48:33.27ID:wY4uz5GL
そいうWithの使い方は嫌い

んとなくだが
2018/03/23(金) 05:10:41.67ID:fhxmeXqE
寧ろ、with はああいう使い方をすべきなんじゃないの。単なる記述の省略としてだけでなく。
2018/03/23(金) 07:23:25.20ID:KEQJOoX5
いんや、.NetのUsingみたいに解放は確実に出来るけど
ひとつのスコープにひとつしか使えないし
コーディングに慣れてる人には
一瞬、どこで生成してるの?ってなるから
可読性の見地からイマイチかなと思う
2018/03/23(金) 07:26:59.80ID:L9ucwTOA
既におなじみの使い方だろうとしか
466デフォルトの名無しさん
垢版 |
2018/03/23(金) 07:47:34.14ID:Kb85u4Z4
withってusingみたいに解放してくれるんだ
Set使うより簡潔にできるのね
2018/03/23(金) 08:04:55.76ID:FQA7q+b8
>>464
> コーディングに慣れてる人には
> 一瞬、どこで生成してるの?ってなるから
普通にインデントしてたらそんなことにならん

> 可読性の見地からイマイチかなと思う
お前だけだろ
2018/03/23(金) 08:12:14.14ID:3JBwFnH8
こんなもんコピペグラマーでもしょっちゅう目にしてるはず
この程度でわかりにくいとか、どんだけ素人だ

ただ、老眼の俺にはドットの見落とし、書き漏らしがちょっと怖い
2018/03/23(金) 12:22:12.90ID:5CV31jFy
>>466
自分も初めて知った。
けどネスト深くなると、破棄されたか分かりにくそうではある。
オブジェクト残ってると問題出るプログラムの場合はちょっと使うの怖いな
2018/03/23(金) 18:30:24.67ID:fhxmeXqE
>>466
withでcloseはしないんじゃないの?
あくまでusingぽくて分かりやすいというだけで。
2018/03/23(金) 19:28:31.68ID:L9ucwTOA
>>470
自作クラスに Sub Class_Terminate() を定義してステップ実行してみればわかる。
End With 後にちゃんと呼び出されるから。
472デフォルトの名無しさん
垢版 |
2018/03/23(金) 20:26:02.56ID:qUw1cRZJ
無知なのは仕方がないとしてもEnd Withの後にClass_Terminateが呼び出されるのなら
論理的な帰結としてWithがオブジェクトの解放をしているのではないと気がついて欲しかったなあ
2018/03/23(金) 20:32:59.84ID:L9ucwTOA
>>472
解放、close
どっち?
2018/03/23(金) 20:43:47.72ID:L9ucwTOA
それに「無知」とは何のことかな?
非明示的にデストラクトされてもFreeはされない言語があってその事を知らない、という意味かな?
だとしたら知らない
2018/03/23(金) 22:16:31.73ID:LTH6T9fs
>>467
>>468
同じ階層に同じようなObjectがある場合、
Withを使ってる奴だけそんな方法で解放するの?
統一性のないコーディングだなぁ
2018/03/23(金) 22:31:56.84ID:DV5xQmy6
解放の方法が違う程度の事を気にしてたら現場で発狂しまくりだろうなぁ
2018/03/24(土) 00:04:50.79ID:X8NV5dnx
スタイルは大事だから気にするわな。
気にしない奴はバグ増えまくりだ。
現場が忙しくなると崩れて来る。
そして俺のバグも増えるというわけさ。

気にしない奴とは仕事したくないな。
478デフォルトの名無しさん
垢版 |
2018/03/24(土) 00:39:44.09ID:TyYpGZwY
解放の方法てwそんなもんないわwww
479デフォルトの名無しさん
垢版 |
2018/03/24(土) 01:08:51.19ID:nM3MUJGs
プログラマってどういう大学のでの人たちがやってるんだ?
あんま高学歴のイメージ湧かないんだけど
480デフォルトの名無しさん
垢版 |
2018/03/24(土) 02:40:55.22
Withをネストして内側から外側を参照するにはどうすればいいの?
最悪それ自身のオブジェクトを変数に保持できればいいけどできないよね?

>>456を例にとると(この場合ネストするメリットは何もないけど)
Dim N As Integer
 With CreateObject("Scripting.FileSystemObject")
  Dim obj As Object
  Set obj = .
  With .GetFolder(ThisWorkbook.Path)
 For Each ff In .Files
 If LCase(obj.GetExtensionName(ff.Path)) = "xls" Then N = N + 1
 Next
  End With
End With
とか
Dim N As Integer
 With CreateObject("Scripting.FileSystemObject")
  With .GetFolder(ThisWorkbook.Path)
 For Each ff In .Files
 If LCase(..GetExtensionName(ff.Path)) = "xls" Then N = N + 1
 Next
  End With
End With
とか
481470
垢版 |
2018/03/24(土) 02:46:47.80ID:fNSyCTew
スマソが、結局>>456のコードにおいて、fileSystemObjectはEnd withのタイミングでfreeされるってことでok?
で、With OpenTextFile()とした場合も同様にcloseされる理解でok?
2018/03/24(土) 02:53:52.34ID:fNSyCTew
>>480
ヘルプにネストすんなボケカスと書いてあったような。
未確認発言失礼。MS-Officeが無いもので。
483デフォルトの名無しさん
垢版 |
2018/03/24(土) 03:02:44.42
>>481
With New ObjectX
.Exec
End With
は、
Dim obj As ObjectX
Set obj = New ObjectX
obj.Exec
Set obj = Nothing
と同等という理解

根拠となる文献は↓の人が挙げてくれるはず
484デフォルトの名無しさん
垢版 |
2018/03/24(土) 03:12:24.84ID:TyYpGZwY
つまりNothingを代入してもオブジェクトが解放されないのと同様にEnd Withでオブジェクトは解放されない
たまたまそこでオブジェクトの参照カウントが0になったから解放されただけ
2018/03/24(土) 04:09:07.06ID:fNSyCTew
> freeされる
という表現が悪かったか。
Nothing代入と等価ならそれでええです。いずれにせよその類の機能はwithに無いと思っていたので。
ありがとう。
2018/03/24(土) 05:50:00.67ID:3Pb/XQ//
>>484
うん?.Net系と勘違いしてない?
.Net系は確かに参照しているところが無くなればガベージコレクションで解放するけど
VBAや旧VBであるVB6はNothingを入れるとそのObjectそのものが解放される仕組みだと思ったけど
487デフォルトの名無しさん
垢版 |
2018/03/24(土) 05:57:47.30ID:Ou2f/XLi
参考までに

With New ObjectX
.Exec
End With
→End Withで解放される

With New ObjectY
.Exec
GoTo Line1
End With
Line1:
→解放されない(関数の最後で解放)

GoTo Line2
With New ObjectZ
Line2:
.Exec
End With
→生成されない(.Execで実行時エラー)
488デフォルトの名無しさん
垢版 |
2018/03/24(土) 06:08:07.14ID:Ou2f/XLi
>>486
仮にClass1で以下のプロパティが定義されているとすると
Public Property Get Self() As Class1
Set Self = Me
End Property

以下のWithで生成されたオブジェクトはEnd Withで解放されない
Dim obj As Class1
With New Class1
Set obj = .Self
End With
2018/03/24(土) 06:24:23.25ID:3Pb/XQ//
>>488
同様にNotingを入れると?
2018/03/24(土) 08:07:41.90ID:dVRvT3Vm
>>475
そういう場合は使わなきゃいいだけ
応用力ないの?
2018/03/24(土) 08:16:33.84ID:wM3wzjps
>>490
そういうのは応用とは言わない
一貫性が無いと言う
2018/03/24(土) 08:21:58.80ID:Ypx42xzO
VBA Set Obj = Nothing は必要か
http://thom.hateblo.jp/entry/2015/12/20/135035
2018/03/24(土) 08:41:38.11ID:G40hdKBQ
>>484
これでしょ
2018/03/24(土) 09:04:16.28ID:dVRvT3Vm
>>491
一貫性の話はコードの話
応用力はお前自身の話
まあそう言うことも理解できてないバカなのはわかった w
2018/03/24(土) 09:33:19.46ID:DtiNFwiJ
俺はオブジェクトにNothingを入れるのを諦めた
プロシージャの途中で条件によりExit Subする時とかまでカバーしようとすると
コードが変な方向にねじ曲がっていく
2018/03/24(土) 09:40:33.58ID:E2uahCPZ
>>494
悔しくて草生やした時点でお前の負け
2018/03/24(土) 10:14:46.87ID:maeX3hx+
>>480

Parentプロパティってのがあったような
https://oshiete.goo.ne.jp/qa/2463803.html
498デフォルトの名無しさん
垢版 |
2018/03/24(土) 10:19:01.04ID:Ou2f/XLi
>>489
何を勘違いしているのか知らんが、Nothingを入れても参照が残っている限り解放はされない

>>488のClass1の定義で、

Dim obj As Class1
Dim obj_ref As Class1

Set obj = New Class1

Set obj_ref = obj.Self

Set obj = Nothing
→「New Class1」で生成したオブジェクトは解放されない(参照が残っているから)
499デフォルトの名無しさん
垢版 |
2018/03/24(土) 10:33:33.02ID:TyYpGZwY
>>486
未だにNothing代入の誤解が蔓延っているんだな
旧VBプログラマーの無知が作りだした因習が新参のマクロプログラマーに受け継がれるっていう
もはやウイルスの如き感染力
2018/03/24(土) 10:43:35.46ID:dVRvT3Vm
>>496
反論できなくて悔しいね w
2018/03/24(土) 10:50:03.59ID:dVRvT3Vm
>>497
それはFormにあると言うだけで全てのオブジェクトにあるわけじゃない
>>480みたいにネストしてあれこれやりたいなら素直に変数にSetした方がいい
502デフォルトの名無しさん
垢版 |
2018/03/24(土) 10:50:20.70ID:TyYpGZwY
>>500
バカはしゃべるな
503デフォルトの名無しさん
垢版 |
2018/03/24(土) 11:44:41.58ID:D3IeoiHR
「ネストしているときはWithを使えないからネストしないときもWithはやめよう」
 ↑
これを「一貫性」と呼ぶのか?流石にそういう主張じゃないよな。
504デフォルトの名無しさん
垢版 |
2018/03/24(土) 11:51:46.46ID:Z79Bg+7E
ExcelがPythonをネイティブサポートしたら世界はどう変わるか。
2018/03/24(土) 11:55:52.55ID:3GLZsUhU
>>502
>>500 w
506デフォルトの名無しさん
垢版 |
2018/03/24(土) 12:03:27.93ID:nM3MUJGs
応用力とは言わないんじゃないの
その場しのぎの対応は、一貫性がないんだよ
2018/03/24(土) 12:22:38.50
>>480の汎用的な解ができたよー

【標準モジュール】
Public Function ObjectWrapper(ByRef ObjectRef As Object, Optional ByRef ParentWrapper As ObjectWrapperClass = Nothing) As ObjectWrapperClass
  Dim wrapper As ObjectWrapperClass
  Set wrapper = New ObjectWrapperClass
  Set wrapper.Ref = ObjectRef
  Set wrapper.Parent = ParentWrapper
  Set ObjectWrapper = wrapper
End Function

【クラスモジュール : ObjectWrapperClass】
Private m_ref As Object
Private m_parent As ObjectWrapperClass

Public Property Set Ref(ByRef ObjectRef As Object)
  Set m_ref = ObjectRef
End Property
Public Property Get Ref() As Object
  Set Ref = m_ref
End Property

Public Property Set Parent(ByRef ObjectWrapper As ObjectWrapperClass)
  Set m_parent = ObjectWrapper
End Property
Public Property Get Parent() As ObjectWrapperClass
  Set Parent = m_parent
End Property

Public Property Get Self() As Object
  Set Self = Me
End Property
2018/03/24(土) 12:24:31.16
>>507の使用例

With ObjectWrapper(CreateObject("Scripting.FileSystemObject"))
  With ObjectWrapper(.Ref.GetFolder(ThisWorkbook.Path), .Self)
   For Each ff In .Ref.Files
    If LCase(.Parent.Ref.GetExtensionName(ff.Path)) = "xls" Then N = N + 1
   Next
  End With
End With
509デフォルトの名無しさん
垢版 |
2018/03/24(土) 13:02:42.69ID:TyYpGZwY
java臭いw
2018/03/24(土) 15:59:40.14ID:+7wE18C6
1点質問です。

ODBC接続するマイクロソフトクエリ(xxxx.dqy)をエクセルVBA(EXCEL2010)から起動する際、
ユーザとパスワードを自動入力してログインするマクロを作成したいのですが、
どのように記載すればいいでしょうか。詳しい方、ご教示下さい。
宜しくお願い致します。

sub mac()

Workbooks.Open ("C:\TEMP\xxxx.dqy")
'/// ユーザ(abc)、パスワード(p1a#s%s)自動入力


end sub
2018/03/24(土) 17:38:17.30ID:H6zN6TQZ
>>504
どっかのサイトからポトペタして貼り付けたのが動きませんけどって
阿鼻叫喚の地獄絵図
2018/03/24(土) 17:56:47.42ID:fT1SCAXE
>>511
それなら今と変わらなくね?
2018/03/25(日) 00:20:48.30ID:F9l+1oy/
勉強して会社エクセルに入れたいんだけどセキュリティ的にどうなのでしょうか?
管理者権限がなくてもできますか?
2018/03/25(日) 00:27:54.20ID:fDU87IMf
>>513
セキュリティ的には完全にアウトだから入れたかったら会社の上司に相談すること
2018/03/25(日) 00:43:47.76ID:1gqbR9Sf
>>513
今の時代にエクセルが入ってない職場ってどういうところなんか気になるな
516デフォルトの名無しさん
垢版 |
2018/03/25(日) 00:44:35.98ID:IZk64w7g
なにを入れるんだよw
2018/03/25(日) 01:05:24.75ID:EWpgF6fF
ヒキニートの妄想だろ
518デフォルトの名無しさん
垢版 |
2018/03/25(日) 01:44:51.57ID:U5SlEUJl
日本は中小企業が大部分を占めるのでExcelの需要が大きいんだと思う。
519デフォルトの名無しさん
垢版 |
2018/03/25(日) 01:45:45.66ID:U5SlEUJl
10年以上受け継がれてる見積もりシートとかあるわ。
2018/03/25(日) 04:17:50.28ID:fDU87IMf
中小企業が大部分なのはどこの国でも同じなんだが
■ このスレッドは過去ログ倉庫に格納されています
5ちゃんねるの広告が気に入らない場合は、こちらをクリックしてください。