宜しくお願いします。エクセルの書式設定のことなのですが、写真のように、G J M Pの列に数値が入っており、H K N Q列に文字が入っており、I L O R列にも文字が入っているのですが、比較で各列ごとに同じ数値同じように文字が、入ってたら同じ色(全部空白なら色無し)にして比較したいのですが、書式設定でなにか良い方法あるでしょうか。教えてください
VBAでRedHatのホームページに自動ログインするプログラムを作成しています。
<コード>
Sub RedHat()
Dim objIE As InternetExplorer
Dim urlName As String
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
Call ieView(objIE, "https://idp.redhat.com/idp")
If objIE.LocationURL <> "https://idp.redhat.com/idp" Then
Call ieNavi(objIE, "https://www.redhat.com/wapps/ugc/protected/account.html")
Call tagClick(objIE, "li", "utility-account")
Call tagClick(objIE, "p", "ログアウト")
Call ieNavi(objIE, "https://idp.redhat.com/idp")
End If
Call formText(objIE, "username", "丸秘")
Call formText(objIE, "password", "丸秘")
Call tagClick(objIE, "button", "ログイン")
Set objIE = Nothing
End Sub
Function ieView(objIE As InternetExplorer, _
urlName As String)
objIE.navigate urlName
Call ieCheck(objIE)
End Function
Function ieCheck(objIE As InternetExplorer) As String
Do While objIE.Busy Or objIE.readyState < 4
DoEvents
Loop
End Function
Function tagClick(objIE As InternetExplorer, _
tagName As String, _
tagStr As String)
For Each objTag In objIE.document.getElementsByTagName(tagName)
If InStr(objTag.outerHTML, tagStr) > 0 Then
objTag.Click
Call ieCheck(objIE)
Exit For
End If
Next
End Function
Function ieNavi(objIE As InternetExplorer, _
urlName As String)
objIE.navigate urlName
Call ieCheck(objIE)
End Function
Function formText(objIE As InternetExplorer, _
nameValue As String, _
tagValue As String)
For Each objTag In objIE.document.getElementsByTagName("input")
If objTag.Name = nameValue Then
objTag.Value = tagValue
Exit For
End If
Next
For Each objTag In objIE.document.getElementsByTagName("textarea")
If objTag.Name = nameValue Then
objTag.Value = tagValue
Exit For
End If
Next
End Function
"丸秘"をユーザとパスワードに修正し、
実行しました。
実行後、IE画面で以下のメッセージが表示されます。
「RedHatのログイン画面でユーザ名またはパスワードが無効です」
ユーザ欄がクリックされている状態になります。
すみません。どの行を何に修正すれば、正常に動作しますでしょうか？
教えていただけますと幸いです。
引用元：http://www.vba-ie.net/application/twitter-login.html
下記のようなマクロで現在はマクロコード内にフォルダのアドレスを書いていますが
これをダイアログを開いてフォルダを選択できるようにするには
どうすればよいでしょうか？
Sub Sample10()
Call FileSearch("V:\個人\飯塚\マクロ\RawData2")
End Sub
Sub FileSearch(Path As String)
Application.ScreenUpdating = False
Dim FSO As Object, Folder As Variant, File As Variant
Set FSO = CreateObject("Scripting.FileSystemObject")
For Each Folder In FSO.GetFolder(Path).SubFolders
Call FileSearch(Folder.Path)
Next Folder
For Each File In FSO.GetFolder(Path).Files
If File.Name = "RawData" Then
Workbooks.Open fld & File, Format:=2
Range("B1:B180").Select
Application.CutCopyMode = False
Selection.Copy
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
Range("f2").Select
ActiveSheet.Paste
ActiveSheet.Next.Activate
End If
Next File
End Sub
