15/05/21 10:52:44.71 KLv0vQmm.net
VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もＯＫ
ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください
VBAを開発環境としていろいろ作っちゃいましょう
前スレ
VBAなんでも質問スレ
ｽﾚﾘﾝｸ(tech板)
関連スレ
Excel VBA 質問スレ Part36 [転載禁止]©2ch.net
ｽﾚﾘﾝｸ(tech板)
Access VBA 質問スレ Part1
ｽﾚﾘﾝｸ(tech板)
VBプログラマ質問スレ（Ver.6.0 まで） part64
ｽﾚﾘﾝｸ(tech板)
Excel総合相談所 118 [転載禁止]©2ch.net
ｽﾚﾘﾝｸ(bsoft板)
2:デフォルトの名無しさん
15/05/21 10:55:03.32 KLv0vQmm.net
前スレ埋まってたから立てた
3:デフォルトの名無しさん
15/05/22 20:11:01.96 HMp/+WyD.net
バカはレスしないでくれる？
個人の主張として批判せず、いたずらにある類として扱うのは極めて恣意的かおバカの批判にあらざる攻撃の特徴。
まあ、その軽蔑すべき発想で返した俺も反省はしてもよいが
はっきり言って精神病とバカの特徴でしかない論法でレスするなよ。
俺はバカと精神病きらいだからな。
おまえら、マジで精神病と思われる宣言的絶対主義の形而上学バカの一味は人類の公的な敵だとおもっているからな。
さしあたりお前らが馬鹿にされていることは科学的認識の健全性をそれなりに示すから喜ばしいがな。
それにしても、単なる知識を披露しあっているだけの時は頭良さそうなふりはできるが、
いよいよ自身の認識を問われる事態になるとここにいる連中、そこの浅さを露呈するやつ多すぎ
所詮、2chだな
4:デフォルトの名無しさん
15/05/26 09:57:20.64 98AIg8rM.net
ここまでテンプレ
5:デフォルトの名無しさん
15/05/26 11:15:15.08 IGUKy8Mq.net
>>3
むしろ自分が歯が立たない相手だと分かったら「精神病と馬鹿」というレッテルを相手に貼って
逃げるお前の方がヘタレだけどな
精神病で馬鹿なのはお前の方だよ
6:デフォルトの名無しさん
15/05/28 19:23:08.79 S82MiYOL.net
どこかわからんのでココで。
WordVBAで質問です。
あらかじめスタイルを本文内に設定しておき、
マクロで指定したスタイルが設定されている箇所を検索→
そのスタイルが指定されている場所の文章の置き換え
ということがしたいですが可能でしょうか。
スタイル名を指定して本文内を検索する、という例が見つからず困っております。
7:デフォルトの名無しさん
15/06/10 12:51:41.97 Eg5H5jgh.net
outlook2010でHTML形式メール本文の
Enter改行をShiftEnter改行に一括置換、
のVBAをさがしています。
下記のVBAでWordは動くのだけど、
そのままではoutlookで動かない
Sub ShiftEnterConvert()
'
' Enter改行をShiftEnter改行に変換
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^13"
.Replacement.Text = "^11"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=ReplaceAll
End Sub
8:デフォルトの名無しさん
15/06/10 12:51:59.79 Eg5H5jgh.net
↓ここが参考になりそうなんですが、ほぼ素人の自分には無理でした…わかる方教えてください。
URLﾘﾝｸ(outlooklab.wordpress.com)
9:デフォルトの名無しさん
15/06/15 17:19:16.55 pR/1zNa6.net
>>7
受信したメールを置換ってできないのでは？
置換したファイルをエクスポートするのですか？
10:デフォルトの名無しさん
15/06/16 22:15:42.00 x8vn2cko.net
すみません、受信メールではなく、作成中のメールです。
PCからガラケーに送ると、Enter改行だと無視されてしまうので、送る前にボタンを押してShiftEnter改行に変えたいのです。
リンク付きでPCの人にも送るので、HTMLメールのまま送りたいので。
11:デフォルトの名無しさん
15/06/17 02:45:22.84 WySeJcTb.net
>>10
リボンの編集→置換で（ワイルドカードを使用する）＾１３と＾１１を指定すればウィンドウからはできましたが、
この機能に該当するメソッドがどうにも探せないですね。
参考にされたコードはワードのものなんですけど、OUTLOOKで使うにはちょっと無理そうです。
12:デフォルトの名無しさん
15/06/30 10:29:12.58 ewTLWEfL.net
初心者から始め、2年ほど1人でVBA業務をしていたのですが
そろそろ引き継ぎ等も考え、コーディング規約のようなものを作成しようと考えています。
各プログラムで命名規則も違うため、統一したいのですが今ひとつ可読性の高い命名というのがわかりません。
修正前の変数宣言のコードを記載しますので、ぜひ添削していただけないでしょうか。
なお、グローバル変数宣言しているのは当時、この方法が一番良いと思ったためです。
13:デフォルトの名無しさん
15/06/30 10:41:30.91 ewTLWEfL.net
'ワークシート名宣言
Public Const Input_WS As String = "入力" '注文書テン
プレートのワークシート名
Public Const Setting_WS As String = "設定" '注文書設定
のワークシート名
'ワークシート[入力]のセル番地宣言
Public Const Order_No As String = "AO1" '注文書番号
Public Const Order_Title As String = "Q2" '注文書種類
Public Const Deta_Issue As String = "S5" '発行日
Public Const Company_Name As String = "B8" '外注業者名
Public Const Company_Code As String = "U8" '取引先
コード
Public Const Cash_Ratio As String = "AE14" '現金割合
Public Const Bill_Sight As String = "AO14" '手形サイト
Public Const Con_Name As String = "F14" '工事名称
Public Const Con_Add As String = "F16" '工事名称
Public Const Con_Start As String = "F17" '工期始
Public Const Con_End As String = "O17" '工期終
Public Const Con_Payment As String = "F19" '工事金額
Public Const Amount_Tax As String = "L19" '税額
Public Const Amount_Total As String = "Q19" '合計金額
'ワークシート[設定]のセル番地宣言
Public Const Set_ConName As String = "B4" '工事名称
Public Const Set_ConNo As String = "B5" '工事コード
Public Const Set_Start As String = "B7" '工期始
Public Const Set_End As String = "B8" '工期終
Public Const Set_Tax1 As String = "B10" '基本税率
Public Const Set_Tax2 As String = "B11" '変動税率
14:デフォルトの名無しさん
15/06/30 16:19:51.35 GcuTOY9X.net
>>13
工事をConと省略せずにconstruction_xxxと書くべきだと思うが、それよりもワークシートのセル番地を固定文字列で定義するのはまずいだろう。
一行ずらしましょう、とかするときどうするの？不自由この上ない。
15:デフォルトの名無しさん
15/06/30 16:46:45.95 ybpzKx4V.net
Detaが気になる･･･
16:デフォルトの名無しさん
15/06/30 18:04:04.25 RGb3IB+F.net
>>14
セル番地の固定文字列については改めて見るとすごくおかしいと思いました。
修正したいですが、皆さんワークシートやセル番地の定数はどのようにされているのでしょうか。
検索はするものの、なかなか見つけられず困っています。
>>15
気づきませんでした、すみませんありがとうございます。
17:デフォルトの名無しさん
15/06/30 19:44:23.68 4fqzjiG2.net
セル番地はセルに名前を付ける
列番号はenumにまとめる
シート名はconst
基本適当
18:デフォルトの名無しさん
15/07/01 22:28:04.95 DXkWToqb.net
一日20項目ほどの数値データが入力されている月報の表を
月末にデータを全て消去して、同じWS上で次月の日付、曜日
の書き込まれた新しいフォームに更新したいのですが、
マクロで実現可能でしょうか？
19:デフォルトの名無しさん
15/07/01 22:31:39.26 jU+pvdKi.net
手動でやれることはたいがいマクロ化できる。
20:デフォルトの名無しさん
15/07/01 23:04:39.40 DXkWToqb.net
やってみたけど30日までの月や31までの月などがあって
上手く行かないのです。
21:デフォルトの名無しさん
15/07/01 23:05:37.19 DXkWToqb.net
どこかにサンプルコードでも落ちてないでしょうか？
22:デフォルトの名無しさん
15/07/02 02:39:59.24 9jOibGQm.net
翌日の日付が「1」だったらコードを実行するようにしたらいいんでない？
23:デフォルトの名無しさん
15/07/02 11:43:59.86 mBr3NkR3.net
>>18
年と月が指定されればその月の日数は求められるよ
（月だけだとうるう年があるから2月に対応出来ない）
具体的やり方は複数あるだろうけど
例えばDateserial関数で指定月の翌月のゼロ日（ツイタチの前日）を求めれば出る
2015年7月の日数を求めたらこんな感じ
Sub Test()
Dim 年指定 As Long
Dim 月指定 As Long
Dim 日数 As Long
年指定 = 2015
月指定 = 7
日数 = Day(DateSerial(年指定, 月指定 + 1, 0))
End Sub
24:デフォルトの名無しさん
15/07/02 13:00:55.32 ww5oQ+GG.net
>>18
フォーム更新のタイミングは？
ファイルを開いたときに自動で更新するの？
25:デフォルトの名無しさん
15/07/02 14:46:01.74 AbwDTtrn.net
年月は、ボックスからプルダウンリストで指定
するだけです。ただ、指定年月の1～月末までの日付、曜日を月報の1.2行目に縦に列記するコードが出来ないのです。
26:デフォルトの名無しさん
15/07/02 16:13:54.40 mBr3NkR3.net
>>25
こんなんでどう？
対象のワークシートと年、月、を引数に指定してコールすれば
対象のシートのA列に日付、B列に曜日を書き込むよ
年と月は省略可能で、省略すると当日の年･月を指定したとみなして処理を実行するよ
Sub test(sh As Worksheet, Optional ByVal yr As Long = 0, Optional ByVal mo As Long = 0)
Dim i As Long
Dim cnt As Long
If yr = 0 Or mo = 0 Then
yr = Year(Date)
mo = Month(Date)
End If
cnt = Day(DateSerial(yr, mo + 1, 0))
With sh
.Cells.ClearContents
.Columns(2).NumberFormatLocal = "aaa"
For i = 1 To cnt
.Cells(i, 1) = i
.Cells(i, 2) = Weekday(DateSerial(yr, mo, i))
Next i
End With
End Sub
27:デフォルトの名無しさん
15/07/02 19:18:37.45 zxCnKqA7.net
何とかできそうです。ありがとうございました。
28:デフォルトの名無しさん
15/07/02 20:29:21.19 Mdba4OI7.net
>>14
なんやわからん英語で書かれている方がよっぽど分かりずらいので、
あくまでもEXCELマクロで使用するスクリプトなのでコメントに書いている
そのコードを外人に見せるなら英語が望ましいけど、
漢字をそのまま使えばいいかと。
工事名称等は重複してるので、設定_工事名称とかになるんでしょうかねー。
セル番地の固定値を変数で持っているのが引っかかっているみたいですけど、
メンテするときはコードのメンテも込みになるでしょうから、
変数に代入して整理してるし良いのでは？
というか、そういう風にルールを敷けばいいとおもうの。
29:デフォルトの名無しさん
15/07/03 08:49:41.34 IELcwsmr.net
>>28
全体を一行下にずらす、とかするとき数十個ある変数を個々にメンテするの？
工事_A = "AO1" → 工事_A = "AO2"
工事_B = "AP1" → 工事_B = "AP2"
・・・
30:デフォルトの名無しさん
15/07/03 14:52:04.92 aFtg1Cyl.net
>>29
それでいいと思うよ
どうやろうとしてるのか知らんけど、この手の奴は分かりやすいのが一番だと思う
31:デフォルトの名無しさん
15/07/03 16:20:33.62 L435uo00.net
分りやすいっていうか、直接的だから理解はしやすいけど
修正が面倒で間違いも起きやすいね
レイアウト自体の変更ではなく、全体を一気に動かすなら
最初の一要素だけ絶対アドレスで指定して
あとはそこからの相対参照（要するにオフセット）にしておくというのもひとつの手だと思う
それなら1個いじれば全部まとめて直せる
32:デフォルトの名無しさん
15/07/06 05:20:54.03 UMBaWGrv.net
>>31
数十行にわたるコードのメンテぐらいで不満がある程度なら、
プログラム書くのは向いていないので、長いコードは書かないほうがいいと思う。
あと、ただ一つ変えれば全部まとめて直せるコードでも、
そのコードを知らない他人から見れば、結局全部見ることになると思うよ。
本当にそれでいいのかという部分も含めてテストすることになるから。
で、結局のところ別にどっちでもいいとなる。
33:デフォルトの名無しさん
15/07/06 08:42:45.53 fhp0P+BJ.net
>>31
項目増えて、途中に一行追加されたら似たようなことになるでしょ
34:デフォルトの名無しさん
15/07/06 13:55:10.74 henE3y4I.net
向き不向きに関する思い込みだな
35:デフォルトの名無しさん
15/07/06 17:53:09.90 J6N5PkHq.net
>>32
数十行だろうと数万行だろうと
ひとつの変更で複数の変更箇所が出てくる構造自体のほうが問題だと思うよ
>そのコードを知らない他人から見れば、結局全部見ることになる
云々はベタに一個ずつ指定していても同じ確認コストを要するわけで
適切なコメントをつけとくなりなんなりで対応しないとしょうがないんじゃないの？
>>33
いや、だから
>レイアウト自体の変更ではなく、全体を一気に動かすなら
という前提条件をつけた上での話をしてるんだけど
36:デフォルトの名無しさん
15/07/06 18:38:29.56 fhp0P+BJ.net
>>35
> という前提条件をつけた上での話をしてるんだけど
そう言うケースがどれだけあるんだ？
って話でしょ
滅多にないケースに対応するために分かりにくい方法をとる必要はないよね
37:デフォルトの名無しさん
15/07/06 21:37:27.39 J6N5PkHq.net
>>36
表の頭にあとから表題を付け加えるとかで
全体を動かすケースってのはそれなりにあると思うよ、
仕様変更で項目順の変更とか途中に項目追加とかのほうが多いだろうけど。
それに、全体をずらすってのは>>29の発案であって俺が言い出した話じゃないんで
俺はあくまで他人から与えられた前提条件で考えただけの話
38:デフォルトの名無しさん
15/07/06 22:43:31.22 fhp0P+BJ.net
>>37
> 仕様変更で項目順の変更とか途中に項目追加とかのほうが多いだろうけど。
普通はそうでしょ？
> 俺はあくまで他人から与えられた前提条件で考えただけの話
あまりない条件だけ考えることになんか意味があるのか？
39:デフォルトの名無しさん
15/07/06 23:03:55.23 J6N5PkHq.net
>>38
そっちのが多いとは言ったが、全体を動かすのもそれなりにあるって言ってるじゃん
滅多にないとかありえないとかいうほどのレアケースではないよ
40:デフォルトの名無しさん
15/07/06 23:42:36.40 QbnSMTRw.net
>>39
> ありえないとかいう
誰もそんなことは言ってないだろ？
お前さんも認めてるように
> 仕様変更で項目順の変更とか途中に項目追加とかのほうが多い
なら、そっちの対応を優先して設計した方がいいんじゃね？
って話
41:デフォルトの名無しさん
15/07/06 23:52:37.58 UMBaWGrv.net
>>37
別にセルのアドレスを固定で持ってようが、一つのアドレスに対して
相対で持ってようがどっちでもいいだろ
ケースバイケースで使い分けようとは思わないのか？
俺が言ったのは数十個（行）程度の修正から避けるために
相対座標で組んだ方が良いと思っているならプログラム組むのは
向いてないってことだよ
だから、お前は長いソースを組むような仕事は向いてないよって言ったんだよ。
せいぜい短く済むようなのを探しとけｗ
分かりやすいソースのほうが、修正工程の見積もりだって立てやすい
お前のいう相対座標は、その一つの絶対座標に対して成り立っているんだから
見出しが追加されてずれる程度ならいいが、途中の箇所に複数追加変更されたら
むしろ修正面倒なんじゃね？
数万も入力させるセルがあるなんてシートの設計のがおかしいと思うが
数万のセルがあちらこちら変更になるのなら簡単で見やすい定義を切っている
ほうが引き継ぎもしやすいし、修正もしやすいってわからんのか？
42:デフォルトの名無しさん
15/07/07 05:36:44.07 PlDHyacp.net
>>40
ああ、ごめん
「ありえない」じゃなくて「あまりない」だったか
どっちにせよレアケースではないのでそこが重要とは思わんけど
>>41
おれも「ひとつの手」だといってますよね？
ということはそれが絶対ということではないですよ。
まぁ、全部直値で指定する場合の変更コストとOffsetで記述した場合の変更コストが
それほど変わるとも思えませんが。
>>29のっぽい例で言えば
工事_A = "AO1" → 工事_A = "AO2"
工事_B = "AP1" → 工事_B = "AP2"
工事_C = "AQ1" → 工事_C = "AQ2"
・・・
というのが
工事_A = "AO1" → 工事_A = "AO2"
工事_B = Range(工事_A).Offset(0,1) → 工事_B = Range(工事_A).Offset(1,1)
工事_C = Range(工事_A).Offset(0,2) → 工事_C = Range(工事_A).Offset(1,2)
・・・
になる程度の話でしょ？
んでもって、何もわからない誰かに保守を引き継ぐのであれば表のレイアウトについてはコメントに書いておくべき物じゃないですかね？
後任の人があらかじめ何の予備知識もないなら全部の要素を直接指定しているのかそうでないか自体、
少なくともコードを全部読まなきゃ判断できないわけで、それなら相対指定で書いてもおなじことです。
43:デフォルトの名無しさん
15/07/07 05:42:25.10 PlDHyacp.net
やべ、工事_AだけRangeで指定してなかったし、全体をずらすだけなら
工事_B以降には変更ないわ
工事_A = Range("AO1") → 工事_A = Range（"AO2"）
工事_B = Range(工事_A).Offset(0,1) → 工事_B = Range(工事_A).Offset(0,1)
工事_C = Range(工事_A).Offset(0,2) → 工事_C = Range(工事_A).Offset(0,2)
・・・
44:デフォルトの名無しさん
15/07/07 05:48:03.16 PlDHyacp.net
さらに間違ってた
工事_AがRange型ならそれ以降にRange(工事_A)なんて書く必要なかった
まぁ、何も知らずにコードを読んで表のレイアウトを理解できるかどうかとか
表の変更にかかるコストとかには大して影響ない話だけど
45:デフォルトの名無しさん
15/07/07 07:47:40.19 yxtOW/kO.net
>>42
> どっちにせよレアケースではない
いや、レアケースかどうかじゃなくて
> 仕様変更で項目順の変更とか途中に項目追加とか
と比較しての話なんだが...
ひょっとして論理的な思考ができない人なの？
> 少なくともコードを全部読まなきゃ判断できないわけで、それなら相対指定で書いてもおなじことです。
セルアドレスなら一目でどこを指してるのかわかるけど、Offset( ) だとちょっと面倒でしょ？
そもそも、自分で間違えてるようじゃ説得力 0 だしね w
46:デフォルトの名無しさん
15/07/07 08:33:01.57 PlDHyacp.net
>>45
とにかく、コストがさほど変わらん以上、そういうことは重要ではないよね、
って言ってるんだけどそれが論理的に理解できない人なの？
んで、Offsetで（R1C1形式で）書くのがいやなら
RangeでA1形式で書けばいいじゃん
そんなの瑣末なことでしょ
あと、間違えたのは夜中にトイレで起きたときに書き込んだからで
たぶんあのときだとどっちで書いても間違えてる
（普段からR1C1形式で書くのでどっちかってーと俺はA1形式のほうが間違える）
47:デフォルトの名無しさん
15/07/07 08:3
48:4:48.94 ID:xJTxnmtV.net
49:デフォルトの名無しさん
15/07/07 12:53:11.67 yxtOW/kO.net
>>46
> とにかく、コストがさほど変わらん以上、そういうことは重要ではないよね
どう書いてもたいして変わらんから、ごちゃごちゃ言い出した >>29 とか >>31 がバカと言う主張なら納得
> RangeでA1形式で書けばいいじゃん
そう言う問題じゃない
Range("E3").Range("G4")
ってどこ？
ってすぐわからんでしょって話
まあ君にとってはどうでもいい話だったな w
50:デフォルトの名無しさん
15/07/07 13:20:08.70 PlDHyacp.net
>>48
全体を動かす際のコストは明らかに相対参照のほうが上で、
レイアウト変更ならどっちもどっち、って話だよ。
俺個人としては表の各要素の絶対座標よりも表のレイアウト内での相対位置のほうが
重要だと思うんで可読性は相対表記のほうが上だと思う。
もちろん、range("E3").Range("G4")とは書かないよ
だからこそのOffset表記なんであって
仮に書くなら
工事_A = Range("G4")
工事_B = 工事_A.Offset(0,1)
みたいに書けば表の中での位置関係が分りやすい（、と思うってだけなんだけどね）
んでさ、一々相手の人格攻撃するのは止さないか?
反論するのは難しくないけどめんどくさいし
貴方にとっても内容を論理的に言うこと以外に自説の説得力を増す手法なんてないよ
51:デフォルトの名無しさん
15/07/07 16:17:25.40 yxtOW/kO.net
>>49
> レイアウト変更ならどっちもどっち、って話だよ。
そんな思い込みを前提にされてもなぁ...
> 重要だと思うんで可読性は相対表記のほうが上だと思う。
> だからこそのOffset表記なんであって
応用力ないの？
> Range("E3").Range("G4")
> ってどこ？
って書いてあるんだから、レスする前に
Range("E3").Offset(3,6)
と
Range("K6")
のどっちが可読性が高いかとか考えないのか？
> めんどくさいし
君にはレスしないと言う自由があるよ
反論するのも苦労してるみたいだしね w
52:デフォルトの名無しさん
15/07/07 16:28:56.71 PlDHyacp.net
>>50
>どっちが可読性が高いかとか考えないのか？
うん、だからOffsetのほうが読みやすいよ
>レスしないという自由
は確かにあるし
君にも好き勝手な方言を垂れ流す手段（自由や権利ではない）はあるんだけど、
こうやってきちんと反論しといたほうが良さそうなんで仕方ないからそうしてる
53:デフォルトの名無しさん
15/07/07 16:29:56.64 PlDHyacp.net
変換ミスしちゃった
×方言
○放言
54:デフォルトの名無しさん
15/07/07 17:37:36.10 yxtOW/kO.net
>>51
> うん、だからOffsetのほうが読みやすいよ
へー、そうなんだー、すごいねー（棒
基準の位置と Offset の値の二個読まないといけないだけでも直書きより不利なのに、読みやすいとか笑えるわ w
あと方言とか意味不明
もう少し自分の書き込み見直した方がいいんじゃね？
55:デフォルトの名無しさん
15/07/07 18:35:20.15 PlDHyacp.net
>>53
絶対アドレスが必要ならそうだけど
通常は表内部のレイアウトが問題なんだから
絶対アドレスは気にする必要ないよね？
それともいちいち「何々の項目はF5だ」とか気にして作業してるの？
俺は「表の1列目は@@@の項目で、2列目は**＊の項目だ」みたいな捉え方はするけど
絶対アドレスが必要になったことなんてないよ
変換ミスについてはまぁ申し訳ない、だけどそれは議論の結果には影響ないと思う。
56:デフォルトの名無しさん
15/07/08 10:49:05.20 U80w5CD7.net
>>54
> それともいちいち「何々の項目はF5だ」とか気にして作業してるの？
いちいちそんなことをしたくないから定数で定義してるんだよ
意識するのは定数を定義するコードを書く時だけ
> 絶対アドレスが必要になったことなんてないよ
Offset( ) で書くにしても、基準のセルは絶対アドレスで指定するだろ
57:デフォルトの名無しさん
15/07/08 11:43:46.03 KchLLrX8.net
>>55
まだやるんかｗ
いや、基準のセルは俺も絶対アドレスで指定してますよね。
それ以外の部分では表の中での位置関係（表の何行目であるとか何列目であるとか）
についての情報のみが必要であって
それは基準セル（通常は左上端）からの相対位置が分ればそれで事足りると言ってるのです。
むしろ個々の要素についてまで絶対位置指定などしても可読性が下がるだけです。
まぁ、これはあくまでも普段からR1C1形式を好んで使ってる人間（つまり俺）の意見です。
この判断の優劣・良否・正誤等々については個々人の好みも有るでしょうから
どちらの考え方が優れているとかそういう視点での議論には決着がつかないと思いますけどね。
58:デフォルトの名無しさん
15/07/08 12:37:46.79 U80w5CD7.net
>>56
> むしろ個々の要素についてまで絶対位置指定などしても可読性が下がるだけです。
根拠もなしに下がるとか言われてもなぁ
とりあえず、
個人の感想です
って書いといた方がいいんじゃないか w
Excel マスターでない一般人は
>> 基準の位置と Offset の値の二個読まないといけないだけでも直書きより不利なのに、読みやすいとか笑えるわ w
だろ
> どちらの考え方が優れているとかそういう視点での議論には決着がつかないと思いますけどね。
はい、ループいただきましたぁ w
>>48
> どう書いてもたいして変わらんから、ごちゃごちゃ言い出した >>29 とか >>31 がバカと言う主張なら納得
59:デフォルトの名無しさん
15/07/08 12:51:28.44 5jcTfYer.net
ID導入されて、本当によかった
60:デフォルトの名無しさん
15/07/08 13:02:19.06 KchLLrX8.net
>>57
>個人の感想です
>って書いといた方がいいんじゃないか
？
書いてますよね？
R1C1を使い慣れてる人間の意見だって。
一般人の定義がわからないけど
俺は一般人こそ表の体裁（つまり相対位置による個々の要素の関連）には気を使うけれど
その座標なんてものには関心を持たないと思いますよ。
俺自身一般人のつもりですし。
表の修正があったときに「L列から4列ずらす」ってのと
「12列目から4列ずらす」ってののどっちが分かり易いかなんて
俺に言わせりゃ一目瞭然で後者なんですけど、
あなたの言う一般人は前者を選ぶってんでしょ？
それについての価値観云々を論じることに結論が出るのかって話です。
>どう書いても
云々についてはすでに論述済みですが
全体を動かす場合には
基準セル1ヶ所のみを絶対参照で指定するほうが明らかにすぐれていますし、
レイアウトの変更であっても
Range表記で基準位置からの相対指定を用いるというのは
あくまで表の体裁の中だけに問題を帰着できるという意味で
レイアウトを記述するための手法として間違ってないと思います。
ところで、なんだか無理筋で反論続けてるように見えるのですが大丈夫ですか？
一応、われわれの議論を第三者が読んでどう判断するか
冷静に考えたほうが良いと思いますよ。
61:デフォルトの名無しさん
15/07/08 14:00:10.16 U80w5CD7.net
>>59
> 書いてますよね？
> R1C1を使い慣れてる人間の意見だって。
皮肉も理解できないの？
そもそもそれはその上の
>> 根拠もなしに下がるとか言われてもなぁ
にかかってるんだけど、そこはスルーなのな w
> 表の修正があったときに「L列から4列ずらす」ってのと
> 「12列目から4列ずらす」ってののどっちが分かり易いかなんて
あのさあ、反論できずに悔しいのはわかるけど、「ずらす」なんて変更がどれだけあるんだ？
って話に戻すの？
普通は、>>13 の例だと 注文書番号 を少し左に寄せたいから AO1 から AN1 に移動させてくれって言われるんじゃね？
直書きならその部分のみを AO1 から AN1 に書き換えるだけ
で、君の方法だとどうなるわけ？
可読性がすごくいいんでしょ？
示してみてよ。
> ところで、なんだか無理筋で反論続けてるように見えるのですが大丈夫ですか？
> 一応、われわれの議論を第三者が読んでどう判断するか
> 冷静に考えたほうが良いと思いますよ。
鏡見た方がいいと思うよ w
62:デフォルトの名無しさん
15/07/08 15:15:33.15 KchLLrX8.net
>>
63:デフォルトの名無しさん
15/07/08 15:39:00.14 KchLLrX8.net
>>60
>根拠
ですから、>>59とかそれ以前の>>49とか>>54とか>>56とかは
全部根拠について書いてるんですが。
意図的なスルーですか?
>普通は、>>13 の例だと 注文書番号 を少し左に寄せたいから AO1 から AN1 に移動させてくれって言われるんじゃね？
>直書きならその部分のみを AO1 から AN1 に書き換えるだけ
>で、君の方法だとどうなるわけ？
いや、オフセット一個増やすだけでしょ
ところで、注文書番号 のAOは一番右端の列っぽいのであえてそこを選んでるんですか?
たとえばB列の外注業者名がずれたら残り全部ずれると思うんですけど。
んでもってそういった場合（一番右端の要素以外の変更の場合）、
「どこどこに@@って項目を追加するから、表を**の項目から全部右にX個ずらして」
みたいな話になるんじゃないでしょうか。
どうみたってオフセットのほうが簡単じゃないですか。
>鏡見た方がいいと思うよ
もちろん、俺は第三者を意識して書いてるので問題ないです。
貴方もそれで良いならこれ以上とくに言うべき事も有りません。
なお>>61は打ち間違えて送信しちゃいました。
たびたびスマン
64:デフォルトの名無しさん
15/07/08 19:21:57.08 U80w5CD7.net
>>62
> ですから、>>59とかそれ以前の>>49とか>>54とか>>56とかは
> 全部根拠について書いてるんですが。
レス番で書かれてもわからないので、該当の箇所を引用してみて
> いや、オフセット一個増やすだけでしょ
で、それが本当に AN1 を指してるのかどうやって確認するの？
可読性がいいんだから一目でわかるんだよね？
早く示してみてよ。
> ところで、注文書番号 のAOは一番右端の列っぽいのであえてそこを選んでるんですか?
一番最初の項目を選んだだけですよ
> みたいな話になるんじゃないでしょうか。
またその話？
>>37
> 仕様変更で項目順の変更とか途中に項目追加とかのほうが多いだろうけど。
って書かれてますよ。
> 貴方もそれで良いならこれ以上とくに言うべき事も有りません。
人のことをとやかく言う前に...
> なお>>61は打ち間違えて送信しちゃいました。
落・ち・着・け・よ
65:デフォルトの名無しさん
15/07/08 21:05:13.66 G6HCaUBj.net
それよりParamArrayが参照渡しできないのはなぜなんだせ？
66:デフォルトの名無しさん
15/07/08 21:21:46.83 KchLLrX8.net
>>63
>該当の箇所を引用してみて
>>俺個人としては表の各要素の絶対座標よりも表のレイアウト内での相対位置のほうが重要だと思うんで
可読性は相対表記のほうが上だと思う。
>>絶対アドレスが必要ならそうだけど通常は表内部のレイアウトが問題なんだから絶対アドレスは気にする必要ないよね？
>>表の中での位置関係（表の何行目であるとか何列目であるとか）についての情報のみが必要であって
それは基準セル（通常は左上端）からの相対位置が分ればそれで事足りると言ってるのです。
>>俺は一般人こそ表の体裁（つまり相対位置による個々の要素の関連）には気を使うけれど
その座標なんてものには関心を持たないと思いますよ。
以上、大体全部同じことの繰り返しですが、この辺が俺の主張する可読性に関する意見の根拠です。
本文長すぎるんで続きます。
67:デフォルトの名無しさん
15/07/08 21:22:59.14 KchLLrX8.net
>>65の続きです
ただ、ここに来て根本的な部分の食い違いを実感してるのですが、
>それが本当に AN1 を指してるのかどうやって確認するの？
>可読性がいいんだから一目でわかるんだよね？
というあなたの指摘自体が俺の考えている可読性の概念とは食い違ってます。
あなたは結局シート内でのセルの絶対位置指定やその確認でしか可読性を考えていないようで
俺は逆にそんなものにはこだわらず表のレイアウト中での位置指定という視点で可読性を捉えているわけです。
あなたのやり方は確かにあなたの言うようなシチュエーションでは有効でしょうが、
逆にここまでで俺の主張したようなシチュエーションでは可読性やメンテナンス性が劣るということになります。
たとえばこれですけど
> 仕様変更で項目順の変更とか途中に項目追加とかのほうが多いだろうけど。
途中に項目追加したらそこから先は全部ずれるでしょ？
（よほどスカスカの表なら別ですが、それなりに埋まってる表の場合にはそうならざるを得ません。）
そうするとセルアドレス全部直さなきゃならなくなります。
その場合には全部同じ変更（当該変更箇所を一律にオフセットずらす処理）
で対処できることってメンテナンスには大きなアドバンテージだと思いますよ。
まさか普通の業務ってのがスカスカの表でセル一個だけ変更する作業ばかりだなんて虫の良い事言わないですよね？
実際俺んとこじゃあこういう多数のセルを移動するような業務ばかりなんで俺にとってはそっちのほうが普通なんですよ。
>落・ち・着・け・よ
まぁ、打ち間違いとか変換ミスは良くやっちまうんでスミマセンとしか良いようないけど
重要なのは主張の論旨であってそれは読み手側にある程度の知識があれば
変換ミス程度は何がいいたいのか読解できるだろうからまぁ別にいいかなと思ってます。
68:デフォルトの名無しさん
15/07/08 21:45:49.65 t0H2tWbI.net
>>65
根拠頂戴って言ったら
> >>俺個人としては表の各要素の絶対座標よりも表のレイアウト内での相対位置のほうが重要だと思うんで
> 可読性は相対表記のほうが上だと思う。
～と思うってどこが根拠なんだよ... w
単なる君の意見でしょ
>>66
帳票って見たことないの？
結構スカスカだよ
例えばこんな奴
URLﾘﾝｸ(garage.plus.co.jp)
表の部分は元々複数出力するので VBA でループ回すから位置を変えるのは問題ない
ありがちなのは会社名とか見積もり番号の位置を変えたいとかで、他に影響することはあまりない
69:デフォルトの名無しさん
15/07/08 22:44:42.67 KchLLrX8.net
>>67
いや、それ言い出したらあなたの主張だって単なる個人の意見ですよ
たとえば帳票はスカスカだってのがあなたの意見なわけですが
そういうのじゃない表だってあるんですよ
ウチは科学技術系の職種でして
縦に時系列、横に計測項目（たとえば気温だったり風速だったり）で
複数の計測データをズラズラと並べるんですが
計測するパラメータが増えたり減ったりするんで表のレイアウトが変わるわけです。
そうすると一気に複数個所いじるのが当たり前になるわけです。
これってこっちの業界じゃあ結構当たり前のことで、
そういう時に絶対セル指定なんて使いづらくてやってらんないですよ。
あなたの主張が普遍的意義を持ってるならともかく、
こういう明らかな反例がある以上、
俺の根拠のみを私的意見だと言い切る資格はあなたにはないです。
70:デフォルトの名無しさん
15/07/08 23:06:29.04 u2i+4Vxj.net
Word VBAで [Shift+Enter] を押したとき、「Chr(11)」が入るみたいだけど、これって何なんですか？
アスキーコード一覧だとVertical Tabulation(垂直タブ)って書いてあるけど、
MSDNだと「タブ文字 (縦)。Microsoft Windows では使用できません。」って書かれててよく分からないんだけど、
Windows OSでは使わないけど、word(VBA)だと使ってる文字コードだよってこと？
wordもwindows版だから、Windowsでは使用できませんってのがよく分からないんですが・・
MSDN
URLﾘﾝｸ(msdn.microsoft.com)
アスキーコード一覧
URLﾘﾝｸ(e-words.jp)
71:デフォルトの名無しさん
15/07/08 23:43:30.20 t0H2tWbI.net
>>68
> いや、それ言い出したらあなたの主張だって単なる個人の意見ですよ
残念ながら違う
例えば...
> 基準の位置と Offset の値の二個読まないといけないだけでも直書きより不利
これには事実しか書いてない
俺の意見ではない
また...
> たとえば帳票はスカスカだってのがあなたの意見なわけですが
のようにスカスカに感じるかどうかは個人差があるから、実際の例を出してる
スカスカに思うかどうかは実物を見た人が決めればいい
> そういうのじゃない表だってあるんですよ
それはあると思うが、>>13 の帳票が...
> 計測するパラメータが増えたり減ったりするんで表のレイアウトが変わるわけです。
とは全然違うことぐらいはわかるだろ？
また、どっちの帳票が世の中に多いかもわかるだろ？
あと、時系列で入力するってことは複数の行を扱うんだろ？
>>67 にも書いたけどそう言う奴は普通 VBA のループで処理するから、元々絶対アドレス云々の話じゃないと思うんだが
72:デフォルトの名無しさん
15/07/09 00:51:54.46 FZuq59n/.net
>>70
>これには事実しか書いてない
それ以前の前提条件として絶対アドレスを取得する必要があるかどうか
絶対アドレスでの指定が有効かどうか
といった論点が抜けてますよ。
あとわたしがスカスカに対比して問題にしてるのは
つまり他の箇所を巻き込んで移動させる必要が
生じるかどうかを区別していってるのであって
見た目がどうこうの問題ではありません。
複数個所を同時に変更するかどうかです
さすがにそのぐらいは前後の文脈から汲み取っていただかないと困ります。
どうにもご自分の土俵のみで話を進めようとしてらっしゃるようですが
どちらが多いかはともかくとして
（実際のところ世の中に技術系の業種とそうでない業種がどれぐらいの割合で存在してるかなんて知りません）
それにしたって>>36でいわれるような「滅多にないケース」というほどではないでしょうから
それについての言及はあってしかるべきです。
念のため指摘しておきますが
パラメータの増減は列方向ですしループ云々とは関係ないですよ
73:デフォルトの名無しさん
15/07/09 08:21:56.29 n0IdOdTN.net
>>71
> それ以前の前提条件として絶対アドレスを取得する必要があるかどうか
だから相対の方が可読性が高いと言うなら、実例と根拠を出せばいいだけのこと
> 複数個所を同時に変更するかどうかです
個々の項目�
74:ﾌ細かい位置調整っ言うのは珍しくないよ > どうにもご自分の土俵のみで話を進めようとしてらっしゃるようですが 何回も書くけど、見積書等の帳票と君のところの Excel シートみたいなのどっちが多いと思う？ > どちらが多いかはともかくとして 重要だけど不利だからスルーするってこと？ w > （実際のところ世の中に技術系の業種とそうでない業種がどれぐらいの割合で存在してるかなんて知りません） 技術系の業種でも会社なら見積書とか納品書とかの帳票はあるんだよ > それにしたって>>36でいわれるような「滅多にないケース」というほどではないでしょうから そこまで言うなら、どれぐらいあるんだ？ 根拠とともに示してくれよ > 念のため指摘しておきますが > パラメータの増減は列方向ですしループ云々とは関係ないですよ いや、少なくとも行方向はループで処理するから元々絶対アドレスでは無理だろ そう言う状況なら列側も相対にするのは珍しくない ただし、今回の話とは状況が違うからあまり参考にならないって話
75:デフォルトの名無しさん
15/07/09 08:53:31.52 FZuq59n/.net
>>72
>重要だけど不利だからスルーするってこと？ w
>そこまで言うなら、どれぐらいあるんだ？
>根拠とともに示してくれよ
何でこっちにばかり立証責任があるんでしょうか？
あなたが具体的な根拠を示してくださいよ
データ処理系の表なんて日本中の研究機関その他で当たり前に動いてますんで
この辺はどっちが多いとか少ないとか証明するのは無理だと思います
ですので俺は遠慮しときます
>いや、少なくとも行方向はループで処理するから元々絶対アドレスでは無理だろ
データの頭にヘッダってのが付いてるときにループ開始行が変動するってのも割りとよくある話なんで
そこはやはりループ無関係ですよ
てかあなたこっち系の話知らないだけじゃないですか？
>ただし、今回の話とは状況が違うからあまり参考にならないって話
「今回の話」ってのを勝手に局限されても困るんですけど。
表の位置指定について話してたのに
その中で絶対アドレス指定が有利な状況ばかりに
限定して話を進めないでもらえますか？
それが多いとか少ないとかを論拠にするのは
あなたがきちんと証明してからにしてくださいね
76:デフォルトの名無しさん
15/07/09 10:18:34.30 SLWTmnwe.net
>>69
> Word VBAで [Shift+Enter] を押したとき、「Chr(11)」が入るみたいだけど、これって何なんですか？
どこでShift+Enterを入力して、それがChr(11)だと確認した方法を教えて。
77:デフォルトの名無しさん
15/07/09 13:00:12.23 n0IdOdTN.net
>>73
> あなたが具体的な根拠を示してくださいよ
書いてあるでしょ？
>> 基準の位置と Offset の値の二個読まないといけないだけでも直書きより不利
> データ処理系の表なんて日本中の研究機関その他で当たり前に動いてますんで
うん、その研究機関とかが日本中の企業より多いといいね w
> この辺はどっちが多いとか少ないとか証明するのは無理だと思います
君には無理だろうから遠慮するのは正解
企業統計とか研究機関の数って公表されてて、ざっくり研究機関が 8,000件、会社は 280万社ぐらいと言うことぐらいは覚えていても損はないよ
> データの頭にヘッダってのが付いてるときにループ開始行が変動するってのも割りとよくある話なんで
で？
普通に組んでいたら開始行を変えるだけでしょ？
> そこはやはりループ無関係ですよ
まさかベタ書きしてるの？ w
> 「今回の話」ってのを勝手に局限されても困るんですけど。
元々、>>13 の話
コメント見る限りは注文書の入力用シートの話であることぐらいは理解しようよ
78:デフォルトの名無しさん
15/07/09 22:32:24.92 UwaB1poA.net
>>74
wordで文章の途中でShift+Enterを入力して、
文章を全部選択した状態で、
マクロで↓みたいなのやったら置換されました。
Sub ReplaceSample()
Selection.Text = Replace(Selection.Text, Chr(11), "改行")
End Sub
79:デフォルトの名無しさん
15/07/10 22:10:41.04 dJeHHxuR.net
>>69
分かる人いないですか？
80:デフォルトの名無しさん
15/07/10 22:14:19.91 I8IKrBJT.net
>>77
その文字がいらないんなら除去すれば？
81:デフォルトの名無しさん
15/07/11 02:27:12.83 lfRSVC1W.net
>>77
>これって何なんですか？
WordでSHIFT+Enterを入力したときに入る文字です
>MSDNだと
そのページはVBAのページではありません
VBScriptで定数vbVerticalTabが使えないと言ってるだけです
82:デフォルトの名無しさん
15/07/11 02:48:34.31 vE1M/d3c.net
>>79
VBAのページでも同じこと言ってるよ
URLﾘﾝｸ(msdn.microsoft.com)
83:デフォルトの名無しさん
15/07/11 03:32:44.18 lfRSVC1W.net
>>80
英語のページだとNot usefulって書いてあるのか
使ってはいけないと言う意味での「使えません」じゃないって事だな
まあ、実際にWordで使ってるんなら使えばいいんじゃね
84:デフォルトの名無しさん
15/07/11 07:20:42.92 SvdcMd32.net
>>69
なんなですか？
って言われても、VT のコードって言うしかない
そのコードをどのように解釈するかはアプリケーション次第
85:デフォルトの名無しさん
15/07/14 15:37:53.39 8d4NQeRS.net
>>75
もうやめとけ。
そいつは長いコード書いちゃいけないって俺は言っただろ。
そのうち事故るよ。
86:デフォルトの名無しさん
15/07/14 20:08:07.90 lKDNL4b3.net
>>81-82
んじゃあ「Chr(11)」はタブ文字 (縦)ってことで、それ以上でもそれ以下でもないということですね。
ありがとうございました。
87:デフォルトの名無しさん
15/07/27 22:27:48.03 FZObgN+M.net
MSOfficeのパワーポイント2013のVBAについて、助言をお願いします。
現在、フォーマット修正用に、色々と文字列置換のVBAを作っています。
しかし、shape単位で置換を行うのですが、shape内のフォーマットが全て最初の文字のものになってしまいます。
ctrl+Hキーでできる置換のように、フォーマットを変えずに文字だけ置換する方法があれば教えて下さい。
よろしくお願いします。
88:85
15/07/29 22:12:54.99 JQYDYy2G.net
すいません、勘違いがありました。問題なく出来ました。
89:デフォルトの名無しさん
15/08/04 13:20:19.14 Xu3GeQZL.net
OWCのグラフで値が空のとこを非表示にするにはどうしたらいいですか？
90:デフォルトの名無しさん
15/08/18 10:58:33.73 34FW6E1T.net
>>87
値が空のデータを削除したら？
91:デフォルトの名無しさん
15/08/18 16:30:28.51 1oq6H4HA.net
PowerPointでpptxを開いてPDFで保存するvbscriptを
書いたんですが発行中ダイアログが出てしまいます。
これを出ないようにする方法はないでしょうか？
92:デフォルトの名無しさん
15/08/19 17:21:07.83 leFwNaH1.net
>>89
ここVBAのスレ・・・
93:デフォルトの名無しさん
15/08/19 21:37:19.12 ojYTqzwH.net
VBScript≠VBA
94:デフォルトの名無しさん
15/08/22 05:31:09.55 dBcaDCdy.net
VBScriptのスレって池沼みたいな変なコテハンがいて関わりたくないのよね
95:デフォルトの名無しさん
15/08/30 22:49:46.81 PtUjiQ8D.net
>>89
試しにパワポにマクロでＰＤＦ出力を作ってみましたが
別に何も出ませんでしたよ？
Office2013ですけど。
96:デフォルトの名無しさん
15/09/03 18:14:14.52 oCFXB/C6.net
>>93
このソースだと出てしまいます。何か違いますでしょうか？
Option Explicit
Dim inFilePath
inFilePath = Wscript.Arguments(0)
Dim outFilePath
outFilePath = Wscript.Arguments(1)
Dim objPowerPoint
Set objPowerPoint = CreateObject("PowerPoint.Application")
dim pre
set pre = objPowerPoint.Presentations.Open(inFilePath, false, false, false)
dim wdFormatPDF
wdFormatPDF = 32
call pre.SaveAs(outFilePath, wdFormatPDF )
objPowerPoint.Quit()
Set objPowerPoint = Nothing
97:デフォルトの名無しさん
15/09/03 20:46:42.16 Hlg8Zb4Z.net
>>94
どうもです
こちらへ誘導したExcel総合相談所 119の171です
私パワポ持ってないんで確認できないんですけど、組み込み定数の違いってなにか関係ないですかね?
■[Tips]PowerPoint 2010 のPDF変換機能を利用して、Powerpointを起動せずにPDFに変換するVBSスクリプト
URLﾘﾝｸ(d.hatena.ne.jp)
をみると
パワポのファイルフォーマットでPDFをあらわすのは"ppSaveAsPDF"(=32)で、
貴方のコード中の"wdFormatPDF"(=17)はワードのファイルフォーマットでPDFをあらわすものみたいですよ
参考までにマイクロソフトのリファレンスもどうぞ
PpSaveAsFileType 列挙 (PowerPoint)
URLﾘﾝｸ(msdn.microsoft.com)
Wdsaveformat クラスの列挙 (Word)(機械翻訳)
URLﾘﾝｸ(msdn.microsoft.com)
ぜんぜん見当違いだったらごめんなさい
98:95
15/09/04 09:05:49.13 RG/2/qam.net
>>94
よくみたら組み込み定数じゃなくて変数で宣言してましたね
見当違い以前のはなしでした
本当にごめんなさい
99:デフォルトの名無しさん
15/09/05 19:56:12.09 852S1qdl.net
>>94
93ですけど、そのソースをコピペしてコマンドプロンプトから
実行してみましたが、家の環境(Win10)では普通にPDFできますよ？
ダイアログも出ませんでしたよ。
実行した時はスライド1枚の軽いPPTでやったのですが、
94さんは、もしかしたら結構スライド数多いPPTだから出るんですかね？
100:デフォルトの名無しさん
15/09/05 20:01:53.43 852S1qdl.net
出てるダイアログが再現できないので、わからないのだけれども
↓のプロパティでどうにもならないんだとしたら、諦めるしかないのかも。
Application.DisplayAlerts
URLﾘﾝｸ(msdn.microsoft.com)(v=office.15).aspx
101:デフォルトの名無しさん
15/09/07 12:54:20.03 NloI4YQK.net
>>97
スライド数は２０くらいでしょうか。
>>98
試してみましたが残念ながら出てしまいました。
困りました。
102:デフォルトの名無しさん
15/09/08 02:01:39.32 m7aBfM8f.net
Windows10でie操作のマクロって動くのですか？
edgeは互換性あるわけでは無いですよね。
別にインストールするのですしょうか。
これでクリエイトするオブジェクトです。
CreateObject("InternetExplorer.Application")
103:デフォルトの名無しさん
15/09/08 12:06:16.04 9vjtcLlt.net
Windows10でもieは入っているようです
URLﾘﾝｸ(simply-assi.com)
なら 操作は可能でないかな?
Windows10持ってるなら テストしてみるべし
自分は Win8.1だから無理だけど
104:デフォルトの名無しさん
15/09/08 14:37:39.47 m7aBfM8f.net
>>101
自分も実機がないのよね。
ieが残ってるいうのは聞いてるんだけど、7や8からのアップデートでも、10のクリーンインストールでも何の設定もしないでも動くのかなと。
テストしてる人とかいないかな？
105:デフォルトの名無しさん
15/09/12 05:23:11.91 dQMUA4G2.net
仮想用に買った10のUSBが今日届くから環境作り次第ObjIE試してみますん
106:デフォルトの名無しさん
15/10/07 06:57:36.90 qdqRCjiZ.net
受ける会社大丈夫？
下記の条件が全て当てはまる会社にご注意下さい。
・IT系 in tokyo
・「社名 労基」でググると過去の2chスレが出てくる
・転職会議で2.5点
107:デフォルトの名無しさん
15/10/12 22:50:34.44 Xy8ebFp6.net
今、こんなグラフがあるんですが、
URLﾘﾝｸ(i.imgur.com)
これを↓のようにするにはどのようにしたらいいんでしょうか？
URLﾘﾝｸ(i.imgur.com)
108:デフォルトの名無しさん
15/10/12 23:30:39.75 DYP6asIc.net
>>105
何がしたいの？
回転させたいの？
109:デフォルトの名無しさん
15/10/12 23:35:13.73 oCa7NkmO.net
>>105
もう既に出来ているんじゃないか？
110:デフォルトの名無しさん
15/10/12 23:36:26.71 Xy8ebFp6.net
>>106
縦軸と横軸を入れ替えたいのです。
画像として90度回転させたいわけではないのです。
111:デフォルトの名無しさん
15/10/12 23:40:07.79 Xy8ebFp6.net
>>107
>>105は1枚めの画像を左に90度回転させ2枚めの画像としています。
現在、エクセルで1枚目のようなグラフがあるのですが、
縦軸と横軸を入れ替えたような(2枚目画像のような)グラフをエクセルで作りたいのです。
自分なりにいろいろ試したのですができませんでした。
112:デフォルトの名無しさん
15/10/12 23:41:53.96 oCa7NkmO.net
>>108
入れ替えたグラフを既に作っているじゃないですか?それで完成しているのでは？
113:デフォルトの名無しさん
15/10/13 00:02:52.88 X9js2iKE.net
>>110
ああ、ごめんなさい。
>>105の2枚目の画像は1枚目の画像を画像ビューワーソフトで左回転させたものなんです。
2枚目のようなグラフをエクセルで作成したいんです。
（今は1枚目のようなグラフをエクセルで作った段階です）
114:デフォルトの名無しさん
15/10/13 15:10:52.88 v0mnZW8d.net
>>111
私も、できてると思うんですが？
115:105
15/10/13 18:10:14.52 X9js2iKE.net
改めて質問させてください。
エクセルで↓のようなグラフがあります。
URLﾘﾝｸ(i.imgur.com)
このグラフの縦軸と横軸を入れ替えたグラフを（エクセルで）作成したいのですがやり方がわかりません。
作成したいグラフのイメージは↓のようなものです(この画像は画像ビューワーで作成したものです）
URLﾘﾝｸ(i.imgur.com)
わかりづらくてすみません。
116:デフォルトの名無しさん
15/10/13 18:27:38.73 jBFoqp2r.net
>>113
Excel グラフ 回転
でググるとやり方でてくるけど、これじゃ駄目？
117:105
15/10/13 21:52:53.15 X9js2iKE.net
>>114
今エクセルを試せる環境ではないので検索してみた結果を眺めたところ、
線グラフや面グラフの縦軸と横軸の反転は非常に難しそうな印象を受けました。
難しいというか無理やりというか。
そこまでの労力をかけないと望む結果が得られないということはなんとなくわかりました。
そうであるならば現状を受け入れるしかないのかと思っております。
今回は諦めます。ありがとうございました。
118:デフォルトの名無しさん
15/10/13 22:05:15.03 v0mnZW8d.net
>>115
散布図でやってみるとか？
119:デフォルトの名無しさん
15/10/13 23:07:15.46 /7qkRhU+.net
>>113
Excelの質問かよ…
じゃあなんでExcelの質問スレじゃなくてここで質問するんだ
後出し条件出してくんなカス
120:デフォルトの名無しさん
15/10/14 00:34:55.63 psNeOyD5.net
>>117
あ～～VBA質問スレか・・・
すいません誤爆というかなんというか全く気づかず・・・
121:デフォルトの名無しさん
15/10/27 14:53:17.89 EXphczgr.net
某サイトへのアクセスを1日1回、定時に行うためにIE操作を行うマクロを作っています。
必要な情報を取得した最後にそのサイトをログアウトしてIEを閉じたいのですが、ログアウトをしたときにJavascriptから？のログアウトしましたとの情報メッセージが表示されます。
ググッて調べたところ、以下の様な感じで閉じられるとあったのですが、SendMessageだけがうまくいきません。
ハンドルの値は入っています。
IE11を使っていますが、仕様が変わったのでしょうか？(Windows Updateでの最新)
このメッセージを閉じないとその後の閉じるためのVBAは進んでいるものの、実際の動作をしてくれなくて困っています。
(手動でメッセージを閉じたらその後のIEを閉じる操作が終わった状態にまで一気に進む)
わかる方いましたら教えて下さい。
Const WM_COMMAND As Long = &H111
hWnd = FindWindow("#32770", "Web ページからのメッセージ")
If hWnd <> 0 Then
Rtn = SendMessage(hWnd, WM_COMMAND, vbOK, 0)
End If
122:デフォルトの名無しさん
15/10/28 14:22:04.16 Dygk5TrA.net
>>119
ハンドル違うんじゃね？
123:119
15/10/29 03:59:21.10 l3n8K/Sw.net
>>120
値は取得できてます。
これが本当にメッセージのハンドルなのか調べ方を知らないので合ってるかは分かりません。
FindWindowも間違ってないと思うのですが、こちらも調べてみます。
124:デフォルトの名無しさん
15/10/29 21:40:45.69 Q2L1bFVS.net
WM_COMMANDの右2つの引数の指定の仕方が間違ってるのと
有効なウィンドウハンドルかどうかはIsWindowで取得できる
125:119
15/10/30 00:47:33.04 ZHFQ9n4z.net
Rtn = SendMessage(hWnd, WM_COMMAND, 2, 0)
でうまく閉じてくれました。
>>122さんレスありがとうございます。
126:デフォルトの名無しさん
15/11/03 17:46:00.00 fVYiq8DO.net
質問が2つあります（長文すみませんm(_ _)m
○1点目：vbaを用いた自動化でdiv要素だけのボタンを押す方法
作業->ウェブのあるサービスにログインし、一定の操作をしてからログアウトする
問題->idとpassの入力はできたが、ボタンが押せない
構造的には下記アドレスのログインフォームと似ていて
URLﾘﾝｸ(codepen.io)
上記例の<button class="btn">Login</button>のような
button要素がなく、div要素のみで設計されています
javascript関係かと思い.fireEventや.Script.setTimeoutを調べてみたのですが
div要素には実行されるjavascriptやそのfunctionなどは何も無く、class名だけ書かれています
○2点目：ieオブジェクトのdocumentがローカルウインドウから参照出来ない
上の質問と関係し、ieオブジェクトのdocumentの中身を見ようとしたのですが
document以下が<変数なし>となっており参照出来ません
調べるとskydriveのadd-onを入れる、shellから持ってくる等情報がありますが、いずれでも解決出来ませんでした
なお<変数なし>とは出ていますが、debug.print ie.document.titleなどとすると中身は出力されます
環境
Windows8.1 pro 64bit
excel 2013 32bit：参照設定MS Internet Controls/MS HTML Object Library/OLE Automation
Visual Basic For Applications/ MS Excel 15.0 Object Library/ MS office 15.0 Object Library
ie 11 64bit(32bitでも変わらず）
127:デフォルトの名無しさん
15/11/03 19:21:14.85 elW9O1dh.net
パワポでソフトトーク使いたいんだけど『開発』タブ出すところまではできてもVBAでマクロを記述～っていうのができない。インポートするファイルの在り処か作成法を情弱にも理解できるように教えてほしい…
128:デフォルトの名無しさん
15/11/03 19:22:51.42 elW9O1dh.net
参考にしてるのはこれ。
パワポも２ちゃんも初心者でごめんなさい…
URLﾘﾝｸ(needtec.exblog.jp)
129:デフォルトの名無しさん
15/11/03 19:41:17.58 fVYiq8DO.net
>>125
Alt + F11
130:デフォルトの名無しさん
15/11/04 15:38:11.36 DjYXAcy0.net
127
Visual Basicのウィンドウは出てきたしテキストもコピペしたけど
wavが自分のファイルに保存されない。
マクロ実行しても何も起こらずウィンドウが閉じるだけ。パワポのファイルにも音源は見当たらない。
131:デフォルトの名無しさん
15/11/04 15:56:19.21 Y61Iie1f.net
>>124
1点目はソースがないとなんとも。
2点目はHTMLDocumentあたりで定義したオブジェクト(変数?)にSetしてやれば参照できるよ。
理由はしらんがie.Documentみたいなままだと参照できない。
132:デフォルトの名無しさん
15/11/04 21:25:56.71 NpxeN+NQ.net
>>128
何をしてどうなったのか具体的に書いてもらわないとわかりません
パワポにマクロを組み込んで、softTalkのパスを指定して
スライドのノートに文章を書いて、マクロ実行、までは出来たという理解でOK？
133:デフォルトの名無しさん
15/11/04 21:55:38.97 NpxeN+NQ.net
>>129
レスありがとうございます
2点目はアドバイスの通り、set objDoc = objIe.Document.allとかしたら中身読めました。ありがとうございます！
1点目は情報少なくて申し訳ないです
業務用なので詳細は一部フェイク入れますが、htmlにはinputタグがあるだけで
<input id="id" class="input-text" type="text" ime-mode="disabled"></input>
はあるのですが、idとpassを入れた後に押すボタンが
<div class="btn-control-outer">
<div class="btn-control-inner">
<div class="btn-control-message">OK</div>
</div></div>
というタグだけで作られています
（なおこのタグはjsで動的に作られているようで、IEの要素チェックで確認したものをコピペしています。ソースだとこのタグがありません）
リンク要素のように.clickが出来るものがなく、setTimeOutするにも、タグの中にjavascript:alert();のような記述も見当たりません
トップページのソースでjsを外部参照していたので、改行がないjs（minify化？）ファイルを読み解いていますが
上のdivタグとどうに関係しているのかわからず詰まっている状態です。
134:デフォルトの名無しさん
15/11/05 10:30:26.20 HwmEl5Ub.net
>>131
div ボタンでぐぐったらこんなサイトがあって
URLﾘﾝｸ(lilia-study.com)
ここのサンプルが言っているdivのみのボタンかと思う。
URLﾘﾝｸ(lilia-study.com)
For Each tag In ie.Document.getElementsByTagName("div")
Next
135:デフォルトの名無しさん
15/11/05 10:32:32.99 HwmEl5Ub.net
途中だった
For Each tag In ie.Document.getElementsByTagName("div")
if tag.ID = "aaa" Then
tag.Click
end if
Next
でクリックできた。
そちらのサイトでも動くんでないか？
136:デフォルトの名無しさん
15/11/05 21:56:35.78 CDrat58l.net
パワーポイントで、すべてのシートについて青い文字だけを黒い文字に変換するようなマクロを
作っていただけないでしょうか。
137:デフォルトの名無しさん
15/11/05 23:31:33.31 5frd9spB.net
>>132
アドバイスいただいた方法で出来ました！
div要素をclick出来るとは思っておりませんでした。
本当にありがとうございます。
その後の処理も上で>>119さんのやりとりから調べて目的とする動作が出来ました
合わせて感謝します。
138:デフォルトの名無しさん
15/11/05 23:51:53.10 HwmEl5Ub.net
>>135
こちらもdivがボタンにできるのを初めて知ったので勉強になったよ。
ちなみに119もオレw
139:124
15/11/06 07:09:49.59 I5IXDGW5.net
！Σ（・ω・ノ）ノ
お礼伝わり良かったですｗ
140:デフォルトの名無しさん
15/11/08 22:46:51.63 yp780VFR.net
access2013でフォームからの入力期間の金額を集計してレポート作成をしようとしています。
vbaでレポートボタンを押下した動作と同じコードは存在しますでしょうか。
141:デフォルトの名無しさん
15/11/09 00:38:10.22 lpQ26d6h.net
レポートボタンってのが何の事かわからんが DoCmd.OpenReport使えとかそういう事か？
とりあえずACCESS VBAはそれ用のスレがあるからそっちで聞け
142:デフォルトの名無しさん
15/11/09 02:05:47.54 rGXYqJ1u.net
>>134
すべてのシートの、
すべてのテキストの文字色を、一つずつ調べていき、
(または、1文字ずつ調べながら、)
もしそれが青なら、黒に変更する
143:デフォルトの名無しさん
16/02/17 15:13:29.51 cyifogYg.net
パワポのVBAでお願いします。
ファイル→情報→メディアの圧縮
わVBAからやりたいのですがどのオブジェクトのどのメソッドからやればいいのかわかる方いたら教えて下さい。
音声ファイルの圧縮がやりたいのです。
144:デフォルトの名無しさん
16/02/24 21:04:30.98 faCUrUaa.net
141507
140712
140715
141512
141207
141215
140708
140709
141508
1408
145:07 140703 141509 140815 141503 141208 140907 140315 141209 140915 141203 競馬の三連単の買い目がこのようにある時、マークシート記入枚数を減らすために 14-7,12,15-3,7,8,9,12,15 14-8,9-7,15 140315 とまとめたいのですが、どのように処理すればよいでしょうか？ いずれは金額も考慮したいと考えていますが、現段階では難易度を下げるために同一金額としてください。 同じ理由でここでは頭を固定で例を作成させていただきました。 よろしくお願いします。
146:デフォルトの名無しさん
16/02/24 22:34:57.70 7wWguvAi.net
>>142
VBA関係ないじゃん
書き込むスレ間違ってるよ
147:デフォルトの名無しさん
16/02/24 22:39:06.06 faCUrUaa.net
>>143
他にそれらしいスレがみつからなかったことと、この買い目を出す処理をVBAで行っているのでここで聞いたのですが
適切なスレがありましたら移動しますので、誘導願います
148:デフォルトの名無しさん
16/02/24 23:05:03.48 7wWguvAi.net
>>144
ごめん、>>1 読む限りだとこのスレで問題なさそうね…
すまんかった
149:デフォルトの名無しさん
16/02/24 23:07:19.07 gEXn5/E8.net
でもEXCEL VBAに行ったほういい気がする
どうせEXCELだろ
150:デフォルトの名無しさん
16/02/25 00:31:32.38 lxjkiQUf.net
>>142
そういうのはアルゴリズム系スレの方が受けがいいかと
あんま言語関係ないし
データ構造,アルゴリズム,デザインパターン総合ｽﾚ 2
ｽﾚﾘﾝｸ(tech板)
151:142
16/02/27 08:28:02.19 SRIIhbK2.net
>>147
了解
152:デフォルトの名無しさん
16/03/07 19:56:57.79 IDkrJnKk.net
ミリ秒より短い時間の計測ってどうやるの？
153:デフォルトの名無しさん
16/03/07 20:49:02.27 UbdDFkp+.net
>>149
何を計測したいの？
154:デフォルトの名無しさん
16/03/09 17:27:24.27 ISN2ur/+.net
というかVBA マイクロ秒でぐぐったりしたの？
155:デフォルトの名無しさん
16/03/18 00:50:59.88 QavJ4QpP.net
EXCELのVBAでインデントされたとりあえず下のようなXMLを作成したく
URLﾘﾝｸ(blogs.yahoo.co.jp)
を参考に作成してるのですが、うまく孫要素が作成できません。
どうすれば孫要素が作成できるのでしょうか。ご教示お願いします。
また何と調べればいいのかを教えていただければ幸いです。
環境 windows7 64bit と32bit両方
Excel 2010 64bit と32bit 両方
作成したいXML(括弧は半角だとうまく書き込めないみたいなので全角にしてます)
＜?xml version="1.0" encoding="UTF-16" standalone="yes"?＞
＜ROOT＞
＜TITTLE＞DQ5＜/TITTLE＞
＜CHARACTER＞
＜PERSON＞
＜NAME＞パパス＜/NAME＞
＜HOBBY＞女装＜/HOBBY＞
＜COMMENT＞ぬわーーっっ！！＜/COMMENT＞
＜/PERSON＞
＜PERSON＞
＜NAME＞ゲマ＜/NAME＞
＜HOBBY＞メラミ＜/HOBBY＞
＜COMMENT＞ほっほっほっほっ。子を思う親の気持ちは いつみても いいものですね。＜/COMMENT＞
＜/PERSON＞
＜/CHARACTER＞
＜/ROOT＞
156:デフォルトの名無しさん
16/03/18 01:48:30.33 emFx7ejn.net
>>152
vba xml 生成 とかでググるといくらでもやり方はヒットすると思うけど
具体的にどんなコードのどこで行き詰まってるのか書いてくれないとアドバイスしようがない
157:デフォルトの名無しさん
16/03/18 11:47:02.11 QavJ4QpP.net
＜CHARACTER＞が＜/CHARACTER＞で作成されてしまい、閉じてくれません。また＜PERSON＞などが孫要素になってくれません。
コードはこんな感じです。
URLﾘﾝｸ(pastebin.com)
作成されるXMLは↓です。
＜?xml version="1.0" encoding="UTF-16" standalone="yes"?＞
＜ROOT＞
＜TITTLE＞DQ5＜/TITTLE＞
＜CHARACTER/＞
＜PERSON/＞
＜NAME＞パパス＜/NAME＞
＜HOBBY＞女装＜/HOBBY＞
＜COMMENT＞ぬわーーっっ！！＜/COMMENT＞
＜PERSON/＞
＜NAME＞ゲマ＜/NAME＞
＜HOBBY＞メラミ＜/HOBBY＞
＜COMMENT＞ほっほっほっほっ。子を思う親の気持ちは いつみても いいものですね。＜/COMMENT＞
＜/ROOT＞
158:デフォルトの名無しさん
16/03/18 21:10:32.76 Sdu3bujA.net
>>154
＞ 'ノードとして子ども・孫の要素を追加
＞Set elem2 = rootelem.appendChild(myxml.createElement("CHARACTER"))
＞ Set elem2 = rootelem.appendChild(myxml.createElement("PERSON"))
＞
＞ 'ノードとしてひ孫の要素を追加
＞Set node = rootelem.appendChild(myxml.createNode("element", "NAME", ""))
＞ node.Text = "パパス"
rootelemにしか子供追加してないから、孫、ひ孫が生成されないのは当然な気がする
追加した子要素に子供を追加してやらなくちゃ…
試してないけどこんな感じ？
'ノードとして子ども・孫の要素を追加
Set elem2 = rootelem.appendChild(myxml.createElement("CHARACTER"))
Set elem2 = elem2.appendChild(myxml.createElement("PERSON"))
'ノードとしてひ孫の要素を追加
Set node = elem2.appendChild(myxml.createNode("element", "NAME", ""))
node.Text = "パパス"
159:デフォルトの名無しさん
16/03/19 11:15:23.76 LxdobWB2.net
ThisWorkbook.Save
で「指定したディメンションは、このグラフの種類では無効です。」のエラー発生。
エラーが出るときと出ないときがある。
VBAでグラフを操作している部分もあるが、それとは無関係と思われるSaveでこのエラーに戸惑っています。
↓このサイトで、SaveAsで存在しないパスを指定し同様のエラーが出た事例は見つかりましたが私はパス指定していません｡
URLﾘﾝｸ(yaplog.jp)
エラー回避する方法を教えて下さい。
160:156
16/03/19 11:26:07.75 LxdobWB2.net
>>156はエクセルの話です
win7, office2010
161:デフォルトの名無しさん
16/03/20 06:56:26.93 XolQD74Z.net
どなたか>>156わかりませんか？
162:デフォルトの名無しさん
16/03/20 07:11:36.75 P5LbtOo8.net
VBA内でセル指定をするときにシート名を明記しないと
そのセルがアクティブシートのセルになってしまってエラーが出ることがあるけど
VBAでグラフを作成するプログラムを作成していますが、エラーがでます。エラーの... - Yahoo!知恵袋
URLﾘﾝｸ(detail.chiebukuro.yahoo.co.jp)
ぷぎえもん日記 VBA：実行時エラー1004グラフを作る時のエラーについて
URLﾘﾝｸ(pugiemonn.blog6.fc2.com)
その辺は大丈夫？
163:デフォルトの名無しさん
16/03/20 14:30:13.47 U/mbzow+.net
>>155
うまく行き作りたいものが作れました。ありがとうございます。
164:デフォルトの名無しさん
16/03/21 00:33:38.32 RmxeJW4x.net
>>159
レスありがとうございます。
今出先なので明日帰宅してから確認してみます。
165:デフォルトの名無しさん
16/03/21 00:35:10.70 RmxeJW4x.net
あ、書き込めた。規制かかっててレスできず申し訳ないです。
166:デフォルトの名無しさん
16/03/24 09:23:12.55 Y45L/A5m.net
既存のブックに入れているマクロは正常動作しているんだけど、2,3日以前から作った
ブックは
オートメーションエラーです。
例外が発生しました。
ってエラーですぐ落ちてしまうんだけど、これって何が原因なんですかね。
（OS Win7Home excel2010）
なんせ、
Sub test()
MsgBox "test"
End Sub
ってだけのでも同じエラーで落ちてしまうんで┐(´∀｀)┌
ちなみにウィルス対策はAVGでチェックかけて異常なしではありました
URLﾘﾝｸ(www.dotup.org)
167:デフォルトの名無しさん
16/03/24 12:50:23.33 FJvNCHp3.net
>>156
「vba 指定したディメンションは、このグラフの種類では無効です。」で検索！
>>163
「vba オートメーションエラー」で検索！
168:デフォルトの名無しさん
16/04/09 01:33:44.74 8VJ1WNjN.net
Declare 文でDllを指定するとき、絶対パスを指定するのとしないので挙動が変わるなんてことありますかね？
パスの通ったフォルダにDllを置きDeclare文にはパスを書かない、という状態で何度テストしても失敗する（結果がおかしい）ので、
もしやと思って絶対パスを指定してみたら成功しました。何度やっても同じです。
念のため他のフォルダに同名のDllがないか確認しましたが、そんなものはありませんでした。
Window7、Excel2010(64bit)です。
169:kio
16/04/09 09:27:26.96 OaMx2gZN.net
下記プログラムでデータ貼り付け可能ですが、
Range(
170:デフォルトの名無しさん
16/04/09 10:55:02.62 uD9Ltjj7.net
>>165
なんで大事な部分を書かずに濁すの？
171:デフォルトの名無しさん
16/04/09 11:27:25.80 mXQNErhc.net
>>167
大事な部分って？
172:デフォルトの名無しさん
16/04/09 11:49:50.63 8+AE4+J9.net
コードじゃね？
173:デフォルトの名無しさん
16/04/09 12:00:42.12 YC7vrxdl.net
どんな dll 使って、
どう失敗するのか
とかじゃね？
174:デフォルトの名無しさん
16/04/09 12:35:11.85 lZD29UWG.net
性別と容姿じゃね？
175:デフォルトの名無しさん
16/04/09 15:25:31.33 8VJ1WNjN.net
>>167-170
DLLはこんな感じで
Declare PtrSafe Function funcABC Lib "ABC.dll" (ByVal n As Long, ByRef v As Variant) As Long
本来1が返ってくるべきところに0が返ってくるんです。
だけど、～ Lib "C:\tmp\ABC.dll" ～ とすると、ちゃんと1が返ってくる。
どちらの場合もDLL名を変えると「ファイルが見つかりません」という実行時エラーになるので、同じDLLファイルを
指しいてるのは間違いないと思います。
176:デフォルトの名無しさん
16/04/09 16:35:57.82 kbPPFUQM.net
>>172
そんなの "ABC.dll" の作り次第だろ
作者に聞けよ
dll のパス取得して何かしてるのかもしれないし
URLﾘﾝｸ(frog.raindrop.jp)
177:デフォルトの名無しさん
16/04/09 16:55:41.43 DA1syyI4.net
>念のため他のフォルダに同名のDllがないか確認しましたが、そんなものはありませんでした。
限りなくこれが怪しいと思うんだが
178:デフォルトの名無しさん
16/04/09 16:57:28.60 XGWfr4Pw.net
>>165
同名のdllが無いことをどうやって確認した？
179:デフォルトの名無しさん
16/04/09 18:20:08.40 uD9Ltjj7.net
>>165
挙動が変わることはあります。
おわり
180:デフォルトの名無しさん
16/04/09 18:32:34.00 8VJ1WNjN.net
>>175
パスが通っている全フォルダとカレントフォルダからの目視です。
環境変数(PATH)をまず確認して、
kernel32.dllにあるAPI 「GetEnvironmentVariableA」 に引数"PATH"を渡して出てきたフォルダを対象にしました。
問題のfuncABC も GetEnvironmentVariableA も同じVBAから発行しています。
181:デフォルトの名無しさん
16/04/09 18:41:03.58 DA1syyI4.net
カレントフォルダをどうやって確認したかとか
システムディレクトリにdllがないかとか
まあ、確認漏れ自体はいっぱいありそうだな
182:デフォルトの名無しさん
16/04/09 18:46:44.36 8VJ1WNjN.net
>>178
C:\windowsやC:\Program Files、C:\Program Files (x86)は入ってますよ。
目視も検索フィルタにとりあえず *.dll で全DLLを出してからやっています。
>>176
マジですか...
183:デフォルトの名無しさん
16/04/09 19:45:00.69 mXQNErhc.net
>>179
本当にひとつしかないならあり得ない挙動だと思うけど。
dllの内容を明かしてみな。
184:デフォルトの名無しさん
16/04/09 19:57:07.07 zSVIlalC.net
Windows が使用する DLL 検索パス
1.実行中のプロセスの実行形式モジュールがあるフォルダー。
2.現在のフォルダー。
3.Windows システム フォルダー。このフォルダー
185:へのパスは、GetSystemDirectory 関数が取得します。 4.Windows ディレクトリ。このフォルダーへのパスは、GetWindowsDirectory 関数が取得します。 5.環境変数 PATH 内に記述されたフォルダー。 https://msdn.microsoft.com/ja-jp/library/7d83bc18.aspx
186:デフォルトの名無しさん
16/04/09 20:29:56.83 XGWfr4Pw.net
>>177
ウインドウズの検索機能を使ってみたら？
187:デフォルトの名無しさん
16/04/09 20:38:17.27 KOaWU5bX.net
何か仕事でもしながら、ディスク全部の範囲で、検索すればいい
188:デフォルトの名無しさん
16/04/09 21:28:53.86 yIzAT5uL.net
windows なら黙って search everything 入れろ
考える余地なし
189:デフォルトの名無しさん
16/04/09 21:30:12.16 yIzAT5uL.net
あ、業務用のマシンだとマズいか
190:デフォルトの名無しさん
16/04/09 21:43:59.08 YC7vrxdl.net
>>179
> 目視も検索フィルタにとりあえず *.dll で全DLLを出してからやっています。
プログラマーに向いてないんじゃね？
コマンドプロンプトで
dir /s /b \ABC.dll
ってやればいいだけだろ
191:デフォルトの名無しさん
16/04/09 23:15:48.61 8VJ1WNjN.net
>>180
ODBCのコネクションを張る関数で、特に自分の場所が関係する処理はしてないですね。
>>181-186
全ドライブを検索した結果（search everythingは入れてませんが dir/s はやってみた）
C:\Users\*****\Google ドライブ\
に見つかりました。
しかし、これを消しても現象は変わらなかった（もともと参照パスに入ってない）ので、諦めの気分です。
192:デフォルトの名無しさん
16/04/10 00:12:20.49 TaPFtU7E.net
元々の質問は、挙動が変わることがあるか？で、
あるって回答で解決だと思うけど、どうしてもないってことにしたいの？
ゴールが見えないよ
193:187
16/04/10 00:39:39.00 9vV3r8su.net
>>188
あるって回答（>>176）もあり、ないって回答（>>180）もありで、判断がつかない状況です。
194:187
16/04/10 00:47:04.09 9vV3r8su.net
それと、>>173と>>176もいまいち理解できておりません。
「dllのパスを取得」とは、実際の存在はひとつでもDeclare文での指定のしかたまでも検知できるんでしょうか？
195:デフォルトの名無しさん
16/04/10 01:04:43.27 9zYVMe1H.net
まさか、パス・ユーザー名など、システムに関係する部分に、
日本語を使ってないだろうな？
それで、バグってるとか？
196:187
16/04/10 01:08:14.87 9vV3r8su.net
>>191
ないですね
197:デフォルトの名無しさん
16/04/10 01:14:27.05 9zYVMe1H.net
そのDLLの作者が外人で、DLL内で、パス・ユーザー名を扱っていた場合、
もしその中に日本語が入っていれば、バグるかも
198:デフォルトの名無しさん
16/04/10 01:22:30.64 9zYVMe1H.net
>>187
>ODBCのコネクションを張る関数で
それなら、そのDBのメーカーが(ドライバーが)、絶対パスしか許可していないのかも。
相対パスの危険性も考慮して、そういうアクセス許可にしているのかも
絶対パスを使えばいい
199:デフォルトの名無しさん
16/04/10 05:47:22.16 v52RcnsN.net
>>187
> 特に自分の場所が関係する処理はしてないですね。
ん？
自分で作った dll なの？
だったら自分でデバッグしなよ
200:デフォルトの名無しさん
16/04/10 10:59:47.17 KR5BT3Be.net
全ドライブを検査してひとつしかdllファイルがなかったって言ってるんだろ。
それが本当なら何も対処できないよ。OSレベルの不具合。
201:デフォルトの名無しさん
16/04/10 17:49:12.01 r0zhudqC.net
VBAをコーディングするのに最適な画面サイズとモニターの台数は何台ですか？
縦と横どっちでつかってすか？
4Kディスプレイはどうですか？
202:デフォルトの名無しさん
16/04/10 18:54:26.34 oV0tVvW7.net
(´・ω・｀)
203:デフォルトの名無しさん
16/04/10 19:33:25.31 Y5yf6QHK.net
>>197
3台
縦
4Kいいよ
204:デフォルトの名無しさん
16/04/27 21:49:20.13 Wsz3hpAs.net
エクセルのVBA質問があります。
一番前のTOTALシートのA22：H26までを複数シート（20シートくらいある）の最終行の次の行に貼り付けたいのです。
各シートの最終行はバラバラで多いのは数千とあります。
しかも、G列には\と$の通貨マークH列には金額が書いてあり、SUMIFが組んであります。
記録マクロでやると下記みたいになりますが、こんなこと可能なのでしょうか？
調べても出てこないので誰か教えてください。
Sub Macro2()
Rows("24:28").Select
Selection.Copy
Sheets("A").Select
Rows("22:22").Select
Selection.Insert Shift:=xlDown
Range("H22").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUMIF(R9C7:R19C7,RC[-1],R9C8:R19C8)"
Range("H23").Select
End Sub
205:デフォルトの名無しさん
16/04/28 00:18:56.90 Vq22azhO.net
>>200
可能です
206:デフォルトの名無しさん
16/04/28 07:31:01.70 TNqjmghT.net
>>201
教えてください。
207:デフォルトの名無しさん
16/04/28 08:26:47.90 RqXO/zBw.net
>>202
具体的にあなたが躓いているところがわかりません
208:デフォルトの名無しさん
16/04/28 12:27:24.37 xB9gNSEq.net
>>203
具体的にあなたが何がわからないのかわかりません
209:デフォルトの名無しさん
16/04/28 12:29:10.17 gq5pmM2C.net
>>200
For Eachで全シートループして、各シート最終行取得して貼り付ければ良いと思いますが、ダメですか？
210:デフォルトの名無しさん
16/04/28 20:07:58.00 iqsXmWMg.net
>>200ですが、出直してきます。
211:デフォルトの名無しさん
16/05/01 15:15:56.13 tKi6j9CT.net
匿名通信（Tor、i2p等）ができるファイル共有ソフトBitComet（ビットコメット）みたいな、
BitTorrentがオープンソースで開発されています
言語は何でも大丈夫だそうなので、P2P書きたい！って人居ませんか？
Covenantの作者（Lyrise）がそういう人と話したいそうなので、よろしければツイートお願いします
URLﾘﾝｸ(twitter.com)
ちなみにオイラはCovenantの完成が待ち遠しいプログラミングできないアスペルガーｗ
The Covenant Project
概要
Covenantは、純粋P2Pのファイル共有ソフトです
目的
インターネットにおける権力による抑圧を排除することが最終的な目標です。 そのためにCovenantでは、中央に依存しない、高効率で検索能力の高いファイル共有の機能をユーザーに提供します
特徴
Covenant = Bittorrent + Abstract Network + DHT + (Search = WoT + PoW)
接続は抽象化されているので、I2P, Tor, TCP, Proxy, その他を利用可能です
DHTにはKademlia + コネクションプールを使用します
UPnPによってポートを解放することができますが、Port0でも利用可能です(接続数は少なくなります)
検索リクエスト、アップロード、ダウンロードなどのすべての通信はDHT的に分散され、特定のサーバーに依存しません
ｌ
212:デフォルトの名無しさん
16/05/01 23:24:37.04 u17iQe5m.net
EXCELのVBAでメール返信(OUTLOOK)をする仕組みを作りたいのですが、
元メールを引用するにはどうしたら良いでしょうか？
タイトルやらアドレスやら本文がくっついてないと、
どうも返信感がでないと思いまして。
213:デフォルトの名無しさん
16/05/03 10:11:50.64 YSERRocv.net
>>208
Outlookヘルプから
次の例は、現在のフォルダを受信トレイに設定し、フォルダの 2 番目のメッセージを表示します。
Visual Basic for Applications
Set myOlApp = Outlook.Application
Set myNamespa
214:ce = myOlApp.GetNamespace("MAPI") Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox) myFolder.Display Set myItem = myFolder.Items(2) myItem.Display
215:デフォルトの名無しさん
16/06/04 14:31:26.42 ZLbjql14.net
Excel向けだとVBA関連の本は結構あるのにOutlookのVBA本って
あんまり無いですね。
Outlookの仕分け機能では宛先とCCに○○から来た時に動作する
条件を付けられますが、宛先○○から来た時には動作するけど
CCに何か入っていた場合は動作しないマクロは作れないでしょうか。
環境はWin7、Outlook2010です。
216:デフォルトの名無しさん
16/06/04 17:57:25.97 +2vTx5YA.net
>>210
作れるよ
217:デフォルトの名無しさん
16/06/04 17:59:26.06 +2vTx5YA.net
outlook vba mail
とかでググれ
218:デフォルトの名無しさん
16/06/04 21:08:48.99 xa1tVlDu.net
>>210
多分こんな感じでできるかと
Public WithEvents InboxItems As Items
Private Sub Application_Startup()
Set InboxItems = Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub InboxItems_ItemAdd(ByVal Item As Object)
Dim mailItem As Outlook.mailItem
Set mailItem = Item
If InStr(mailItem.To, "○○") > 0 And mailItem.CC = "" Then
MsgBox "何かする"
End If
End Sub
219:デフォルトの名無しさん
16/06/12 09:42:53.63 D40PIOb3.net
【Ｗｉｎ１０】 こんな犯罪級ＯＳ薦めんなよｗｗｗ ↓ 【スパイウェア】
この使用許諾契約書には書かれています
”最後にあなたのコンテンツを含む個人データ（例えばあなたの電子メールの内容や―プライベート通信やプライベートフォルダ内のファイル）にアクセスし―開示し保全します”
開示する ここ重要だよ
契約がなければ通常 高度な違法行為になりうることです それはあなたが自分の意思としてこの契約書に同意したのです
URLﾘﾝｸ(www.youtube.com)
【秘密保護法】 ナチスの手口でサヨクを捕まるんだろ？ 早くやってみろよ m9(^Д^) 【緊急事態法】
スノーデン氏→国家秘密法は諜報機関ＮＳＡの日本での活動を容易にするために米国が設計して日本政府に導入を要求したもの。
全日本人が調査の対象であり、ＮＳＡはあなたの交際関係、信仰等の個人情報を把握している。
URLﾘﾝｸ(twitter.com)
今朝、辺野古で新基地建設に反対するママの会メンバーに対して、機動隊員が「お前たちには汚い血が流れている」などと暴言を吐いたそうです。
自分のやっていることを「だってお金欲しいもん～」「俺の写真を待ち受けにしろ」とも （顔写真）
URLﾘﾝｸ(twitter.com)
サンマ以降のバラエティ芸人の大半が、暴走族出身で極右思想。原発反対派を「放射脳」と嘲笑する連中。
芸能界極右は石原慎太郎一家を筆頭に、上田晋也 草野仁 津川雅彦 向井理 松本人�
220:u 宇多田ヒカル マツコ 春日俊彰 田村淳 北村晴雄 https://twitter.com/tokaia mada/status/630627400552845312
221:デフォルトの名無しさん
16/06/14 02:34:53.84 2DTiTbF7.net
vbaでshell関数を使って指定パスのエクスプローラをファイル選択状態で開いてるのですが、
家でやると何でもないのですが、会社でやると、その方法で立ち上げたエクスプローラは
１分～数分以内に「エクスプローラは停止しました」となって落ちます。そのフォルダだけ
落ちるので他のは巻き込まれないだけマシですが、手動で立ち上げた他のエクスプローラで
このように不意に落ちた事はないので、プログラムから立ち上げたエクスプローラが特別
不安定だとしか思えないのですが、原因が不明です。
それで、家と会社の違いは、会社だと共有フォルダを開いている事です。
家ではテスト環境をローカルで構成している為か、全く問題は起きません。
色々ぐぐってみたのですが原因が不明です。
vbaから開く方法で、解決策、あるいは次善の方法等ありますでしょうか。
shell関数はこのように使っております。
Shell "Explorer.exe /select, """ & path & """", vbNormalFocus
環境はWindows7 Excel2010(32bit)です。
222:デフォルトの名無しさん
16/06/14 06:56:55.57 wwwgAdKU.net
>>215
試しに自宅の環境で共有フォルダをshell関数でファイル選択状態で開いてみたけど
特に問題なかったよ
原因は共有フォルダであること
ではないのじゃないかな
その共有フォルダへのショートカットを作って
それをshell関数を使ってexplorerで開いてみるとかは？
223:デフォルトの名無しさん
16/06/14 08:10:13.51 BcKyLCvc.net
手動で起動したプロセスは、親プロセスが無く、単独のプロセスだから、ずっと生き残るのかな？
Aプログラム(Aプロセス)から起動したプロセスは、親プロセスがAとなり、
Aを終了すると、その子プロセスもすべて、連鎖して終了するのかな？
プロセスを起動する際、親子関係を切れば？
ただしそうすると、起動されたプロセスは、A終了後も残り続けるから、
誰がそのプロセスを終了するのかが、問題となる
漏れは、Windowsはよく知らない。Linuxから推測して書いた
224:デフォルトの名無しさん
16/06/14 08:45:39.28 2DTiTbF7.net
>>216
ショートカットから開く方法ですか、考えもしなかったです。
確実に再現するバグではない（場合によっては２０分くらい経ってからクラッシュしますし、端末によっては何も起きなかったりします。）
なので、原因を掴むのが難しいです。
>>217
なるほど、プロセスが分離されているから巻き込まれなかったんですかね。
前後のコードを見返しているのですが、shell関数を読んだ直後に
Kill thisworkbook.fullName
thisworkbook.close
を読んで終了させているんですが、ひょっとしたらこの兼ね合いが原因かも？とふと思いました。
shell関数は非同期処理で、会社の共有フォルダを開くときはローカルと違って若干起動に時間がかかります。
shell関数の処理が完了しきっていないのに即終了させるから、動作が不安定になってる可能性はありますかね・・。
なのでとりあえずShell関数を、Wscript.ShellのRunメソッドの同期処理に置換えてみました。
それで明日会社でテストしてみます。
225:デフォルトの名無しさん
16/06/15 20:38:23.92 985LHqkd.net
それVBAとか関係なく、普通にネットワーク上のフォルダを表示してるエクスプローラでも発生してるんじゃないのか？
URLﾘﾝｸ(support.microsoft.com)
URLﾘﾝｸ(support.microsoft.com)
とりあえず俺はこの二つで直ったが、エクスプローラ 落ちる とかでググってみ
226:218
16/06/16 07:48:37.40 MO4h1nff.net
>>219
同期処理に変えたら全く落ちなくなりました。
どうやら推測は当たったみたいです。
手動で立ちあげてる時には同じトラブルは一度も起こったこと無く、誰からも聞いていないので、
VBA処理が原因で間違いないと思います。
ぐぐっては見てたんですけど、VBA関連でのエラー報告は０でしたね。
しかし、元々この手のトラブル報告がかなり多いことにはびっくりしました。
とりあえずは解決です。皆さんどうも有難うございました。
227:デフォルトの名無しさん
16/06/16 14:05:29.72 tOwQ8tvq.net
タイミングの問題で、バグが起きるときは、
sleep 3秒などで、時間稼ぎすることが多いな
228:デフォルトの名無しさん
16/06/16 16:27:03.77 YtVxucfB.net
>>221
タイミングというか処理を待ち合わせる必要があるって事だよな
3秒で完了しない処理だと問題が起きる
90%くらい解決出来れば実用上は問題にならないかも知れないけど
229:デフォルトの名無しさん
16/06/16 21:40:45.67 JOmdLZoV.net
' キャッシュ反映を待って5秒待つ
↑これなんとかして
230:デフォルトの名無しさん
16/06/16 21:53:33.23 EpEOLr57.net
>>223
何のキャッシュか判らないけど
キャッシュをフラッシュするインターフェイスがあればそれを使えば良いのでは
無いなら知らない
231:デフォルトの名無しさん
16/06/17 01:16:02.29 Sh+IdTol.net
起動方法と起動のタイミングの問題で
>１分～数分以内に「エクスプローラは停止しました」
>場合によっては２０分くらい経ってからクラッシュ
のような症状が出るとは考えにくいけどな
まあ、直ったって言うならそれでいいけど
232:樵の結び目。
16/09/03 18:27:18.44 Ms7vNg4j.net
この作者について
URLﾘﾝｸ(img.atwikiimg.com)
どう思いますか？？
233:デフォルトの名無しさん
16/09/28 19:27:48.59 BVBInYIb.net
vbaの And, Or って短絡評価してくれないの？？？
234:デフォルトの名無しさん
16/09/28 20:30:34.84 X231kNmm.net
>>227
普通しない
（常にしないかどうかは知らんけど）
235:デフォルトの名無しさん
16/09/28 22:20:25.14 w7cfX4QA.net
X(n) And Y(m) で X(n) = False だった場合、Y(m) は評価しなくても式が False と確定する
Or でも同様のことが可能
VBAがショートサーキットしているかどうかは、各関数で Debug ログを出力してみればわかる
236:デフォルトの名無しさん
16/09/29 04:55:17.68 IF5lu7hc.net
>>229
いちいち短絡評価の説明なんてしなくていいよ...
237:227
16/09/29 08:22:26.74 l2tsRcXf.net
くぅ。
短絡評価してくれるもんだと思って、
True, False, Nullを返す関数の結果で、
NullをFalseに倒したくて、
左辺でNot isNullやってたけど、
右辺もNullで動いてしまってエラーになってはまったわ。
238:デフォルトの名無しさん
16/09/29 12:46:05.66 tIM+raH6.net
VBAあるある
239:デフォルトの名無しさん
16/10/06 19:51:33.65 prbbit7d.net
.NetならOrElseやAndAlsoが使えるし
Nullable指定も出来るから便利なんだけどなー
まあ無いものねだりしても始まらないか
240:デフォルトの名無しさん
16/10/08 17:43:11.29 fiaM9vLl.net
VB(A)はWithとかある割にそういうとこは全然気が利かないよな
C言語すら知らない人が作った言語なんだろう事は判る
241:デフォルトの名無しさん
16/10/08 22:59:38.27 315EhZFM.net
VBって元々はMSじゃないんだよね BASIC好きのゲイツが惚れ込んで買収しただけ
242:デフォルトの名無しさん
16/10/27 20:44:38.40 LE0ob9Yw.net
vbaの中、上級者向けの書籍を教えて�
243:ｭださい
244:デフォルトの名無しさん
16/10/27 21:44:23.99 BIHhfe0H.net
漠然と「ＶＢＡの初心者向けの本を教えてください」ってのはよくあるが、上級者向けは珍しいね
ある程度基礎が身に付き、やりたいことが分かってきていれば
○○に関する本、ってなるように思うんだが・・・
田中亨氏の「Excel VBA 逆引き辞典パーフェクト 」は名著だよ
245:デフォルトの名無しさん
16/10/28 04:23:54.86 s9odN72t.net
>>237
ありがとうございます。
クラスや多段階配列、イベント自作、擬似コントロール配列あたりの情報がある書籍はありませんか？
246:デフォルトの名無しさん
16/10/28 15:06:05.95 Sg+Wt/Uz.net
アプリ作成で学ぶExcel VBAプログラミングユーザーフォーム&コントロール（横山達大著）
かんたんプログラミング 応用編（大村あつし著）
同じく、かんたんプログラミング コントロール関数編
デバッグ関連だと
立山秀利著の本
247:デフォルトの名無しさん
16/10/29 23:22:10.90 b3lytwnZ.net
VBAでコードを抜き出してSVNやgitで管理したりするとそれだけで上級者っぽくなる
248:デフォルトの名無しさん
16/10/30 08:10:21.54 R4QvvoTp.net
それ以上にバカっぽいけどなｗ
249:デフォルトの名無しさん
16/10/30 09:23:46.57 2kQlDpFE.net
今時差分管理もしてないのかよ
250:デフォルトの名無しさん
16/10/31 23:59:17.10 9abcSnRr.net
VBACとか使ってんの？
251:デフォルトの名無しさん
17/02/06 12:06:59.89 1XFRepCN.net
PowerPointのVBAでファイルを閉じた後も変数の値が保存されるようにしたいんですが外部のテキストに書き出す以外にファイル本体にどうにかして埋め込む方法はありますか？
252:デフォルトの名無しさん
17/02/06 14:57:53.43 atuXlQHb.net
透明のシェイプとかに書くとか色々あるけど
実際本体ファイルを更新されるとバージョン管理とか使う側が気持ち悪がるとか運用面で問題が出そう
253:デフォルトの名無しさん
17/02/06 19:29:23.46 4FxLnD3n.net
Excel脳っすなぁ
標準的なユーザーデータ保存場所がちゃんとあるんだからそれ使えばいいじゃん
254:デフォルトの名無しさん
17/02/06 19:58:54.20 KOZLaxG/.net
>>246
どうすればいいでしょうか
255:デフォルトの名無しさん
17/02/06 21:21:37.88 VJg+IRhi.net
>>244
Presentation.CustomDocumentProperties
URLﾘﾝｸ(msdn.microsoft.com)
256:デフォルトの名無しさん
17/02/07 07:09:26.95 HIDKMkau.net
>>246
条件によるだろ
思いつきで即答すんなアホ
257:デフォルトの名無しさん
17/02/07 07:27:10.54 ff698yUf.net
>>249
条件って
ファイル本体に埋め込みたい
ってことだろ
>>246 の保存場所がどこの事を言ってるのかよくわからんが >>245 より >>248 の方がはるかにマシ
258:デフォルトの名無しさん
17/02/07 07:40:32.09 xddq+MTq.net
ファイル本体に埋め込みすんのがアホなんだよわかれよ素人
ゴミを量産して人に迷惑かけないでくれ
独りよがりの仕事してんじゃねえよ
259:デフォルトの名無しさん
17/02/07 08:07:27.12 ff698yUf.net
単なる基地害だったのか
260:デフォルトの名無しさん
17/02/07 20:25:02.30 1dqSFjs6.net
実際に仕事してるとそれこそ基地外避けを作る必要が出てきたりするんだよな
261:デフォルトの名無しさん
17/02/07 21:24:47.40 lpX4EXgF.net
ユーザーデータを変な場所に保存したりするやつとか避けないとな
262:デフォルトの名無しさん
17/02/07 22:43:16.46 diTiDCUQ.net
>>254
> 変な場所に
透明のシェイプとかのことですね、わかります
263:デフォルトの名無しさん
17/02/13 17:14:33.92 QPcPOced.net
50枚のスライドが入ったパワポが5個あります。
これを統合したいのですが
ファイル1の1枚目
ファイル2の1枚目
ファイル3の1枚目
ファイル4の1枚目
ファイル5の1枚目
ファイル1の2枚目。。。
という順番にしたいのです。
どういうマクロを書けばいいでしょうか？