[過去ﾛｸﾞ]
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
VBAなんでも質問スレ Part2 [転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1432173164/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
1: デフォルトの名無しさん [] 2015/05/21(木) 10:52:44.71 ID:KLv0vQmm VBAを使った質問ならなんでもござれ 本来の対象であるオフィスアプリを操作する以外の話もＯＫ ゲーム作り、Webアクセス、外部アプリの操作 COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど VBAで実行するものであればなんでも質問してください VBAを開発環境としていろいろ作っちゃいましょう 前スレ VBAなんでも質問スレ http://peace.2ch.net/test/read.cgi/tech/1342087380/ 関連スレ Excel VBA 質問スレ Part36 [転載禁止]©2ch.net http://peace.2ch
.net/test/read.cgi/tech/1419718732/ Access VBA 質問スレ Part1 http://peace.2ch.net/test/read.cgi/tech/1328536426/ VBプログラマ質問スレ（Ver.6.0 まで） part64 http://peace.2ch.net/test/read.cgi/tech/1393069842/ Excel総合相談所 118 [転載禁止]©2ch.net http://peace.2ch.net/test/read.cgi/bsoft/1430352555/ http://mevius.5ch.net/test/read.cgi/tech/1432173164/1
2: デフォルトの名無しさん [sage] 2015/05/21(木) 10:55:03.32 ID:KLv0vQmm 前スレ埋まってたから立てた http://mevius.5ch.net/test/read.cgi/tech/1432173164/2
3: デフォルトの名無しさん [sage] 2015/05/22(金) 20:11:01.96 ID:HMp/+WyD バカはレスしないでくれる？ 個人の主張として批判せず、いたずらにある類として扱うのは極めて恣意的かおバカの批判にあらざる攻撃の特徴。 まあ、その軽蔑すべき発想で返した俺も反省はしてもよいが はっきり言って精神病とバカの特徴でしかない論法でレスするなよ。 俺はバカと精神病きらいだからな。 おまえら、マジで精神病と思われる宣言的絶対主義の形而上学バカの一味は人類の公的な敵だとおもっているからな。 さしあたりお前らが馬鹿にされていることは科学的認
識の健全性をそれなりに示すから喜ばしいがな。 それにしても、単なる知識を披露しあっているだけの時は頭良さそうなふりはできるが、 いよいよ自身の認識を問われる事態になるとここにいる連中、そこの浅さを露呈するやつ多すぎ 所詮、2chだな http://mevius.5ch.net/test/read.cgi/tech/1432173164/3
4: デフォルトの名無しさん [sage] 2015/05/26(火) 09:57:20.64 ID:98AIg8rM ここまでテンプレ http://mevius.5ch.net/test/read.cgi/tech/1432173164/4
5: デフォルトの名無しさん [sage] 2015/05/26(火) 11:15:15.08 ID:IGUKy8Mq >>3 むしろ自分が歯が立たない相手だと分かったら「精神病と馬鹿」というレッテルを相手に貼って 逃げるお前の方がヘタレだけどな 精神病で馬鹿なのはお前の方だよ http://mevius.5ch.net/test/read.cgi/tech/1432173164/5
6: デフォルトの名無しさん [] 2015/05/28(木) 19:23:08.79 ID:S82MiYOL どこかわからんのでココで。 WordVBAで質問です。 あらかじめスタイルを本文内に設定しておき、 マクロで指定したスタイルが設定されている箇所を検索→ そのスタイルが指定されている場所の文章の置き換え ということがしたいですが可能でしょうか。 スタイル名を指定して本文内を検索する、という例が見つからず困っております。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/6
7: デフォルトの名無しさん [sage] 2015/06/10(水) 12:51:41.97 ID:Eg5H5jgh 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 .MatchC
ase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute Replace:=ReplaceAll End Sub http://mevius.5ch.net/test/read.cgi/tech/1432173164/7
8: デフォルトの名無しさん [sage] 2015/06/10(水) 12:51:59.79 ID:Eg5H5jgh ↓ここが参考になりそうなんですが、ほぼ素人の自分には無理でした…わかる方教えてください。 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/ http://mevius.5ch.net/test/read.cgi/tech/1432173164/8
9: デフォルトの名無しさん [sage] 2015/06/15(月) 17:19:16.55 ID:pR/1zNa6 >>7 受信したメールを置換ってできないのでは？ 置換したファイルをエクスポートするのですか？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/9
10: デフォルトの名無しさん [sage] 2015/06/16(火) 22:15:42.00 ID:x8vn2cko すみません、受信メールではなく、作成中のメールです。 PCからガラケーに送ると、Enter改行だと無視されてしまうので、送る前にボタンを押してShiftEnter改行に変えたいのです。 リンク付きでPCの人にも送るので、HTMLメールのまま送りたいので。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/10
11: デフォルトの名無しさん [sage] 2015/06/17(水) 02:45:22.84 ID:WySeJcTb >>10 リボンの編集→置換で（ワイルドカードを使用する）＾１３と＾１１を指定すればウィンドウからはできましたが、 この機能に該当するメソッドがどうにも探せないですね。 参考にされたコードはワードのものなんですけど、OUTLOOKで使うにはちょっと無理そうです。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/11
12: デフォルトの名無しさん [] 2015/06/30(火) 10:29:12.58 ID:ewTLWEfL 初心者から始め、2年ほど1人でVBA業務をしていたのですが そろそろ引き継ぎ等も考え、コーディング規約のようなものを作成しようと考えています。 各プログラムで命名規則も違うため、統一したいのですが今ひとつ可読性の高い命名というのがわかりません。 修正前の変数宣言のコードを記載しますので、ぜひ添削していただけないでしょうか。 なお、グローバル変数宣言しているのは当時、この方法が一番良いと思ったためです。 http://mevius.5ch.net/test/read.cgi/tech/1432
173164/12
13: デフォルトの名無しさん [] 2015/06/30(火) 10:41:30.91 ID:ewTLWEfL 'ワークシート名宣言 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 Co
nst 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 Co
nst 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" '変動税率 http://mevius.5ch.net/test/read.cgi/tech/1432173164/13
14: デフォルトの名無しさん [sage] 2015/06/30(火) 16:19:51.35 ID:GcuTOY9X >>13 工事をConと省略せずにconstruction_xxxと書くべきだと思うが、それよりもワークシートのセル番地を固定文字列で定義するのはまずいだろう。 一行ずらしましょう、とかするときどうするの？不自由この上ない。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/14
15: デフォルトの名無しさん [sage] 2015/06/30(火) 16:46:45.95 ID:ybpzKx4V Detaが気になる･･･ http://mevius.5ch.net/test/read.cgi/tech/1432173164/15
16: デフォルトの名無しさん [] 2015/06/30(火) 18:04:04.25 ID:RGb3IB+F >>14 セル番地の固定文字列については改めて見るとすごくおかしいと思いました。 修正したいですが、皆さんワークシートやセル番地の定数はどのようにされているのでしょうか。 検索はするものの、なかなか見つけられず困っています。 >>15 気づきませんでした、すみませんありがとうございます。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/16
17: デフォルトの名無しさん [sage] 2015/06/30(火) 19:44:23.68 ID:4fqzjiG2 セル番地はセルに名前を付ける 列番号はenumにまとめる シート名はconst 基本適当 http://mevius.5ch.net/test/read.cgi/tech/1432173164/17
18: デフォルトの名無しさん [] 2015/07/01(水) 22:28:04.95 ID:DXkWToqb 一日20項目ほどの数値データが入力されている月報の表を 月末にデータを全て消去して、同じWS上で次月の日付、曜日 の書き込まれた新しいフォームに更新したいのですが、 マクロで実現可能でしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/18
19: デフォルトの名無しさん [sage] 2015/07/01(水) 22:31:39.26 ID:jU+pvdKi 手動でやれることはたいがいマクロ化できる。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/19
20: デフォルトの名無しさん [] 2015/07/01(水) 23:04:39.40 ID:DXkWToqb やってみたけど30日までの月や31までの月などがあって 上手く行かないのです。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/20
21: デフォルトの名無しさん [] 2015/07/01(水) 23:05:37.19 ID:DXkWToqb どこかにサンプルコードでも落ちてないでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/21
22: デフォルトの名無しさん [sage] 2015/07/02(木) 02:39:59.24 ID:9jOibGQm 翌日の日付が「1」だったらコードを実行するようにしたらいいんでない？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/22
23: デフォルトの名無しさん [sage] 2015/07/02(木) 11:43:59.86 ID:mBr3NkR3 >>18 年と月が指定されればその月の日数は求められるよ （月だけだとうるう年があるから2月に対応出来ない） 具体的やり方は複数あるだろうけど 例えばDateserial関数で指定月の翌月のゼロ日（ツイタチの前日）を求めれば出る 2015年7月の日数を求めたらこんな感じ Sub Test() Dim 年指定 As Long Dim 月指定 As Long Dim 日数 As Long 年指定 = 2015 月指定 = 7 日数 = Day(DateSerial(年指定, 月指定 + 1, 0)) End Sub http://mevius.5ch.net/test/read.cgi/t
ech/1432173164/23
24: デフォルトの名無しさん [sage] 2015/07/02(木) 13:00:55.32 ID:ww5oQ+GG >>18 フォーム更新のタイミングは？ ファイルを開いたときに自動で更新するの？ http://mevius.5ch.net/test/read.cgi/tech/1432173164/24
25: デフォルトの名無しさん [] 2015/07/02(木) 14:46:01.74 ID:AbwDTtrn 年月は、ボックスからプルダウンリストで指定 するだけです。ただ、指定年月の1〜月末までの日付、曜日を月報の1.2行目に縦に列記するコードが出来ないのです。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/25
26: デフォルトの名無しさん [sage] 2015/07/02(木) 16:13:54.40 ID:mBr3NkR3 >>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 http://mevius.5ch.net/test/read.cgi/tech/1432173164/26
27: デフォルトの名無しさん [] 2015/07/02(木) 19:18:37.45 ID:zxCnKqA7 何とかできそうです。ありがとうございました。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/27
28: デフォルトの名無しさん [sage] 2015/07/02(木) 20:29:21.19 ID:Mdba4OI7 >>14 なんやわからん英語で書かれている方がよっぽど分かりずらいので、 あくまでもEXCELマクロで使用するスクリプトなのでコメントに書いている そのコードを外人に見せるなら英語が望ましいけど、 漢字をそのまま使えばいいかと。 工事名称等は重複してるので、設定_工事名称とかになるんでしょうかねー。 セル番地の固定値を変数で持っているのが引っかかっているみたいですけど、 メンテするときはコードのメンテも込みになるでしょうから、 変数に代入して整
理してるし良いのでは？ というか、そういう風にルールを敷けばいいとおもうの。 http://mevius.5ch.net/test/read.cgi/tech/1432173164/28
29: デフォルトの名無しさん [sage] 2015/07/03(金) 08:49:41.34 ID:IELcwsmr >>28 全体を一行下にずらす、とかするとき数十個ある変数を個々にメンテするの？ 工事_A = "AO1" → 工事_A = "AO2" 工事_B = "AP1" → 工事_B = "AP2" ・・・ http://mevius.5ch.net/test/read.cgi/tech/1432173164/29
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 973 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.014s