スレ立ての際は一行目に
!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/
探検
Excel VBA 質問スレ Part52
■ このスレッドは過去ログ倉庫に格納されています
1デフォルトの名無しさん
2018/01/27(土) 20:25:05.67ID:Xe+uGT7T473デフォルトの名無しさん
2018/03/23(金) 20:32:59.84ID:L9ucwTOA474デフォルトの名無しさん
2018/03/23(金) 20:43:47.72ID:L9ucwTOA それに「無知」とは何のことかな?
非明示的にデストラクトされてもFreeはされない言語があってその事を知らない、という意味かな?
だとしたら知らない
非明示的にデストラクトされてもFreeはされない言語があってその事を知らない、という意味かな?
だとしたら知らない
475デフォルトの名無しさん
2018/03/23(金) 22:16:31.73ID:LTH6T9fs476デフォルトの名無しさん
2018/03/23(金) 22:31:56.84ID:DV5xQmy6 解放の方法が違う程度の事を気にしてたら現場で発狂しまくりだろうなぁ
477デフォルトの名無しさん
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
とか
最悪それ自身のオブジェクトを変数に保持できればいいけどできないよね?
>>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?
で、With OpenTextFile()とした場合も同様にcloseされる理解でok?
482デフォルトの名無しさん
2018/03/24(土) 02:53:52.34ID:fNSyCTew483デフォルトの名無しさん
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
と同等という理解
根拠となる文献は↓の人が挙げてくれるはず
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になったから解放されただけ
たまたまそこでオブジェクトの参照カウントが0になったから解放されただけ
485デフォルトの名無しさん
2018/03/24(土) 04:09:07.06ID:fNSyCTew > freeされる
という表現が悪かったか。
Nothing代入と等価ならそれでええです。いずれにせよその類の機能はwithに無いと思っていたので。
ありがとう。
という表現が悪かったか。
Nothing代入と等価ならそれでええです。いずれにせよその類の機能はwithに無いと思っていたので。
ありがとう。
486デフォルトの名無しさん
2018/03/24(土) 05:50:00.67ID:3Pb/XQ// >>484
うん?.Net系と勘違いしてない?
.Net系は確かに参照しているところが無くなればガベージコレクションで解放するけど
VBAや旧VBであるVB6はNothingを入れるとそのObjectそのものが解放される仕組みだと思ったけど
うん?.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で実行時エラー)
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
仮に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
489デフォルトの名無しさん
2018/03/24(土) 06:24:23.25ID:3Pb/XQ// >>488
同様にNotingを入れると?
同様にNotingを入れると?
490デフォルトの名無しさん
2018/03/24(土) 08:07:41.90ID:dVRvT3Vm491デフォルトの名無しさん
2018/03/24(土) 08:16:33.84ID:wM3wzjps492デフォルトの名無しさん
2018/03/24(土) 08:21:58.80ID:Ypx42xzO VBA Set Obj = Nothing は必要か
http://thom.hateblo.jp/entry/2015/12/20/135035
http://thom.hateblo.jp/entry/2015/12/20/135035
493デフォルトの名無しさん
2018/03/24(土) 08:41:38.11ID:G40hdKBQ >>484
これでしょ
これでしょ
494デフォルトの名無しさん
2018/03/24(土) 09:04:16.28ID:dVRvT3Vm495デフォルトの名無しさん
2018/03/24(土) 09:33:19.46ID:DtiNFwiJ 俺はオブジェクトにNothingを入れるのを諦めた
プロシージャの途中で条件によりExit Subする時とかまでカバーしようとすると
コードが変な方向にねじ曲がっていく
プロシージャの途中で条件によりExit Subする時とかまでカバーしようとすると
コードが変な方向にねじ曲がっていく
496デフォルトの名無しさん
2018/03/24(土) 09:40:33.58ID:E2uahCPZ >>494
悔しくて草生やした時点でお前の負け
悔しくて草生やした時点でお前の負け
497デフォルトの名無しさん
2018/03/24(土) 10:14:46.87ID:maeX3hx+498デフォルトの名無しさん
2018/03/24(土) 10:19:01.04ID:Ou2f/XLi499デフォルトの名無しさん
2018/03/24(土) 10:33:33.02ID:TyYpGZwY500デフォルトの名無しさん
2018/03/24(土) 10:43:35.46ID:dVRvT3Vm >>496
反論できなくて悔しいね w
反論できなくて悔しいね w
501デフォルトの名無しさん
2018/03/24(土) 10:50:03.59ID:dVRvT3Vm502デフォルトの名無しさん
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をネイティブサポートしたら世界はどう変わるか。
505デフォルトの名無しさん
2018/03/24(土) 11:55:52.55ID:3GLZsUhU506デフォルトの名無しさん
2018/03/24(土) 12:03:27.93ID:nM3MUJGs 応用力とは言わないんじゃないの
その場しのぎの対応は、一貫性がないんだよ
その場しのぎの対応は、一貫性がないんだよ
507デフォルトの名無しさん
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
【標準モジュール】
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
508デフォルトの名無しさん
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
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
510デフォルトの名無しさん
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
ODBC接続するマイクロソフトクエリ(xxxx.dqy)をエクセルVBA(EXCEL2010)から起動する際、
ユーザとパスワードを自動入力してログインするマクロを作成したいのですが、
どのように記載すればいいでしょうか。詳しい方、ご教示下さい。
宜しくお願い致します。
sub mac()
Workbooks.Open ("C:\TEMP\xxxx.dqy")
'/// ユーザ(abc)、パスワード(p1a#s%s)自動入力
end sub
511デフォルトの名無しさん
2018/03/24(土) 17:38:17.30ID:H6zN6TQZ512デフォルトの名無しさん
2018/03/24(土) 17:56:47.42ID:fT1SCAXE >>511
それなら今と変わらなくね?
それなら今と変わらなくね?
513デフォルトの名無しさん
2018/03/25(日) 00:20:48.30ID:F9l+1oy/ 勉強して会社エクセルに入れたいんだけどセキュリティ的にどうなのでしょうか?
管理者権限がなくてもできますか?
管理者権限がなくてもできますか?
514デフォルトの名無しさん
2018/03/25(日) 00:27:54.20ID:fDU87IMf >>513
セキュリティ的には完全にアウトだから入れたかったら会社の上司に相談すること
セキュリティ的には完全にアウトだから入れたかったら会社の上司に相談すること
515デフォルトの名無しさん
2018/03/25(日) 00:43:47.76ID:1gqbR9Sf >>513
今の時代にエクセルが入ってない職場ってどういうところなんか気になるな
今の時代にエクセルが入ってない職場ってどういうところなんか気になるな
516デフォルトの名無しさん
2018/03/25(日) 00:44:35.98ID:IZk64w7g なにを入れるんだよw
517デフォルトの名無しさん
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年以上受け継がれてる見積もりシートとかあるわ。
520デフォルトの名無しさん
2018/03/25(日) 04:17:50.28ID:fDU87IMf 中小企業が大部分なのはどこの国でも同じなんだが
521デフォルトの名無しさん
2018/03/25(日) 04:57:24.72ID:U5SlEUJl >>520
雇用者数に対する中小企業割合は日本では8割、アメリカ、イギリス、ドイツなどで5割程度のようだが、これおそらく生産性に直結してると思う。
資本が集中していない分、日本は競争力が低い。
一方で、中小企業割合が大きいということは、一国一城の主となれる割合が大きいことでもあり、儲からないけど好きなことで飯が食えるという意味では良いことなのかもしれない。
雇用者数に対する中小企業割合は日本では8割、アメリカ、イギリス、ドイツなどで5割程度のようだが、これおそらく生産性に直結してると思う。
資本が集中していない分、日本は競争力が低い。
一方で、中小企業割合が大きいということは、一国一城の主となれる割合が大きいことでもあり、儲からないけど好きなことで飯が食えるという意味では良いことなのかもしれない。
522デフォルトの名無しさん
2018/03/25(日) 05:01:26.01ID:U5SlEUJl ちなみに欧米でも中小企業が8割を占める国があり、イタリアがそうらしいです。
イタリアは職人的な工芸製品のイメージがあり、製品本来の価値よりブランドイメージが先行している感じがする。
そこは見習うべき点かもしれない。
同じものを売るなら高く売ったほうが良いからね。
イタリアは職人的な工芸製品のイメージがあり、製品本来の価値よりブランドイメージが先行している感じがする。
そこは見習うべき点かもしれない。
同じものを売るなら高く売ったほうが良いからね。
523デフォルトの名無しさん
2018/03/25(日) 05:04:38.97ID:U5SlEUJl イタリアのExcel割合を調べてくれたまえ。
524デフォルトの名無しさん
2018/03/25(日) 21:29:27.29ID:jcp+Rd0d 中小とか関係無いだろ。
大企業でExcel入ってない所なんて聞いたこと無いぞ。
大企業でExcel入ってない所なんて聞いたこと無いぞ。
525デフォルトの名無しさん
2018/03/25(日) 22:39:02.13ID:MnBbK5My 大企業はエクセルの他にTableauとかSAPとかSalesforceみたいなの入れてたりするやん
大抵の中小にはエクセルしかない
大抵の中小にはエクセルしかない
526デフォルトの名無しさん
2018/03/25(日) 23:08:52.28ID:jcp+Rd0d527デフォルトの名無しさん
2018/03/25(日) 23:31:43.16ID:IZk64w7g Excelのほかにはちゃんとしたデータベースが導入されていれば
事務部門には必要にして十分だろう
事務部門には必要にして十分だろう
528デフォルトの名無しさん
2018/03/25(日) 23:34:10.07ID:U5SlEUJl Excelの最大の問題点は情報の共有。
日本の大企業がExcelに頼っているならそれが弱点かもしれない。
日本の大企業がExcelに頼っているならそれが弱点かもしれない。
529デフォルトの名無しさん
2018/03/26(月) 00:27:14.12ID:KUO5BBWu >>528
働いたこともないニートが妄想で語るなよ
働いたこともないニートが妄想で語るなよ
530デフォルトの名無しさん
2018/03/26(月) 11:51:23.00ID:I0XgyLKy 情報の共有ってことだと社内データベースが不可欠だけど素人では運用するのが難しい。
このネックはなかなか解消できないのかもね。
開発ツールとかはただでいくらでも手に入るし運用も問題にならない。
ルールで導入できないとかそういうのは自業自得だから。
このネックはなかなか解消できないのかもね。
開発ツールとかはただでいくらでも手に入るし運用も問題にならない。
ルールで導入できないとかそういうのは自業自得だから。
531デフォルトの名無しさん
2018/03/26(月) 12:00:07.22 >>528
Excelの共有機能を使えば万事解決やろ
Excelの共有機能を使えば万事解決やろ
532デフォルトの名無しさん
2018/03/26(月) 12:06:51.37ID:WZ1ZCWjW >>531
無駄だろな。
俺は階層ディレクトリにも疑問を持っているのだが、おそらく理解する人は少ないだろうなあ。
一番被害を被ってるはずのウェブ屋さんが「階層ディレクトリは素晴らしい」と言い張りそうな気がする。
無駄だろな。
俺は階層ディレクトリにも疑問を持っているのだが、おそらく理解する人は少ないだろうなあ。
一番被害を被ってるはずのウェブ屋さんが「階層ディレクトリは素晴らしい」と言い張りそうな気がする。
533デフォルトの名無しさん
2018/03/26(月) 12:08:37.31ID:WZ1ZCWjW 業務用のパッケージソフトってだいたい300万位がエントリーレベルなので、そうおいそれと買い換えられない。
ここもネックになってる。
ここもネックになってる。
534デフォルトの名無しさん
2018/03/26(月) 12:20:45.13ID:I0XgyLKy ただで手に入るSQLSever ExpressとVisual Studio Express で機能的には十分なんだけどね。
運用が難しいってだけじゃなくて、「ツールを導入するのが好きな人」の陰謀なんじゃないかと勘ぐっているw
運用が難しいってだけじゃなくて、「ツールを導入するのが好きな人」の陰謀なんじゃないかと勘ぐっているw
535デフォルトの名無しさん
2018/03/26(月) 13:06:59.27ID:6T2vyhwF 業務用ソフトってのはサポート込みなんだけど
どこの企業でも運良くパソコンオタクが入社して時間を持て余してるわけじゃないんで
データのバックアップから非常用の電源まで、まとめて面倒を見るのは大変だし、いちいち調べて対処するのは効率が悪い
ノウハウを持った会社からパッケージで買った方がずっとコストも安いし対応も早いし安心できる
どこの企業でも運良くパソコンオタクが入社して時間を持て余してるわけじゃないんで
データのバックアップから非常用の電源まで、まとめて面倒を見るのは大変だし、いちいち調べて対処するのは効率が悪い
ノウハウを持った会社からパッケージで買った方がずっとコストも安いし対応も早いし安心できる
536デフォルトの名無しさん
2018/03/26(月) 13:23:21.66ID:0ERRGh/D VBEのコードウインドウの背景色を濃いグレーに変えたのですが、プロシージャの区分線の色も濃いグレーのために背景と同化して見えなくなってしまいました
プロシージャの区分線の色を変更する方法ってありませんか?
プロシージャの区分線の色を変更する方法ってありませんか?
537デフォルトの名無しさん
2018/03/26(月) 13:23:49.36ID:I0XgyLKy538デフォルトの名無しさん
2018/03/26(月) 13:29:25.15ID:WZ1ZCWjW 300万の製品を10年使われると年間30万、月2万5千円だろ。
だったら月2万5千円で最新バージョンが使い続けられるといいのだがな。
アップデートが途中で打ち切られるので未だにXPがあるんだよな。
XPで何でもできるならそれでもいいんだが、新しいソフトはXPサポートしないしな。
300万は微妙すぎる金額だよな。
まあ微妙だからこそ、その価格に集中するんだろうけど。
だったら月2万5千円で最新バージョンが使い続けられるといいのだがな。
アップデートが途中で打ち切られるので未だにXPがあるんだよな。
XPで何でもできるならそれでもいいんだが、新しいソフトはXPサポートしないしな。
300万は微妙すぎる金額だよな。
まあ微妙だからこそ、その価格に集中するんだろうけど。
539デフォルトの名無しさん
2018/03/26(月) 13:31:09.84ID:WZ1ZCWjW 代々受け継がれてるExcelのシートも結構あって、そこで問題になってるのが情報の共有なんだよな。
540デフォルトの名無しさん
2018/03/26(月) 13:56:24.07ID:Fzg6eq8C 小はともかく中規模の事業所はデータの整理も進んできてる
古いデータを必要な物からデータベースに落とし込んで再利用可能にしてる
それをやらないと競争に勝てないんで
古いデータを必要な物からデータベースに落とし込んで再利用可能にしてる
それをやらないと競争に勝てないんで
541デフォルトの名無しさん
2018/03/26(月) 22:38:29.48ID:RlMBpq5I むしろ小規模ならクラウド上に乗っけて
GITとかで管理すればいいんじゃないの?
GITとかで管理すればいいんじゃないの?
542デフォルトの名無しさん
2018/03/27(火) 00:06:28.13ID:i+K8FLsM REST APIをコールしたいんだがVBAだとどんな選択肢がある?
IEインスタンス使う方法以外で
IEインスタンス使う方法以外で
543デフォルトの名無しさん
2018/03/27(火) 07:54:36.52ID:/jbLr42o >>525
その辺のパッケージにマトモなBI作ってない企業は出力したデータをExcelで加工する仕事がある
その辺のパッケージにマトモなBI作ってない企業は出力したデータをExcelで加工する仕事がある
544デフォルトの名無しさん
2018/03/27(火) 08:48:00.11ID:OGHJWfFq >>536
誰もわかんないですか?
誰もわかんないですか?
545デフォルトの名無しさん
2018/03/27(火) 09:00:02.17ID:Rlp7FXcd ID:OGHJWfFq の頭の中では…
なぜ私が質問したのにみんなスルーしてるの!
私が質問したら答えるのが当然でしょ!
答えるのが当然なのに答えないってことは、つまり知らないって事よね!?
↓output
>>544 誰もわかんないですか?
なぜ私が質問したのにみんなスルーしてるの!
私が質問したら答えるのが当然でしょ!
答えるのが当然なのに答えないってことは、つまり知らないって事よね!?
↓output
>>544 誰もわかんないですか?
546デフォルトの名無しさん
2018/03/27(火) 09:52:14.28ID:se4xCVEM547デフォルトの名無しさん
2018/03/27(火) 11:09:50.91ID:nMHUA4Cr >>542
Application.WorksheetFunction.WebService()
Application.WorksheetFunction.WebService()
548デフォルトの名無しさん
2018/03/27(火) 12:10:18.56ID:Z1ln/9g0 >>545
いえ、わかんないの?って感じで煽ったらそれぐらい知ってるわ!ってノリで答えてくれる人が出てくるかなと思いまして
いえ、わかんないの?って感じで煽ったらそれぐらい知ってるわ!ってノリで答えてくれる人が出てくるかなと思いまして
549デフォルトの名無しさん
2018/03/27(火) 12:20:24.49ID:nnyxYnJQ お前ら関係ない事まで答えたがるくせにw
何変ないじり方してんだよw
何変ないじり方してんだよw
550デフォルトの名無しさん
2018/03/27(火) 22:07:01.34ID:8sNHT6Rv Dim c As Byte
For c = 1 To 43
処理
Next c
For c = 43 To 1 Step -1
ここでオーバーフローのエラーになります。cの中身は44でByteの範囲内です。
エラーになる原因を教えてください。
For c = 1 To 43
処理
Next c
For c = 43 To 1 Step -1
ここでオーバーフローのエラーになります。cの中身は44でByteの範囲内です。
エラーになる原因を教えてください。
551デフォルトの名無しさん
2018/03/27(火) 22:46:58.40ID:N/whD29M c = -1
でもオーバーフロー
Byte型にマイナスがだめ
でもオーバーフロー
Byte型にマイナスがだめ
552デフォルトの名無しさん
2018/03/27(火) 22:48:09.36 ケチケチしないでLong使えやwwwww
553デフォルトの名無しさん
2018/03/27(火) 22:48:40.35ID:8sNHT6Rv ありがとうございます。型かえます。
554デフォルトの名無しさん
2018/03/28(水) 03:53:43.79ID:Cdw31wh4 >>553
いいってことよ(´・ω・`)b
いいってことよ(´・ω・`)b
555555
2018/03/28(水) 03:54:06.82ID:Cdw31wh4 555げっち(´・ω・`)b
556デフォルトの名無しさん
2018/03/28(水) 21:27:49.05ID:b61/mHBH557デフォルトの名無しさん
2018/03/28(水) 21:33:27.08ID:fW+sJxWu ぐぐってみたら10年以上前からなんやねんこれってなってる
ttps://www.ozgrid.com/forum/forum/help-forums/excel-general/66761-overflow-error-in-for-loop-stepping-backwards-with-byte
ttps://www.ozgrid.com/forum/forum/help-forums/excel-general/66761-overflow-error-in-for-loop-stepping-backwards-with-byte
558デフォルトの名無しさん
2018/03/28(水) 21:39:46.02ID:b61/mHBH >>557
ありがと。まぁループ変数にByte型を使うなって事で ┐(´д`)┌ヤレヤレ
ありがと。まぁループ変数にByte型を使うなって事で ┐(´д`)┌ヤレヤレ
559デフォルトの名無しさん
2018/03/28(水) 21:48:47.59ID:c16Hwi83 For文の内部処理で-1をバイト型にキャストしようとして詰んでしまってるんじゃなかろうか
560デフォルトの名無しさん
2018/03/28(水) 22:58:28.63ID:b61/mHBH Step -1 の-1をDim c As Byte のByte型に合わせようとしたけど、Byte型では
範囲外 オーバーフローだぞ…と
なるほど
範囲外 オーバーフローだぞ…と
なるほど
561デフォルトの名無しさん
2018/03/28(水) 23:05:20.91ID:qqTeUvjF Variaant型変数を宣言して整数を代入した場合
Dim i
i = 65535
i = i + 1
して65536にしてもオーバーフローエラーにはなりませんでした。
Variant型変数の整数の内部表現はLongが標準なんでしょうか?
Dim i
i = 65535
i = i + 1
して65536にしてもオーバーフローエラーにはなりませんでした。
Variant型変数の整数の内部表現はLongが標準なんでしょうか?
562デフォルトの名無しさん
2018/03/29(木) 01:39:16.45ID:1S4zmkyv >>561
いっぺんヘルプ読んでみ
ttps://msdn.microsoft.com/ja-jp/vba/language-reference-vba/articles/variant-data-type
いっぺんヘルプ読んでみ
ttps://msdn.microsoft.com/ja-jp/vba/language-reference-vba/articles/variant-data-type
563デフォルトの名無しさん
2018/03/29(木) 03:39:40.96ID:Vz9b93Ky 急にオートメーションエラーが発生するようになったんだが。。。
564563
2018/03/29(木) 03:47:53.56ID:Vz9b93Ky ググったところ
以下のリンク見て、動くようにはなったが、納得できない感じ
ttps://social.msdn.microsoft.com/Forums/ja-JP/1522c74b-17e7-402d-8a87-2d1a6af1feab/excel-2016?forum=vbajp
Windows Update で動かなくなるとか勘弁
以下のリンク見て、動くようにはなったが、納得できない感じ
ttps://social.msdn.microsoft.com/Forums/ja-JP/1522c74b-17e7-402d-8a87-2d1a6af1feab/excel-2016?forum=vbajp
Windows Update で動かなくなるとか勘弁
565デフォルトの名無しさん
2018/03/29(木) 20:05:15.88ID:YuebNQaY listviewで教えてください
幅を自動調整したい時、ぐぐると「widthプロパティを-1か-2にすべし」と書いてあるのですが、
やってみると「プロパティの値が不正です」とエラーになります。
フォームエディタのプロパティ画面でwidthを直接設定しようとしたら、そもそも「0以上の値を
入力してください」と言われてしまいました。
listviewの仕様が変わるか何かあったのでしょうか。
それとも、実は同名の別のコントロールなのでしょうか。
listview事態は、ツールボックスを右クリックしてその他のコントロールから
Microsoft ListView Control, version 6.0
というのを有効にしています
幅を自動調整したい時、ぐぐると「widthプロパティを-1か-2にすべし」と書いてあるのですが、
やってみると「プロパティの値が不正です」とエラーになります。
フォームエディタのプロパティ画面でwidthを直接設定しようとしたら、そもそも「0以上の値を
入力してください」と言われてしまいました。
listviewの仕様が変わるか何かあったのでしょうか。
それとも、実は同名の別のコントロールなのでしょうか。
listview事態は、ツールボックスを右クリックしてその他のコントロールから
Microsoft ListView Control, version 6.0
というのを有効にしています
566デフォルトの名無しさん
2018/03/30(金) 07:00:19.72ID:r/zfsTLq こんなに詳しいならVBAなんかじゃなくてドットNETに移行したら?
出来る範囲も桁違いに多いし技術的にはVBAとそんなに変わらんじゃん
そう言うわけではないの?
出来る範囲も桁違いに多いし技術的にはVBAとそんなに変わらんじゃん
そう言うわけではないの?
567デフォルトの名無しさん
2018/03/30(金) 07:10:50.00ID:MnRWcQoL568デフォルトの名無しさん
2018/03/30(金) 07:25:23.82ID:r/zfsTLq そうじゃなくてエクセルを使う必要なんてないんじゃないのって事です
.netでもエクセル以上の事も出来るし
エクセルの制約がない分簡単な気がするんだけど
しかもコード的にも少ししか変わらないし
.netでもエクセル以上の事も出来るし
エクセルの制約がない分簡単な気がするんだけど
しかもコード的にも少ししか変わらないし
569デフォルトの名無しさん
2018/03/30(金) 07:55:52.10ID:M36Hc3ht 処理対象がエクセルならvbaのほうが手軽
そうじゃないなら他の言語のほうがいい
とか言いつつ俺はエクセル処理にpowershell使ってるけど
そうじゃないなら他の言語のほうがいい
とか言いつつ俺はエクセル処理にpowershell使ってるけど
570デフォルトの名無しさん
2018/03/30(金) 08:07:18.25ID:O1RjHycM 個人ならいいけど会社だとエクセル使いの方が多いから合わせないとならんしな
スマートで無いやり方をしているのは思いつかないからではなく他に方法がないからなのであって、
その代替手段は「君だけが思いつける冴えたアイディア」ではないんだよ
スマートで無いやり方をしているのは思いつかないからではなく他に方法がないからなのであって、
その代替手段は「君だけが思いつける冴えたアイディア」ではないんだよ
571デフォルトの名無しさん
2018/03/30(金) 08:24:56.25ID:MnRWcQoL >>568
> そうじゃなくてエクセルを使う必要なんてないんじゃないのって事です
お前のところがそう言う環境ならそうすればいい
> .netでもエクセル以上の事も出来るし
Excelを越える操作性を持つアプリを開発できるの?
>>569
> とか言いつつ俺はエクセル処理にpowershell使ってるけど
PowerShellは癖あるけど慣れると楽だよね
Windows 10 に移行して PowerShell 5.0 の class や enum が使えるようになったから嬉しい
と思ってたら Excel も 2013 → 2016 になってて以前のスクリプトがエラーになる...
新年度はまずはこの修正からだな
> そうじゃなくてエクセルを使う必要なんてないんじゃないのって事です
お前のところがそう言う環境ならそうすればいい
> .netでもエクセル以上の事も出来るし
Excelを越える操作性を持つアプリを開発できるの?
>>569
> とか言いつつ俺はエクセル処理にpowershell使ってるけど
PowerShellは癖あるけど慣れると楽だよね
Windows 10 に移行して PowerShell 5.0 の class や enum が使えるようになったから嬉しい
と思ってたら Excel も 2013 → 2016 になってて以前のスクリプトがエラーになる...
新年度はまずはこの修正からだな
572デフォルトの名無しさん
2018/03/30(金) 08:42:59.54ID:+sennHug ExcelはUIとしては優れているじゃないか。
これを利用しない手はない
これを利用しない手はない
■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 中国の局長は「両手をポケット」で対峙 宣伝戦で国民に示す ★3 [蚤の市★]
- 日本行き空路49万件キャンセル 中国自粛呼びかけ 日本行きチケット予約の約32%に相当 ★4 [ぐれ★]
- 【音楽】Perfume・あ~ちゃんの結婚相手「一般男性」は吉田カバンの社長・吉田幸裕氏(41) 高身長で山本耕史似 [Ailuropoda melanoleuca★]
- 【大分】佐賀関で大規模火災、170棟以上が延焼中 70代男性1人と連絡取れず [ぐれ★]
- 【サッカー】U-17日本代表、激闘PK戦制す 北朝鮮撃破で6大会ぶり8強入り U17W杯 [久太郎★]
- 「クマはなるべく山に返す努力を」「クマと戦争は間違っている」動物保護活動家の主張 棲み分けと学習放獣でクマ被害なくなるのか?★7 [ぐれ★]
- とらせん IPあり
- 【DAZN】ワールドカップ欧州予選総合 ★5
- 巨専】
- こいせん 全レス転載禁止
- 侍ジャパンシリーズ2025「日本vs韓国」その12
- 【J SPORTS】FIFA U-17ワールドカップ ★10
- 【悲報】女の子、整形で片目失明...高市助けて... [856698234]
- 高市「次回選挙争点は台湾有事よ!!」自民立憲公明維新国民「やめろーー!!」これが現実になりそうな件 [469534301]
- 自閉症が「んなっしょい」と連呼するお🏡
- 経済保安相「気に入らないことがあれば経済的威圧をする国への依存はリスク」日本さん遂にアメリカと断交へ!!! [472617201]
- アンケート調査で「高市発言は問題なし」 93.5%wwwwwwwwwwwwwwwwwwwwwwwww [279254606]
- 【悲報】風俗嬢「風俗の客は既婚者や彼女持ちがほとんど。いわゆる弱者男性の客はほぼない」なぜ弱者男性は風俗を嫌うのか? [257926174]
