[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
13(3): (ﾜｯﾁｮｲ 45cc-pyQU) 2020/08/31(月)19:07 ID:Lt7FggAF0(1/2) AAS
Ｂ列に"2020/8/1"のように日付が入っていて
Ｂ列に"発行日"&和暦を入力したいのですが、年・月・日がそれぞれ１桁の場合は頭に０が入ってしまします。
１桁の場合は、０の代わりに半角スペースにしたいのですがどう書けばいいですか
Dim r As Long
For r = 1 To Cells(Rows.Count,1).End(xlUp).Row
Cells(r,2).Value = Format(CDate(Cells(r,1)), "ggge年m月d日")
Next r
20(5): (ﾜｯﾁｮｲ 4d10-t21d) 2020/09/01(火)20:49 ID:4J5+lU0z0(1/2) AAS
神経衰弱を作っています
Image1~52を並べて全てのImageにクリックされた時の処理を記述しているのですがImageがクリックされた時の処理をひとつにまとめる方法はないでしょうか？
64(3): (ｽﾌｯ Sd7f-7sgX) 2020/09/05(土)14:03 ID:4XqPsYsKd(1) AAS
ループカウンタ用の変数名はとりあえずiにでもしとこうっていう昔からの名残
細かく言うと整数を表すIntegerのi
i、j、k〜nまで順によく使われる
74(3): 63 (ﾜｯﾁｮｲ 0701-zmOT) 2020/09/05(土)16:23 ID:ZUfl2WLX0(1/2) AAS
>>70
すいません
そもそもそれもよく分かってなかったのです。
ちなみに良かったらどういう意味が教えて欲しいです。
聞いてばかりで申し訳ありません。
110(5): (ﾜｯﾁｮｲ e761-Mi9Z) 2020/09/07(月)23:56 ID:UwONkXQv0(1) AAS
エクセル2010です。
上書き保存時にすべてのシートでA1セルを選択するようにしたいのですが、
Ctrl+S時とボタンのクリックイベントで挙動が違うことにハマってます。
1枚目シートにactiveXコントロールのボタンを配置し、VBAの構成は以下です。
1. シートモジュール : ボタンのクリックイベントにThisworkbook.saveだけを書いています。
2. ThisWorkbookモジュール : beforeSaveイベントで3を呼び出し。
3. 標準モジュール : 全シートのA1セルを選択するSubプロシージャ。ForEachでまわすだけ。
Ctrl+Sの際は2→3でうまくいきます。
ボタン押下の場合は、1→2→3と流れてはいるものの、なぜか各シートがactivateされなず、activeSheet.Range("A1").Selectが働きません。
1のクリックイベントから直接3を呼び出すのは、うまく行きます。
省2
181(3): (ﾜｯﾁｮｲ 3dad-sCec) 2020/09/10(木)18:36 ID:VdzBOqiR0(2/3) AAS
画像ﾘﾝｸ[jpg]:i.imgur.com
これです
203(3): (ﾜｯﾁｮｲ 3dad-IT/D) 2020/09/10(木)22:59 ID:VdzBOqiR0(3/3) AAS
180ですなんとかできました。ド素人なんで申し訳ない
このコードはそんなできのいいものじゃないんですか？
先生凄く威圧的でいつもそんなんもわからんのかみたいな喋り方なんすけど
267(4): (ﾜｯﾁｮｲ 5701-Cup9) 2020/09/16(水)23:48 ID:dsrVDQ5Z0(2/2) AAS
ありがとうございます
>""で囲ったら演算子でも変数でもないただの& hogeという文字列にしかならない
なるほど確かにです
では、&演算子でつなぐと文字列扱いになるという認識が間違っているのでしょうか？
それとも文字列扱いにはなるけど上記の理由から外すことになっているという感じでしょうか？
306(5): (ﾜｯﾁｮｲ b7cc-lMKa) 2020/09/18(金)20:57 ID:nL5nIenz0(1) AAS
C列に"2007/3/26"などのような書式で年月日が入っていますが
それをＣ＝年、Ｄ列＝月、Ｅ列＝日にしたいのですが
↓だと年が１９０５,月が１、日が２６日のように変換されてしまいます。
Dim r As Long, dt As date
For r = 2 To 435
dt = CDate(cells(r,3))
Cells(r, 3) = Year(dt)
Cells(r, 4) = Month(dt)
Cells(r, 5) = Day(dt)
Next r
397(3): (ﾜｯﾁｮｲ 5fda-b+lb) 2020/09/26(土)20:07 ID:wDXyaCpN0(1) AAS
getElementBy飽きたんだけど、RPA的制御じゃなくて、htttp通信を駆使してどうにかする、みたいのない?
APIとか使えない古いシステムに対して。
425(4): (ﾜｯﾁｮｲ cf63-dtjG) 2020/09/30(水)16:57 ID:QOxpj5qw0(1) AAS
>>424
フォームのテキストボックスに機器の計測値が入るようになっており
テキストボックスにフォーカスがあたってない状態で計測値が送られてくると値が取れないのでおじーちゃんたちにも気づくようにフォーカスが離れた時に警告ユーザーフォームを出したいのです。他アプリケーションなどを立ち上げる事も想定されます。
>>422
情報ありがとうございます
画像の通りやってみましたがイルカさんは働いてくれませんでした…
439(3): (ﾜｯﾁｮｲ ff1f-Fuq4) 2020/10/01(木)21:36 ID:dM4yb7Ap0(1) AAS
罫線で囲われてたり、色塗りされたりするセルをマウスでドラッグ移動した時移動した場所は何もなくるなるのを罫線のみを残す方法ってありませんか？
簡単に言うと罫線で作った表の形式を保持したい。
471(3): (ﾜｯﾁｮｲ 6309-gW4a) 2020/10/04(日)19:09 ID:mqiPq7lq0(2/3) AAS
配列を戻す自作関数を呼び出し先Subから複数回実行して、配列を結合したい
んだけど、どうすればできますか？ redim preserveとUBoundを使うのかも
しれないけど、いい感じにまとまったコードが書けない。
例えば、下の関数を、別のSubから2回実行させて、
「Ary(3) ※中身：path1,path2,path1,path2」
の結果を得たいです。
Function TestFunc()
Dim testPath(1)
testPath(0) = "path1"
testPath(1) = "path2"
省3
519(3): (ﾜｯﾁｮｲ 0f41-ICsZ) 2020/10/09(金)16:14 ID:SmS5zjtB0(1) AAS
1,1,2,2,3,4,4,4,5,6
を
1-1,1-2,2-1,2-2,3,4-1,4-2,4-3,5,6
に変換したいのですが、どういうコード書けばよいのでしょうか？
555(3): 542 (ﾜｯﾁｮｲ 672c-JAxH) 2020/10/10(土)22:30 ID:BjcbKuib0(4/5) AAS
データベース変換などは、Ruby のEnumerable のメソッドを見て、
シェル芸とか、プログラミングのお題スレの問題を解いた方がよい
VBA は可読性が悪すぎて、作っても再利用できない。
OSS で全会社共通で、RubyのEnumerable 相当のメソッドを作って公開するべき！
他言語ではたいてい、Rubyと等価のメソッドを作る
560(3): (ﾜｯﾁｮｲ 6b63-JAxH) 2020/10/11(日)12:29 ID:lH9sVzvl0(1/2) AAS
Acrobatを使用したプログラムを複数回実行すると初回だけ成功し
2回目以降は
実行時エラー2147467259(80004005)
エラーを特定できません
となります(idに代入する行でエラー)
終了処理に不備があってacrobatのプロセスが残っているのではと思いましたが
色々なサイトを見ても解決がわからない状態です。
どうすれば治りますか。
プログラムは次のレスを参照ください。
610(4): (ﾜｯﾁｮｲ d163-MACq) 2020/10/22(木)22:49 ID:kity+iCG0(1) AAS
FileSystemObjectの参照設定
VBAの中でできないのかな？
640(4): (ﾗｸｯﾍﾟﾍﾟ MMe6-1Dkg) 2020/10/24(土)12:24 ID:9i+KquaLM(1/2) AAS
あるフォルダに複数のエクセルがあります。
シートは必ず一枚。
一番ファイル名が短いエクセルに
他のエクセルのシートをコピーしてまとめたい。
どう書けば楽ですか。
652(5): (ﾜｯﾁｮｲ 05cc-BPyH) 2020/10/24(土)15:59 ID:h35l0z5Z0(1/2) AAS
シート"土曜日の小計"のＡ２から、祝日と会社の休業日以外の土曜日を書いていくマクロを考えています。
（シートカレンダーのＡ列に日付、Ｂ列にＡ列の日付が祝日であれば"1"が入力してあり、Ｃ列に会社の休業日なら"１"が入力してあります）
このマクロだと、「424 オブジェクトが必要です」になります。どう書けば良いですか？
Dim a As Long,r As Long
a = 2
省8
667(4): (ﾜｯﾁｮｲ ee63-9Kcm) 2020/10/25(日)12:51 ID:6oKLzf6v0(1/2) AAS
ある変数に、なんでもいいから100文字セットしたい場合って
どの関数使えばいいの？
str = "*****..."(100文字)
と書くのはダサいから嫌です
678(3): (ﾜｯﾁｮｲ d163-9Kcm) 2020/10/25(日)21:38 ID:eeV8PNBf0(1) AAS
複数行まとめてコメントアウトしたい場合
どう書けばいいですか
一行ずつ'を入れたくないです。
782(3): (ﾜｯﾁｮｲ 4b64-bMCz) 2020/11/11(水)04:19 ID:WkAepZ970(1) AAS
3つの整数をA1,B1,C1にいれるとE1に最大公約数を返すプログラムの作り方をforを用いてプログラムを教えてください
847(3): (ﾜｯﾁｮｲ 7ab5-gkou) 2020/12/02(水)22:02 ID:nZBMSUJj0(2/2) AAS
>>845
いや、知らないですけど、くらいにとぼけようかなと
>>846
そこまでガチガチにやるつもりもなく
プロパティのロックしとく程度の予定
やっぱ悪質かなぁ
上司と遺恨のあるまま異動だから悔しくて
932(3): (ﾜｯﾁｮｲ 8705-gg0d) 2020/12/10(木)01:11 ID:32G50CXp0(1) AAS
すでに引いてある枠線をすべてオートシェイプに置き換えることはできますか？
一括で変換できれば楽なんですが
そのようなことをしたい理由はExcelは先の太さのバリエーションがないのでオートシェイプで任意の太さの線にしたいからです
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.054s