[過去ログ] Excel総合相談所 137 (1002レス)
上下前次1-新
このスレッドは過去ログ倉庫に格納されています。
次スレ検索 歴削→次スレ 栞削→次スレ 過去ログメニュー
1: 2019/10/08(火)20:06 AAS
【1 OSの種類 .】 Windows**
【2 Excelのバージョン 】 Excel**
【3 VBAが使えるか .】 はい・いいえ
【4 VBAでの回答の可否】 可・否
▼━関連スレ━━━━━━━━━━━━
前スレ
Excel総合相談所
https://find.5ch.net/search?q=excel
Excel VBA 質問スレ
https://find.5ch.net/search?q=excel+vba
省2
2(1): 2019/10/08(火)20:06 AAS
立ってなかったので立てました
どうぞ〜
3: ぴころ ◆lHG3Yzo0a6 2019/10/08(火)21:16 AAS
新スレおめ☆(^▽^)
4(1): 2019/10/08(火)21:22 AAS
iが飛び飛びになる理由を無理矢理考えると、
実はieのチェックボックスのIDが偶数しかなく、
On Error Resume Nextで飛ばしてるとか。
5: 2019/10/08(火)21:46 AAS
>>4
一応要素は1個1個調べたんですが、0から綺麗に並んでいました・・
6: 2019/10/08(火)21:46 AAS
STEPが2じゃないならForの中に原因があるんだからそこが見えなければこっちも何もわからん
7: 2019/10/08(火)22:07 AAS
こんな感じだったと思います
Sub h()
Dim shl As Object
Set shl = CreateObject("Shell.Application")
Dim targetTitle As String
targetTitle = "url"
Dim win As Object, getFlag As Boolean
For Each win In shl.Windows
If TypeName(win.document) = "HTMLDocument" Then
If win.document.Title = targetTitle Then
省19
8(2): 2019/10/08(火)22:14 AAS
ごめんなさい肝心のfor内に忘れ物してました
Dim i As Long
Dim anchor As HTMLAnchorElement
For i = 1 To 20
If Not Range("A" & i).Value = "" Then
For Each anchor In objIE.document.getElementsByTagName("select")
If InStr(anchor.ID, "○○○ & i - 1") > 0 Then
anchor.Click
Exit For
End If
省2
9: 2019/10/08(火)22:18 AAS
思いますじゃなくて確実なやつを頼む
10: 2019/10/08(火)22:20 AAS
急になんの話してんの?
11(1): 2019/10/08(火)22:21 AAS
>>8で確実です
12(2): 2019/10/08(火)22:23 AAS
>>11
差し支えなければチェックボックス部分のソースも
13(1): 2019/10/08(火)22:27 AAS
あぁ、前スレから話が続いているのね…
14: 2019/10/08(火)22:31 AAS
>>12
社内システムだからチェックボックス内のソースは公開難しいです、申し訳ないです
15: 2019/10/08(火)22:32 AAS
>>12
社内システムだからチェックボックス内のソースは公開難しいです、申し訳ないです
>>13
うるさくてごめんね
16: 2019/10/09(水)00:28 AAS
すいません 2016(2010もあります)win10なんですが
久々に月データを追加して作成途中なんですが
月データを追加するとグラフの右端が短く表示され
切れてしまうのですが色々試行錯誤しましたがダメです
どなたかお助けいただけないでしょうか(ノД`)
よろしくお願いいたします
旧
https://i.imgur.com/QmEgl4q.jpg
新 作成中
https://i.imgur.com/or36uoH.jpg
17(1): 2019/10/09(水)04:24 AAS
セルAと数値とセルBの数値の大きいほうを選んでセルCで計算させる方法を教えてください。あとセルBが空白の時はセルAを優先。お願いします。
18(1): ぴころ ◆lHG3Yzo0a6 2019/10/09(水)07:13 AAS
>>17
=MAX(A1,B1)+計算ほにゃら(^▽^)
19: 2019/10/09(水)07:35 AAS
>>18
ありがとうございます!
20(2): 2019/10/09(水)10:46 AAS
>>8
見直してみましたがどうしても解決しません・・
前スレにあったforループ の中にi=i +1があるというのはどういうことでしょうか?
上下前次1-新書関写板覧索設栞歴
あと 982 レスあります
スレ情報 赤レス抽出 画像レス抽出 歴の未読スレ AAサムネイル
ぬこの手 ぬこTOP 0.012s