[過去ﾛｸﾞ] Excel VBA 質問スレ Part68 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
108: (ﾜｯﾁｮｲ e7e6-n8ne) 2020/09/07(月)23:22 ID:sgrgY4Mk0(2/2) AAS
JavaScriptを読んで何やってるか調べろ
109: (ﾜｯﾁｮｲ 27ce-n8ne) 2020/09/07(月)23:49 ID:744b2nM10(3/3) AAS
>>107
Form送信は単純なHTTPアクセスで代替できるケースが多いから、これもブラウザを使う必要はない
てか、WEBの構造はVBA関係ないし
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
111: (ﾄﾞｺｸﾞﾛ MM7b-aCGe) 2020/09/08(火)02:03 ID:weDKADyMM(1) AAS
>>110
for i= activeworkbook.worksheets.count to 1 step -1
apprication.goto activeworkbook.worksheets(i).range("a1")
next i
activeworkbook.save
スマホ打ちだから綴りミスはあるかも
112(1): (ｱｳｱｳｶｰ Sa9b-vRCQ) 2020/09/08(火)07:47 ID:vMdvrooDa(1/2) AAS
>>110
For eachで全シート回してるならActivateしなくても、
sh.Range("A1")で行けないか？
113(1): (ｱｳｱｳｶｰ Sa9b-vRCQ) 2020/09/08(火)07:48 ID:vMdvrooDa(2/2) AAS
>>112
間違えたsh.Range("A1").Selectだわ
114: (ﾜｯﾁｮｲ 27da-XrX+) 2020/09/08(火)10:40 ID:C66iYfBu0(1/3) AAS
>>110
働かないという場合の原因で以下のことを調べてみ
1.実は働いていたがその後に別の動作をしたため働いていないように見える
2.働こうとしたが、なんらかの異常が出て失敗している
3.その処理が実行されていない（on errorやifの条件、イベント発生していないなど）
115: (ﾜｯﾁｮｲ 272c-3NJ+) 2020/09/08(火)11:03 ID:0vfIbeP00(1) AAS
>>105
漏れは、yahoo のログインとか、
Ruby, Selenium Webdriver で、ブラウザを自動操作してる
単純なダウンロード・スクレイピングなら、RubyのNokogiri。
外部コマンドなら、curl, wget
116: (ﾗｸｯﾍﾟﾍﾟ MM8f-dQ4P) 2020/09/08(火)11:52 ID:POT3YWITM(1) AAS
Application.EnableEvents=Falseしてるとか？
117(1): (ﾜｯﾁｮｲ 0701-4dlc) 2020/09/08(火)16:58 ID:qXkQmTRa0(1/2) AAS
“>-1”&i
て書いたときに >-2 >-3... っていうふうに比較値が意図せず負に進むんだけど正の値に足したい場合ってどうすれば良いでしょうか。
118(1): (ｱｳｱｳｳｰ Sa8b-vi+Z) 2020/09/08(火)18:39 ID:p9XW8v7Na(1) AAS
>>117
VBAの挙動の問題
-を文字列、1を数値として認識してる
そもそも、-1をダブルクォーテーションで括ってるのは文字列として-1を認識させたい時のみにするのが基本
なので、ダブルクォーテーションを取ってやれば意図通り動くはず
119: (ﾗｸｯﾍﾟﾍﾟ MM8f-dQ4P) 2020/09/08(火)19:07 ID:Pjd0b/NhM(1) AAS
へー、そんな挙動するんだ。知らなかった
>-11
>-12
>-13
になると思ってたよ
120: (ﾜｯﾁｮｲ e77c-ALHH) 2020/09/08(火)19:08 ID:E23V8S4o0(1/5) AAS
>>113
activeじゃないシートはselectできないと思うが
121: (ﾜｯﾁｮｲ e77c-ALHH) 2020/09/08(火)19:10 ID:E23V8S4o0(2/5) AAS
>>110
Forの中身が間違ってるとか別のブックを見てるとか
ほんとに選択したいシートが選択されてるか確認した？
122: (ﾜｯﾁｮｲ 0701-biH0) 2020/09/08(火)20:06 ID:qXkQmTRa0(2/2) AAS
>>118
クォーテーション外してやってみたけど上手くいかないです...
初心者なんで拙いですが、一応自分で書いたものをのせます。
既出のデータを整理して2次元チャートを作成する目的です。
Dim cnt As Integer
Dim x As Long
Dim y As Long
x = 0
y = 0
For x = 0 To 10
省5
123: (ﾜｯﾁｮｲ e77c-ALHH) 2020/09/08(火)20:34 ID:E23V8S4o0(3/5) AAS
いつも人任せだな…
そのcountifの引数の中身が自分の意図した内容かなんで確認しないの？
124: (ﾜｯﾁｮｲ 5fb5-/qgI) 2020/09/08(火)21:43 ID:MiWYYVaX0(1/5) AAS
もう30過ぎて勉強もなぁ…って手が進まない
VBAを知識をパンパンに詰め込んでああこれねって感じでカタカタと打ち込んでプロシージャ作りたいもんだわ
125: (ﾜｯﾁｮｲ e77c-ALHH) 2020/09/08(火)21:57 ID:E23V8S4o0(4/5) AAS
考えることを人に丸投げしてるだけで勉強は関係がない
126(2): (ﾜｯﾁｮｲ 5fb5-/qgI) 2020/09/08(火)22:00 ID:MiWYYVaX0(2/5) AAS
人に丸投げというかネットで拾ったものの組み合わせでいつも何とかしてしまう
知識がほとんど入らない
異動希望出してるしなぁ
127(1): (ﾜｯﾁｮｲ 5f1f-W64q) 2020/09/08(火)22:06 ID:aT8iqlgZ0(1) AAS
エクセルの指定列から3列コピーしてその4列目に挿入して貼り付けた後セルに入ってる値を消すコードをRangeじゃなくてCellsでやりたいです。
clmtar=10
10〜13列をコピー
14列目に挿入
14〜17列目のセルの値クリア。
上下前次1-新書関写板覧索設栞歴
あと 875 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.018s