TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
MFC相談室 mfc23d.dll
Regular Expression(正規表現) Part14
圧縮・復元 相談室
Google NaCl プログラミング 2mol
【iPhoneも】Titanium Mobileスレッド【Androidも】
次世代言語18 Go Rust Elixir Kotlin TypeScript
Swift part12
Visual Studio Code / VSCode Part6
【統計分析】機械学習・データマイニング26
静的型付け言語の潜在開発生産性は今の100倍 ×5
VBAなんでも質問スレ Part2
- 1 ：2015/05/21 〜 最終レス ：2020/06/10
- VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もＯＫ
ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください
VBAを開発環境としていろいろ作っちゃいましょう
前スレ
VBAなんでも質問スレ
http://peace.2ch.sc/test/read.cgi/tech/1342087380/
関連スレ
Excel VBA 質問スレ Part36 [転載禁止]©2ch.sc
http://peace.2ch.sc/test/read.cgi/tech/1419718732/
Access VBA 質問スレ Part1
http://peace.2ch.sc/test/read.cgi/tech/1328536426/
VBプログラマ質問スレ（Ver.6.0 まで） part64
http://peace.2ch.sc/test/read.cgi/tech/1393069842/
Excel総合相談所 118 [転載禁止]©2ch.sc
http://peace.2ch.sc/test/read.cgi/bsoft/1430352555/
- 2 ：
- 前スレ埋まってたから立てた
- 3 ：
- バカはレスしないでくれる？
個人の主張として批判せず、いたずらにある類として扱うのは極めて恣意的かおバカの批判にあらざる攻撃の特徴。
まあ、その軽蔑すべき発想で返した俺も反省はしてもよいが
はっきり言って精神病とバカの特徴でしかない論法でレスするなよ。
俺はバカと精神病きらいだからな。
おまえら、マジで精神病と思われる宣言的絶対主義の形而上学バカの一味は人類の公的な敵だとおもっているからな。
さしあたりお前らが馬鹿にされていることは科学的認識の健全性をそれなりに示すから喜ばしいがな。
それにしても、単なる知識を披露しあっているだけの時は頭良さそうなふりはできるが、
いよいよ自身の認識を問われる事態になるとここにいる連中、そこの浅さを露呈するやつ多すぎ
所詮、2chだな
- 4 ：
- ここまでテンプレ
- 5 ：
- >>3
むしろ自分が歯が立たない相手だと分かったら「精神病と馬鹿」というレッテルを相手に貼って
逃げるお前の方がヘタレだけどな
精神病で馬鹿なのはお前の方だよ
- 6 ：
- どこかわからんのでココで。
WordVBAで質問です。
あらかじめスタイルを本文内に設定しておき、
マクロで指定したスタイルが設定されている箇所を検索→
そのスタイルが指定されている場所の文章の置き換え
ということがしたいですが可能でしょうか。
スタイル名を指定して本文内を検索する、という例が見つからず困っております。
- 7 ：
- 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 ：
- ↓ここが参考になりそうなんですが、ほぼ素人の自分には無理でした…わかる方教えてください。
https://outlooklab.wordpress.com/2009/08/08/outlook-object-model-%E3%81%A7%E6%9C%AC%E6%96%87%E3%81%AE%E7%B7%A8%E9%9B%86%E3%81%AE%E3%81%9F%E3%82%81%E3%81%AB-word-%E3%81%AE%E6%A9%9F%E8%83%BD%E3%82%92%E5%91%BC%E3%81%B3%E3%81%A0%E3%81%99%E3%83%9E/
- 9 ：
- >>7
受信したメールを置換ってできないのでは？
置換したファイルをエクスポートするのですか？
- 10 ：
- すみません、受信メールではなく、作成中のメールです。
PCからガラケーに送ると、Enter改行だと無視されてしまうので、送る前にボタンを押してShiftEnter改行に変えたいのです。
リンク付きでPCの人にも送るので、HTMLメールのまま送りたいので。
- 11 ：
- >>10
リボンの編集→置換で（ワイルドカードを使用する）＾１３と＾１１を指定すればウィンドウからはできましたが、
この機能に該当するメソッドがどうにも探せないですね。
参考にされたコードはワードのものなんですけど、OUTLOOKで使うにはちょっと無理そうです。
- 12 ：
- 初心者から始め、2年ほど1人でVBA業務をしていたのですが
そろそろ引き継ぎ等も考え、コーディング規約のようなものを作成しようと考えています。
各プログラムで命名規則も違うため、統一したいのですが今ひとつ可読性の高い命名というのがわかりません。
修正前の変数宣言のコードを記載しますので、ぜひ添削していただけないでしょうか。
なお、グローバル変数宣言しているのは当時、この方法が一番良いと思ったためです。
- 13 ：
- 'ワークシート名宣言
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 ：
- >>13
工事をConと省略せずにconstruction_xxxと書くべきだと思うが、それよりもワークシートのセル番地を固定文字列で定義するのはまずいだろう。
一行ずらしましょう、とかするときどうするの？不自由この上ない。
- 15 ：
- Detaが気になる･･･
- 16 ：
- >>14
セル番地の固定文字列については改めて見るとすごくおかしいと思いました。
修正したいですが、皆さんワークシートやセル番地の定数はどのようにされているのでしょうか。
検索はするものの、なかなか見つけられず困っています。
>>15
気づきませんでした、すみませんありがとうございます。
- 17 ：
- セル番地はセルに名前を付ける
列番号はenumにまとめる
シート名はconst
基本適当
- 18 ：
- 一日20項目ほどの数値データが入力されている月報の表を
月末にデータを全て消去して、同じWS上で次月の日付、曜日
の書き込まれた新しいフォームに更新したいのですが、
マクロで実現可能でしょうか？
- 19 ：
- 手動でやれることはたいがいマクロ化できる。
- 20 ：
- やってみたけど30日までの月や31までの月などがあって
上手く行かないのです。
- 21 ：
- どこかにサンプルコードでも落ちてないでしょうか？
- 22 ：
- 翌日の日付が「1」だったらコードを実行するようにしたらいいんでない？
- 23 ：
- >>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 ：
- >>18
フォーム更新のタイミングは？
ファイルを開いたときに自動で更新するの？
- 25 ：
- 年月は、ボックスからプルダウンリストで指定
するだけです。ただ、指定年月の1〜月末までの日付、曜日を月報の1.2行目に縦に列記するコードが出来ないのです。
- 26 ：
- >>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 ：
- 何とかできそうです。ありがとうございました。
- 28 ：
- >>14
なんやわからん英語で書かれている方がよっぽど分かりずらいので、
あくまでもEXCELマクロで使用するスクリプトなのでコメントに書いている
そのコードを外人に見せるなら英語が望ましいけど、
漢字をそのまま使えばいいかと。
工事名称等は重複してるので、設定_工事名称とかになるんでしょうかねー。
セル番地の固定値を変数で持っているのが引っかかっているみたいですけど、
メンテするときはコードのメンテも込みになるでしょうから、
変数に代入して整理してるし良いのでは？
というか、そういう風にルールを敷けばいいとおもうの。
- 29 ：
- >>28
全体を一行下にずらす、とかするとき数十個ある変数を個々にメンテするの？
工事_A = "AO1" → 工事_A = "AO2"
工事_B = "AP1" → 工事_B = "AP2"
・・・
- 30 ：
- >>29
それでいいと思うよ
どうやろうとしてるのか知らんけど、この手の奴は分かりやすいのが一番だと思う
- 31 ：
- 分りやすいっていうか、直接的だから理解はしやすいけど
修正が面倒で間違いも起きやすいね
レイアウト自体の変更ではなく、全体を一気に動かすなら
最初の一要素だけ絶対アドレスで指定して
あとはそこからの相対参照（要するにオフセット）にしておくというのもひとつの手だと思う
それなら1個いじれば全部まとめて直せる
- 32 ：
- >>31
数十行にわたるコードのメンテぐらいで不満がある程度なら、
プログラム書くのは向いていないので、長いコードは書かないほうがいいと思う。
あと、ただ一つ変えれば全部まとめて直せるコードでも、
そのコードを知らない他人から見れば、結局全部見ることになると思うよ。
本当にそれでいいのかという部分も含めてテストすることになるから。
で、結局のところ別にどっちでもいいとなる。
- 33 ：
- >>31
項目増えて、途中に一行追加されたら似たようなことになるでしょ
- 34 ：
- 向き不向きに関する思い込みだな
- 35 ：
- >>32
数十行だろうと数万行だろうと
ひとつの変更で複数の変更箇所が出てくる構造自体のほうが問題だと思うよ
>そのコードを知らない他人から見れば、結局全部見ることになる
云々はベタに一個ずつ指定していても同じ確認コストを要するわけで
適切なコメントをつけとくなりなんなりで対応しないとしょうがないんじゃないの？
>>33
いや、だから
>レイアウト自体の変更ではなく、全体を一気に動かすなら
という前提条件をつけた上での話をしてるんだけど
- 36 ：
- >>35
> という前提条件をつけた上での話をしてるんだけど
そう言うケースがどれだけあるんだ？
って話でしょ
滅多にないケースに対応するために分かりにくい方法をとる必要はないよね
- 37 ：
- >>36
表の頭にあとから表題を付け加えるとかで
全体を動かすケースってのはそれなりにあると思うよ、
仕様変更で項目順の変更とか途中に項目追加とかのほうが多いだろうけど。
それに、全体をずらすってのは>>29の発案であって俺が言い出した話じゃないんで
俺はあくまで他人から与えられた前提条件で考えただけの話
- 38 ：
- >>37
> 仕様変更で項目順の変更とか途中に項目追加とかのほうが多いだろうけど。
普通はそうでしょ？
> 俺はあくまで他人から与えられた前提条件で考えただけの話
あまりない条件だけ考えることになんか意味があるのか？
- 39 ：
- >>38
そっちのが多いとは言ったが、全体を動かすのもそれなりにあるって言ってるじゃん
滅多にないとかありえないとかいうほどのレアケースではないよ
- 40 ：
- >>39
> ありえないとかいう
誰もそんなことは言ってないだろ？
お前さんも認めてるように
> 仕様変更で項目順の変更とか途中に項目追加とかのほうが多い
なら、そっちの対応を優先して設計した方がいいんじゃね？
って話
- 41 ：
- >>37
別にセルのアドレスを固定で持ってようが、一つのアドレスに対して
相対で持ってようがどっちでもいいだろ
ケースバイケースで使い分けようとは思わないのか？
俺が言ったのは数十個（行）程度の修正から避けるために
相対座標で組んだ方が良いと思っているならプログラム組むのは
向いてないってことだよ
だから、お前は長いソースを組むような仕事は向いてないよって言ったんだよ。
せいぜい短く済むようなのを探しとけｗ
分かりやすいソースのほうが、修正工程の見積もりだって立てやすい
お前のいう相対座標は、その一つの絶対座標に対して成り立っているんだから
見出しが追加されてずれる程度ならいいが、途中の箇所に複数追加変更されたら
むしろ修正面倒なんじゃね？
数万も入力させるセルがあるなんてシートの設計のがおかしいと思うが
数万のセルがあちらこちら変更になるのなら簡単で見やすい定義を切っている
ほうが引き継ぎもしやすいし、修正もしやすいってわからんのか？
- 42 ：
- >>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 ：
- やべ、工事_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 ：
- さらに間違ってた
工事_AがRange型ならそれ以降にRange(工事_A)なんて書く必要なかった
まぁ、何も知らずにコードを読んで表のレイアウトを理解できるかどうかとか
表の変更にかかるコストとかには大して影響ない話だけど
- 45 ：
- >>42
> どっちにせよレアケースではない
いや、レアケースかどうかじゃなくて
> 仕様変更で項目順の変更とか途中に項目追加とか
と比較しての話なんだが...
ひょっとして論理的な思考ができない人なの？
> 少なくともコードを全部読まなきゃ判断できないわけで、それなら相対指定で書いてもおなじことです。
セルアドレスなら一目でどこを指してるのかわかるけど、Offset( ) だとちょっと面倒でしょ？
そもそも、自分で間違えてるようじゃ説得力 0 だしね w
- 46 ：
- >>45
とにかく、コストがさほど変わらん以上、そういうことは重要ではないよね、
って言ってるんだけどそれが論理的に理解できない人なの？
んで、Offsetで（R1C1形式で）書くのがいやなら
RangeでA1形式で書けばいいじゃん
そんなの瑣末なことでしょ
あと、間違えたのは夜中にトイレで起きたときに書き込んだからで
たぶんあのときだとどっちで書いても間違えてる
（普段からR1C1形式で書くのでどっちかってーと俺はA1形式のほうが間違える）
- 47 ：
- 相対座標がどうたらというのは>>31が言い出したことにすぎないし、"AY0"とかいう文字列で指定すること自体がけしからんという意見。
- 48 ：
- >>46
> とにかく、コストがさほど変わらん以上、そういうことは重要ではないよね
どう書いてもたいして変わらんから、ごちゃごちゃ言い出した >>29 とか >>31 がバカと言う主張なら納得
> RangeでA1形式で書けばいいじゃん
そう言う問題じゃない
Range("E3").Range("G4")
ってどこ？
ってすぐわからんでしょって話
まあ君にとってはどうでもいい話だったな w
- 49 ：
- >>48
全体を動かす際のコストは明らかに相対参照のほうが上で、
レイアウト変更ならどっちもどっち、って話だよ。
俺個人としては表の各要素の絶対座標よりも表のレイアウト内での相対位置のほうが
重要だと思うんで可読性は相対表記のほうが上だと思う。
もちろん、range("E3").Range("G4")とは書かないよ
だからこそのOffset表記なんであって
仮に書くなら
工事_A = Range("G4")
工事_B = 工事_A.Offset(0,1)
みたいに書けば表の中での位置関係が分りやすい（、と思うってだけなんだけどね）
んでさ、一々相手の人格攻撃するのは止さないか?
反論するのは難しくないけどめんどくさいし
貴方にとっても内容を論理的に言うこと以外に自説の説得力を増す手法なんてないよ
- 50 ：
- >>49
> レイアウト変更ならどっちもどっち、って話だよ。
そんな思い込みを前提にされてもなぁ...
> 重要だと思うんで可読性は相対表記のほうが上だと思う。
> だからこそのOffset表記なんであって
応用力ないの？
> Range("E3").Range("G4")
> ってどこ？
って書いてあるんだから、レスする前に
Range("E3").Offset(3,6)
と
Range("K6")
のどっちが可読性が高いかとか考えないのか？
> めんどくさいし
君にはレスしないと言う自由があるよ
反論するのも苦労してるみたいだしね w
- 51 ：
- >>50
>どっちが可読性が高いかとか考えないのか？
うん、だからOffsetのほうが読みやすいよ
>レスしないという自由
は確かにあるし
君にも好き勝手な方言を垂れ流す手段（自由や権利ではない）はあるんだけど、
こうやってきちんと反論しといたほうが良さそうなんで仕方ないからそうしてる
- 52 ：
- 変換ミスしちゃった
×方言
○放言
- 53 ：
- >>51
> うん、だからOffsetのほうが読みやすいよ
へー、そうなんだー、すごいねー（棒
基準の位置と Offset の値の二個読まないといけないだけでも直書きより不利なのに、読みやすいとか笑えるわ w
あと方言とか意味不明
もう少し自分の書き込み見直した方がいいんじゃね？
- 54 ：
- >>53
絶対アドレスが必要ならそうだけど
通常は表内部のレイアウトが問題なんだから
絶対アドレスは気にする必要ないよね？
それともいちいち「何々の項目はF5だ」とか気にして作業してるの？
俺は「表の1列目は@@@の項目で、2列目は**＊の項目だ」みたいな捉え方はするけど
絶対アドレスが必要になったことなんてないよ
変換ミスについてはまぁ申し訳ない、だけどそれは議論の結果には影響ないと思う。
- 55 ：
- >>54
> それともいちいち「何々の項目はF5だ」とか気にして作業してるの？
いちいちそんなことをしたくないから定数で定義してるんだよ
意識するのは定数を定義するコードを書く時だけ
> 絶対アドレスが必要になったことなんてないよ
Offset( ) で書くにしても、基準のセルは絶対アドレスで指定するだろ
- 56 ：
- >>55
まだやるんかｗ
いや、基準のセルは俺も絶対アドレスで指定してますよね。
それ以外の部分では表の中での位置関係（表の何行目であるとか何列目であるとか）
についての情報のみが必要であって
それは基準セル（通常は左上端）からの相対位置が分ればそれで事足りると言ってるのです。
むしろ個々の要素についてまで絶対位置指定などしても可読性が下がるだけです。
まぁ、これはあくまでも普段からR1C1形式を好んで使ってる人間（つまり俺）の意見です。
この判断の優劣・良否・正誤等々については個々人の好みも有るでしょうから
どちらの考え方が優れているとかそういう視点での議論には決着がつかないと思いますけどね。
- 57 ：
- >>56
> むしろ個々の要素についてまで絶対位置指定などしても可読性が下がるだけです。
根拠もなしに下がるとか言われてもなぁ
とりあえず、
個人の感想です
って書いといた方がいいんじゃないか w
Excel マスターでない一般人は
>> 基準の位置と Offset の値の二個読まないといけないだけでも直書きより不利なのに、読みやすいとか笑えるわ w
だろ
> どちらの考え方が優れているとかそういう視点での議論には決着がつかないと思いますけどね。
はい、ループいただきましたぁ w
>>48
> どう書いてもたいして変わらんから、ごちゃごちゃ言い出した >>29 とか >>31 がバカと言う主張なら納得
- 58 ：
- ID導入されて、本当によかった
- 59 ：
- >>57
>個人の感想です
>って書いといた方がいいんじゃないか
？
書いてますよね？
R1C1を使い慣れてる人間の意見だって。
一般人の定義がわからないけど
俺は一般人こそ表の体裁（つまり相対位置による個々の要素の関連）には気を使うけれど
その座標なんてものには関心を持たないと思いますよ。
俺自身一般人のつもりですし。
表の修正があったときに「L列から4列ずらす」ってのと
「12列目から4列ずらす」ってののどっちが分かり易いかなんて
俺に言わせりゃ一目瞭然で後者なんですけど、
あなたの言う一般人は前者を選ぶってんでしょ？
それについての価値観云々を論じることに結論が出るのかって話です。
>どう書いても
云々についてはすでに論述済みですが
全体を動かす場合には
基準セル1ヶ所のみを絶対参照で指定するほうが明らかにすぐれていますし、
レイアウトの変更であっても
Range表記で基準位置からの相対指定を用いるというのは
あくまで表の体裁の中だけに問題を帰着できるという意味で
レイアウトを記述するための手法として間違ってないと思います。
ところで、なんだか無理筋で反論続けてるように見えるのですが大丈夫ですか？
一応、われわれの議論を第三者が読んでどう判断するか
冷静に考えたほうが良いと思いますよ。
- 60 ：
- >>59
> 書いてますよね？
> R1C1を使い慣れてる人間の意見だって。
皮肉も理解できないの？
そもそもそれはその上の
>> 根拠もなしに下がるとか言われてもなぁ
にかかってるんだけど、そこはスルーなのな w
> 表の修正があったときに「L列から4列ずらす」ってのと
> 「12列目から4列ずらす」ってののどっちが分かり易いかなんて
あのさあ、反論できずに悔しいのはわかるけど、「ずらす」なんて変更がどれだけあるんだ？
って話に戻すの？
普通は、>>13 の例だと 注文書番号 を少し左に寄せたいから AO1 から AN1 に移動させてくれって言われるんじゃね？
直書きならその部分のみを AO1 から AN1 に書き換えるだけ
で、君の方法だとどうなるわけ？
可読性がすごくいいんでしょ？
示してみてよ。
> ところで、なんだか無理筋で反論続けてるように見えるのですが大丈夫ですか？
> 一応、われわれの議論を第三者が読んでどう判断するか
> 冷静に考えたほうが良いと思いますよ。
鏡見た方がいいと思うよ w
- 61 ：
- >>
- 62 ：
- >>60
>根拠
ですから、>>59とかそれ以前の>>49とか>>54とか>>56とかは
全部根拠について書いてるんですが。
意図的なスルーですか?
>普通は、>>13 の例だと 注文書番号 を少し左に寄せたいから AO1 から AN1 に移動させてくれって言われるんじゃね？
>直書きならその部分のみを AO1 から AN1 に書き換えるだけ
>で、君の方法だとどうなるわけ？
いや、オフセット一個増やすだけでしょ
ところで、注文書番号 のAOは一番右端の列っぽいのであえてそこを選んでるんですか?
たとえばB列の外注業者名がずれたら残り全部ずれると思うんですけど。
んでもってそういった場合（一番右端の要素以外の変更の場合）、
「どこどこに@@って項目を追加するから、表を**の項目から全部右にX個ずらして」
みたいな話になるんじゃないでしょうか。
どうみたってオフセットのほうが簡単じゃないですか。
>鏡見た方がいいと思うよ
もちろん、俺は第三者を意識して書いてるので問題ないです。
貴方もそれで良いならこれ以上とくに言うべき事も有りません。
なお>>61は打ち間違えて送信しちゃいました。
たびたびスマン
- 63 ：
- >>62
> ですから、>>59とかそれ以前の>>49とか>>54とか>>56とかは
> 全部根拠について書いてるんですが。
レス番で書かれてもわからないので、該当の箇所を引用してみて
> いや、オフセット一個増やすだけでしょ
で、それが本当に AN1 を指してるのかどうやって確認するの？
可読性がいいんだから一目でわかるんだよね？
早く示してみてよ。
> ところで、注文書番号 のAOは一番右端の列っぽいのであえてそこを選んでるんですか?
一番最初の項目を選んだだけですよ
> みたいな話になるんじゃないでしょうか。
またその話？
>>37
> 仕様変更で項目順の変更とか途中に項目追加とかのほうが多いだろうけど。
って書かれてますよ。
> 貴方もそれで良いならこれ以上とくに言うべき事も有りません。
人のことをとやかく言う前に...
> なお>>61は打ち間違えて送信しちゃいました。
落・ち・着・け・よ
- 64 ：
- それよりParamArrayが参照渡しできないのはなぜなんだせ？
- 65 ：
- >>63
>該当の箇所を引用してみて
>>俺個人としては表の各要素の絶対座標よりも表のレイアウト内での相対位置のほうが重要だと思うんで
可読性は相対表記のほうが上だと思う。
>>絶対アドレスが必要ならそうだけど通常は表内部のレイアウトが問題なんだから絶対アドレスは気にする必要ないよね？
>>表の中での位置関係（表の何行目であるとか何列目であるとか）についての情報のみが必要であって
それは基準セル（通常は左上端）からの相対位置が分ればそれで事足りると言ってるのです。
>>俺は一般人こそ表の体裁（つまり相対位置による個々の要素の関連）には気を使うけれど
その座標なんてものには関心を持たないと思いますよ。
以上、大体全部同じことの繰り返しですが、この辺が俺の主張する可読性に関する意見の根拠です。
本文長すぎるんで続きます。
- 66 ：
- >>65の続きです
ただ、ここに来て根本的な部分の食い違いを実感してるのですが、
>それが本当に AN1 を指してるのかどうやって確認するの？
>可読性がいいんだから一目でわかるんだよね？
というあなたの指摘自体が俺の考えている可読性の概念とは食い違ってます。
あなたは結局シート内でのセルの絶対位置指定やその確認でしか可読性を考えていないようで
俺は逆にそんなものにはこだわらず表のレイアウト中での位置指定という視点で可読性を捉えているわけです。
あなたのやり方は確かにあなたの言うようなシチュエーションでは有効でしょうが、
逆にここまでで俺の主張したようなシチュエーションでは可読性やメンテナンス性が劣るということになります。
たとえばこれですけど
> 仕様変更で項目順の変更とか途中に項目追加とかのほうが多いだろうけど。
途中に項目追加したらそこから先は全部ずれるでしょ？
（よほどスカスカの表なら別ですが、それなりに埋まってる表の場合にはそうならざるを得ません。）
そうするとセルアドレス全部直さなきゃならなくなります。
その場合には全部同じ変更（当該変更箇所を一律にオフセットずらす処理）
で対処できることってメンテナンスには大きなアドバンテージだと思いますよ。
まさか普通の業務ってのがスカスカの表でセル一個だけ変更する作業ばかりだなんて虫の良い事言わないですよね？
実際俺んとこじゃあこういう多数のセルを移動するような業務ばかりなんで俺にとってはそっちのほうが普通なんですよ。
>落・ち・着・け・よ
まぁ、打ち間違いとか変換ミスは良くやっちまうんでスミマセンとしか良いようないけど
重要なのは主張の論旨であってそれは読み手側にある程度の知識があれば
変換ミス程度は何がいいたいのか読解できるだろうからまぁ別にいいかなと思ってます。
- 67 ：
- >>65
根拠頂戴って言ったら
> >>俺個人としては表の各要素の絶対座標よりも表のレイアウト内での相対位置のほうが重要だと思うんで
> 可読性は相対表記のほうが上だと思う。
〜と思うってどこが根拠なんだよ... w
単なる君の意見でしょ
>>66
帳票って見たことないの？
結構スカスカだよ
例えばこんな奴
https://garage.plus.co.jp/guide/estimate/image/egd_itm_1.gif
表の部分は元々複数出力するので VBA でループ回すから位置を変えるのは問題ない
ありがちなのは会社名とか見積もり番号の位置を変えたいとかで、他に影響することはあまりない
- 68 ：
- >>67
いや、それ言い出したらあなたの主張だって単なる個人の意見ですよ
たとえば帳票はスカスカだってのがあなたの意見なわけですが
そういうのじゃない表だってあるんですよ
ウチは科学技術系の職種でして
縦に時系列、横に計測項目（たとえば気温だったり風速だったり）で
複数の計測データをズラズラと並べるんですが
計測するパラメータが増えたり減ったりするんで表のレイアウトが変わるわけです。
そうすると一気に複数個所いじるのが当たり前になるわけです。
これってこっちの業界じゃあ結構当たり前のことで、
そういう時に絶対セル指定なんて使いづらくてやってらんないですよ。
あなたの主張が普遍的意義を持ってるならともかく、
こういう明らかな反例がある以上、
俺の根拠のみを私的意見だと言い切る資格はあなたにはないです。
- 69 ：
- Word VBAで [Shift+Enter] を押したとき、「Chr(11)」が入るみたいだけど、これって何なんですか？
アスキーコード一覧だとVertical Tabulation(垂直タブ)って書いてあるけど、
MSDNだと「タブ文字 (縦)。Microsoft Windows では使用できません。」って書かれててよく分からないんだけど、
Windows OSでは使わないけど、word(VBA)だと使ってる文字コードだよってこと？
wordもwindows版だから、Windowsでは使用できませんってのがよく分からないんですが・・
MSDN
ttps://msdn.microsoft.com/ja-jp/library/cc392241.aspx
アスキーコード一覧
ttp://e-words.jp/p/r-ascii.html
- 70 ：
- >>68
> いや、それ言い出したらあなたの主張だって単なる個人の意見ですよ
残念ながら違う
例えば...
> 基準の位置と Offset の値の二個読まないといけないだけでも直書きより不利
これには事実しか書いてない
俺の意見ではない
また...
> たとえば帳票はスカスカだってのがあなたの意見なわけですが
のようにスカスカに感じるかどうかは個人差があるから、実際の例を出してる
スカスカに思うかどうかは実物を見た人が決めればいい
> そういうのじゃない表だってあるんですよ
それはあると思うが、>>13 の帳票が...
> 計測するパラメータが増えたり減ったりするんで表のレイアウトが変わるわけです。
とは全然違うことぐらいはわかるだろ？
また、どっちの帳票が世の中に多いかもわかるだろ？
あと、時系列で入力するってことは複数の行を扱うんだろ？
>>67 にも書いたけどそう言う奴は普通 VBA のループで処理するから、元々絶対アドレス云々の話じゃないと思うんだが
- 71 ：
- >>70
>これには事実しか書いてない
それ以前の前提条件として絶対アドレスを取得する必要があるかどうか
絶対アドレスでの指定が有効かどうか
といった論点が抜けてますよ。
あとわたしがスカスカに対比して問題にしてるのは
つまり他の箇所を巻き込んで移動させる必要が
生じるかどうかを区別していってるのであって
見た目がどうこうの問題ではありません。
複数個所を同時に変更するかどうかです
さすがにそのぐらいは前後の文脈から汲み取っていただかないと困ります。
どうにもご自分の土俵のみで話を進めようとしてらっしゃるようですが
どちらが多いかはともかくとして
（実際のところ世の中に技術系の業種とそうでない業種がどれぐらいの割合で存在してるかなんて知りません）
それにしたって>>36でいわれるような「滅多にないケース」というほどではないでしょうから
それについての言及はあってしかるべきです。
念のため指摘しておきますが
パラメータの増減は列方向ですしループ云々とは関係ないですよ
- 72 ：
- >>71
> それ以前の前提条件として絶対アドレスを取得する必要があるかどうか
だから相対の方が可読性が高いと言うなら、実例と根拠を出せばいいだけのこと
> 複数個所を同時に変更するかどうかです
個々の項目の細かい位置調整っ言うのは珍しくないよ
> どうにもご自分の土俵のみで話を進めようとしてらっしゃるようですが
何回も書くけど、見積書等の帳票と君のところの Excel シートみたいなのどっちが多いと思う？
> どちらが多いかはともかくとして
重要だけど不利だからスルーするってこと？ w
> （実際のところ世の中に技術系の業種とそうでない業種がどれぐらいの割合で存在してるかなんて知りません）
技術系の業種でも会社なら見積書とか納品書とかの帳票はあるんだよ
> それにしたって>>36でいわれるような「滅多にないケース」というほどではないでしょうから
そこまで言うなら、どれぐらいあるんだ？
根拠とともに示してくれよ
> 念のため指摘しておきますが
> パラメータの増減は列方向ですしループ云々とは関係ないですよ
いや、少なくとも行方向はループで処理するから元々絶対アドレスでは無理だろ
そう言う状況なら列側も相対にするのは珍しくない
ただし、今回の話とは状況が違うからあまり参考にならないって話
- 73 ：
- >>72
>重要だけど不利だからスルーするってこと？ w
>そこまで言うなら、どれぐらいあるんだ？
>根拠とともに示してくれよ
何でこっちにばかり立証責任があるんでしょうか？
あなたが具体的な根拠を示してくださいよ
データ処理系の表なんて日本中の研究機関その他で当たり前に動いてますんで
この辺はどっちが多いとか少ないとか証明するのは無理だと思います
ですので俺は遠慮しときます
>いや、少なくとも行方向はループで処理するから元々絶対アドレスでは無理だろ
データの頭にヘッダってのが付いてるときにループ開始行が変動するってのも割りとよくある話なんで
そこはやはりループ無関係ですよ
てかあなたこっち系の話知らないだけじゃないですか？
>ただし、今回の話とは状況が違うからあまり参考にならないって話
「今回の話」ってのを勝手に局限されても困るんですけど。
表の位置指定について話してたのに
その中で絶対アドレス指定が有利な状況ばかりに
限定して話を進めないでもらえますか？
それが多いとか少ないとかを論拠にするのは
あなたがきちんと証明してからにしてくださいね
- 74 ：
- >>69
> Word VBAで [Shift+Enter] を押したとき、「Chr(11)」が入るみたいだけど、これって何なんですか？
どこでShift+Enterを入力して、それがChr(11)だと確認した方法を教えて。
- 75 ：
- >>73
> あなたが具体的な根拠を示してくださいよ
書いてあるでしょ？
>> 基準の位置と Offset の値の二個読まないといけないだけでも直書きより不利
> データ処理系の表なんて日本中の研究機関その他で当たり前に動いてますんで
うん、その研究機関とかが日本中の企業より多いといいね w
> この辺はどっちが多いとか少ないとか証明するのは無理だと思います
君には無理だろうから遠慮するのは正解
企業統計とか研究機関の数って公表されてて、ざっくり研究機関が 8,000件、会社は 280万社ぐらいと言うことぐらいは覚えていても損はないよ
> データの頭にヘッダってのが付いてるときにループ開始行が変動するってのも割りとよくある話なんで
で？
普通に組んでいたら開始行を変えるだけでしょ？
> そこはやはりループ無関係ですよ
まさかベタ書きしてるの？ w
> 「今回の話」ってのを勝手に局限されても困るんですけど。
元々、>>13 の話
コメント見る限りは注文書の入力用シートの話であることぐらいは理解しようよ
- 76 ：
- >>74
wordで文章の途中でShift+Enterを入力して、
文章を全部選択した状態で、
マクロで↓みたいなのやったら置換されました。
Sub ReplaceSample()
Selection.Text = Replace(Selection.Text, Chr(11), "改行")
End Sub
- 77 ：
- >>69
分かる人いないですか？
- 78 ：
- >>77
その文字がいらないんなら除去すれば？
- 79 ：
- >>77
>これって何なんですか？
WordでSHIFT+Enterを入力したときに入る文字です
>MSDNだと
そのページはVBAのページではありません
VBScriptで定数vbVerticalTabが使えないと言ってるだけです
- 80 ：
- >>79
VBAのページでも同じこと言ってるよ
ttps://msdn.microsoft.com/JA-JP/library/office/gg278800.aspx
- 81 ：
- >>80
英語のページだとNot usefulって書いてあるのか
使ってはいけないと言う意味での「使えません」じゃないって事だな
まあ、実際にWordで使ってるんなら使えばいいんじゃね
- 82 ：
- >>69
なんなですか？
って言われても、VT のコードって言うしかない
そのコードをどのように解釈するかはアプリケーション次第
- 83 ：
- >>75
もうやめとけ。
そいつは長いコード書いちゃいけないって俺は言っただろ。
そのうち事故るよ。
- 84 ：
- >>81-82
んじゃあ「Chr(11)」はタブ文字 (縦)ってことで、それ以上でもそれ以下でもないということですね。
ありがとうございました。
- 85 ：
- MSOfficeのパワーポイント2013のVBAについて、助言をお願いします。
現在、フォーマット修正用に、色々と文字列置換のVBAを作っています。
しかし、shape単位で置換を行うのですが、shape内のフォーマットが全て最初の文字のものになってしまいます。
ctrl+Hキーでできる置換のように、フォーマットを変えずに文字だけ置換する方法があれば教えて下さい。
よろしくお願いします。
- 86 ：
- すいません、勘違いがありました。問題なく出来ました。
- 87 ：
- OWCのグラフで値が空のとこを非表示にするにはどうしたらいいですか？
- 88 ：
- >>87
値が空のデータを削除したら？
- 89 ：
- PowerPointでpptxを開いてPDFで保存するvbscriptを
書いたんですが発行中ダイアログが出てしまいます。
これを出ないようにする方法はないでしょうか？
- 90 ：
- >>89
ここVBAのスレ・・・
- 91 ：
- VBScript≠VBA
- 92 ：
- VBScriptのスレって池沼みたいな変なコテハンがいて関わりたくないのよね
- 93 ：
- >>89
試しにパワポにマクロでＰＤＦ出力を作ってみましたが
別に何も出ませんでしたよ？
Office2013ですけど。
- 94 ：
- >>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
- 95 ：
- >>94
どうもです
こちらへ誘導したExcel総合相談所 119の171です
私パワポ持ってないんで確認できないんですけど、組み込み定数の違いってなにか関係ないですかね?
■[Tips]PowerPoint 2010 のPDF変換機能を利用して、Powerpointを起動せずにPDFに変換するVBSスクリプト
http://d.hatena.ne.jp/nagasama/20110310/1299772579
をみると
パワポのファイルフォーマットでPDFをあらわすのは"ppSaveAsPDF"(=32)で、
貴方のコード中の"wdFormatPDF"(=17)はワードのファイルフォーマットでPDFをあらわすものみたいですよ
参考までにマイクロソフトのリファレンスもどうぞ
PpSaveAsFileType 列挙 (PowerPoint)
https://msdn.microsoft.com/ja-jp/library/office/Ff746500.aspx
Wdsaveformat クラスの列挙 (Word)(機械翻訳)
https://msdn.microsoft.com/ja-jp/library/office/Ff839952.aspx
ぜんぜん見当違いだったらごめんなさい
- 96 ：
- >>94
よくみたら組み込み定数じゃなくて変数で宣言してましたね
見当違い以前のはなしでした
本当にごめんなさい
- 97 ：
- >>94
93ですけど、そのソースをコピペしてコマンドプロンプトから
実行してみましたが、家の環境(Win10)では普通にPDFできますよ？
ダイアログも出ませんでしたよ。
実行した時はスライド1枚の軽いPPTでやったのですが、
94さんは、もしかしたら結構スライド数多いPPTだから出るんですかね？
- 98 ：
- 出てるダイアログが再現できないので、わからないのだけれども
↓のプロパティでどうにもならないんだとしたら、諦めるしかないのかも。
Application.DisplayAlerts
ttps://msdn.microsoft.com/ja-jp/library/office/ff746503(v=office.15).aspx
- 99 ：
- >>97
スライド数は２０くらいでしょうか。
>>98
試してみましたが残念ながら出てしまいました。
困りました。
- 100 ：
- Windows10でie操作のマクロって動くのですか？
edgeは互換性あるわけでは無いですよね。
別にインストールするのですしょうか。
これでクリエイトするオブジェクトです。
CreateObject("InternetExplorer.Application")
100〜のスレッドの続きを読む
C++14/C++1z 20
3Dアルゴリズム全般
人工知能ディープラーニング機械学習のための数学
MATLABプログラミング 質問箱 その4
設計思想/ソフトウェア工学(UML, デザパタetc)
[RPA]PC自動化技術総合スレ[効率化] Part.7
php使ってる奴はアホ、これからはRuby on Rails!
Julia Juno Jupyter part1
Borland Developer Studio 2006 No.13
.Net Core / Net ASP Core
--------------------
オスふさんとすことうの秘密の部屋
阿部定事件起こる
白石と堀、西野と堀 の関係って？仲悪いの？てか堀と仲良い1期ってだれ？
幻想神域 愚痴スレ Part14
外見で何科か判断する方法
耳 コ ピ は ダ メ 。 ゼ ッ タ イ 。
千葉県サバゲスレッド 第81フィールド
マスク不足とかいちいち騒ぎすぎだろ ただの布切れだぞ パンティでも被っとけ
ラブマスター２青年期ちよりルート
（ ＾ω＾）・・・２９
ほんこん「日本が戦後補償をなぜ北朝鮮にしないといけないのか理解出来ない。韓国が北朝鮮に払えばいい」 ネット「ど正論」
【東京事変】椎名林檎、西村担当相に苦境訴え★３
同人絡みで嫌いだけど人に言えないもの その18
日本ワインを応援するスレ15本目
乾電池が使えるmp3プレイヤー総合スレ 11本目
☆【画像】5913
筋違い角を語るスレ
真面目なせいか彼氏できないってスレ立てたただのビッチ女だけど
【チリ】五式中戦車、四式中戦車【チト】
DIR EN GREY 882
TOP カテ一覧 スレ一覧 100〜終まで 2ch元 削除依頼
