vbaなのですが、フォルダにgifファイルがたくさんはいっていますが、
その数を数えるコードを教えてください。
今は、
Sub Macro7()
Dim File As String
Dim i As Long
File = Dir("C:\*.*", vbDirectory)
Do While File <> ""
File = Dir
i = i + 1
Loop
MsgBox "ファイル数は" & i & "です"
End Sub
のように、全てのファイル数をカウントして求めています。
VB.NETでXMLに関して質問です
下記のようなXML
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<list>
<Vegetablefolder>
<folder id="1" path="Vegetablelist/allVegetable.xml" name="すべての野菜"/>
<folder id="2" path="Vegetablelist/tomato.xml" name="トマト"/>
<folder id="3" path="Vegetablelist/kyuri.xml" name="きゅうり"/>
</Vegetablefolder>
<picture>
<select bg="bg/select.jpg"/>
</picture>
</list>
を読み取り要素であるid、path、nameの内容を変数に入れるプログラムを作成しようと思っています
そこで下記のようなプログラム
Dim xDocument As Xml.XmlDocument = New Xml.XmlDocument
Dim xRoot As Xml.XmlElement
Dim xVegetablefolderlist As Xml.XmlNodeList
Dim xfolderlist As Xml.XmlNodeList
Dim xpicturelist As Xml.XmlNodeList
Dim xselectlist As Xml.XmlNodeList
'XMLファイルの呼び出し()
Call xDocument.Load(My.Settings.flistpass)
'XMLドキュメントからルート要素を取り出す()
xRoot = xDocument.DocumentElement
'XMLのルートが発見できなかった時()
If xRoot Is Nothing Then
MessageBox.Show("folderlist.xmlの記述が誤っています。", _
"エラー", _
MessageBoxButtons.OK, _
MessageBoxIcon.Error)
GoTo exi
End If
xmusicfolderList = xRoot.GetElementsByTagName("Vegetablefolder")
For Each xElement1 As Xml.XmlElement In xVegetablefolderlist
Call MessageBox.Show(String.Format("データあり : {0}個", xVegetablefolderlist.Count))
xfolderlist = xElement1.GetElementsByTagName("folder")
Call MessageBox.Show(String.Format("データあり : {0}個", xfolderlist.Count))
'項目一覧から<folder>項目を取り出す
For Each xfolder As Xml.XmlDocument In xfolderlist
'<folder>属性を読み取る
???
Next xfolder
Next xElement1
xpicturelist = xRoot.GetElementsByTagName("picture")
For Each XElement2 As Xml.XmlElement In xpicturelist
Call MessageBox.Show(String.Format("データあり : {0}個", xpicturelist.Count))
xselectlist = XElement2.GetElementsByTagName("select")
For Each xselect As Xml.XmlDocument In xselectlist
Call MessageBox.Show(xselect.SelectSingleNode("@bg").Value)
Next xselect
Next XElement2
を試しに作成したのですが、属性を読み取り変数に格納するところの記述に困っています（???の部分）
<folder>の項目は一定では無く、例は3つですがもっと多い場合もあるので
配列を使うのが適切だと思うのですがどのように記述するのが適切でしょうか？
アドバイスをお願いします
エクセルの一覧表で2行目から4行ずつ上から商品名、商品コード、会社、商品項目とあって、列がAからXまであります。
以前、商品名ごとに自動で色づけしていた時に使っていたVBAです。
Sub 色分け()
Dim Target As Range
For Each Target In Range("b2:e2,b5:e5,b8:e8,b11:e11,b14:e14,b17:e17,b20:e20,b23:e23")
Select Case True
Case InStr(Target.Value, "〇〇") > 0
Target.Resize(4, 1).Interior.ColorIndex = 24
Case InStr(Target.Value, "△△") > 0
Target.Resize(4, 1).Interior.ColorIndex = 38
Case Else
Target.Resize(4, 1).Interior.ColorIndex = xlNone
End Select
Next
End Sub
この色付け条件を4行目の商品項目ごとに変更したいのですが、方法が分からないので教えてください。
なんかすぐ出来そうな気がするんですけど、丸2日やっても分かりませんでした。
よろしくお願いします。
エクセルの一覧表で2行目から4行ずつ上から商品名、商品コード、会社、商品項目とあって、列がAからXまであります。
以前、商品名ごとに自動で色づけしていた時に使っていたVBAです。
Sub 色分け()
Dim Target As Range
For Each Target In Range("b2:e2,b5:e5,b8:e8,b11:e11,b14:e14,b17:e17,b20:e20,b23:e23")
Select Case True
Case InStr(Target.Value, "〇〇") > 0
Target.Resize(4, 1).Interior.ColorIndex = 24
Case InStr(Target.Value, "△△") > 0
Target.Resize(4, 1).Interior.ColorIndex = 38
Case Else
Target.Resize(4, 1).Interior.ColorIndex = xlNone
End Select
Next
End Sub
この色付け条件を4行目の商品項目ごとに変更したいのですが、方法が分からないので教えてください。
なんかすぐ出来そうな気がするんですけど、丸2日やっても分かりませんでした。
よろしくお願いします。
エクセルの一覧表で2行目から4行ずつ上から商品名、商品コード、会社、商品項目とあって、列がAからXまであります。
以前、商品名ごとに自動で色づけしていた時に使っていたVBAです。
Sub 色分け()
Dim Target As Range
For Each Target In Range("b2:e2,b5:e5,b8:e8,b11:e11,b14:e14,b17:e17,b20:e20,b23:e23")
Select Case True
Case InStr(Target.Value, "〇〇") > 0
Target.Resize(4, 1).Interior.ColorIndex = 24
Case InStr(Target.Value, "△△") > 0
Target.Resize(4, 1).Interior.ColorIndex = 38
Case Else
Target.Resize(4, 1).Interior.ColorIndex = xlNone
End Select
Next
End Sub
この色付け条件を4行目の商品項目ごとに変更したいのですが、方法が分からないので教えてください。
なんかすぐ出来そうな気がするんですけど、丸2日やっても分かりませんでした。
よろしくお願いします。
ＶＢからacesssを開くと全画面表示されません。
しかし、フォルダをダブルクリックして開いたり、
空のaccessアプリケーションを立ち上げて、「ファイルを開く」で開くと、全画面表示されます。
【VB】--------------------------------------------
Sub AccOpen()
Dim AccApp As Access.Application
Dim MyPath As String
MyPath = "○○.accdb"
AccApp = CreateObject("Access.Application")
AccApp.OpenCurrentDatabase(MyPath)
AccApp.Visible = True
AccApp.UserControl = True
End Sub
--------------------------------------------------
【access】----------------------------------------
Private Sub Form_Load()
DoCmd.RunCommand acCmdAppMaximize 'アプリケーションのサイズを最大化する Vbから開くと最大化されない。
End Sub
--------------------------------------------------
としています。
アクセス２００７、VB2010です。
ＶＢからだと DoCmd.RunCommand acCmdAppMaximizeが無視される理由を教えてください。
以前に以下の様な質問を致しました。
↓
下記の様なデータがあるときに、部活が「野球」でかつクラブは「囲碁」に入っている生徒の学籍番号を別のシート(Sheet2)のB3から下に順にリスト化するマクロがどうしても出来なくて困っています。
<sheet1>
A B C D E
１ 学籍番号 学年 名前 部活 クラブ
２ 2222222 1 山田 太郎 野球 囲碁
３ 9854923 2 吉田 次郎 剣道 絵画
４ 1111111 3 佐藤 三郎 野球 囲碁
５ 8888883 1 米山 権蔵 卓球 囲碁
<ご回答いただいた内容>
Sub test()
Dim i, k As Long
Dim ws As Worksheet
Set ws = Worksheets(2)
k = 2
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 4) = "野球" And Cells(i, 5) = "囲碁" Then
k = k + 1
ws.Cells(k, 2) = Cells(i, 1)
End If
Next i
End Sub
上記、マクロを多少編集し、運用してみた結果、項目が25項目目までは正しく反映されるのですが、それ以降のデータは一切反映されないことが判明しました。
構文とにらめっこしても何故25項目目で終了するのかが分からなかったので、もしお分かりになれば教えて頂ければ幸いです。
もし情報が不十分なら、追って私のオリジナルもアップするように致します。
