[過去ﾛｸﾞ] VBAなんでも質問スレ Part2 [転載禁止]©2ch.net (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
25(1): 2015/07/02(木)14:46:01.74 ID:AbwDTtrn(1) AAS
年月は、ボックスからプルダウンリストで指定
するだけです。ただ、指定年月の1〜月末までの日付、曜日を月報の1.2行目に縦に列記するコードが出来ないのです。
34: 2015/07/06(月)13:55:10.74 ID:henE3y4I(1) AAS
向き不向きに関する思い込みだな
165(3): 2016/04/09(土)01:33:44.74 ID:8VJ1WNjN(1/5) AAS
Declare 文でDllを指定するとき、絶対パスを指定するのとしないので挙動が変わるなんてことありますかね？
パスの通ったフォルダにDllを置きDeclare文にはパスを書かない、という状態で何度テストしても失敗する（結果がおかしい）ので、
もしやと思って絶対パスを指定してみたら成功しました。何度やっても同じです。
念のため他のフォルダに同名のDllがないか確認しましたが、そんなものはありませんでした。
Window7、Excel2010(64bit)です。
231: 227 2016/09/29(木)08:22:26.74 ID:l2tsRcXf(1) AAS
くぅ。
短絡評価してくれるもんだと思って、
True, False, Nullを返す関数の結果で、
NullをFalseに倒したくて、
左辺でNot isNullやってたけど、
右辺もNullで動いてしまってエラーになってはまったわ。
276: 2017/02/26(日)16:57:59.74 ID:nMuhJunv(3/3) AAS
>>275
あっ！できました！ありがとうございます！助かりました！
321(1): 2017/04/28(金)22:13:43.74 ID:A3VkBONm(1) AAS
Publicな静的変数は使わない。
エクセルのセルとかワードの文書変数とかの規定オブジェクトにデータを書き込んだ方が便利
399: 2017/09/24(日)10:07:44.74 ID:lViLIhLn(1) AAS
>>393
だな、簡素で分かりやすく奇麗なコードだ
477(1): 2018/01/25(木)14:35:16.74 ID:HAPJI9RJ(3/5) AAS
こんな感じの表Aがあって、似たような表Bが別シートにあるんですけど、
表Aのセルの色を付けると同時にB表のセルのイロを変える
または、セルの文字も一緒に持ってくる
できますか？
画像ﾘﾝｸ
815: 2019/03/30(土)09:27:30.74 ID:uS2atdcl(1/3) AAS
>>814
それ、1行ごとの構文解析だろ
For Next Do Loop Iｆ End If
のチェックまではしてないと思うぞ
835(1): 2019/05/14(火)16:16:33.74 ID:E8REZJpG(1) AAS
いきなりライブラリと言われても何のことやらわからない。
932: 2020/06/27(土)08:55:28.74 ID:9qJBLgyD(1) AAS
Aex
981: 2021/05/14(金)13:34:48.74 ID:Kf/7Ycdt(2/3) AAS
Sub 括弧内の改行を削除()
Dim myRange As Range
Set myRange = ActiveDocument.Range(0, 0)
With myRange.Find
.Text = "[「『""]*^13*[""』」]"
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
Do While .Execute = True
With myRange.Find
.Text = "^13"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
DoEvents
End With
Loop
End With
Set myRange = Nothing
End Sub
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ
ぬこの手 ぬこTOP 0.044s