パソコンは主にエクセル、ワード、ネットを使用します。現在ノートパソコンが２つあり、Windows me 、MAC BOOK PRO 10.6.6 です。マックにはワードエクセルが無いので
office for mac home ＆student2011-1 アマゾンで１１５００円位のソフトを購入し、winを捨てるか、それを購入せずにwinはエクセルワード用と割り切って使用を続けるか迷っています。
winの方はキーボードが何文字が取れていたり、ネットは毎回フリーズしますが、
ワードエクセルは正直自分の使用歴が浅いため、meやoffice for macの使い心地は現在は同じ様にしか感じないのも迷っている理由の一つです。今後は関数を使って膨大な商品を管理する様な仕事をするために関数を勉強している状態です。
同居人にはmeが見苦しいし、エクセルやる度に押し入れからひっぱりだしてくるのも面倒だし、MACに統一しろといわれますが、WINで出来るのに
１万円以上のソフトを購入するのがモッタイナイ気がします。
自分で決めればといわれてしまえばそれまでの低レベルな質問ですが、多少使用歴のある方
から客観的な意見や自分だったらこうするかなということをお聞きしたいと思いまして投稿しました。よろしくお願い致します。
Ｅｘｃｅｌ ＶＢＡのコードを作成したのですが、間違った数値が返ってきてしまいます。
どこが間違っているのか分からず困っています。
お力を貸していただければと思います。
Ｂ９セル以下のＢ列の奇数番号（Ｂ９，Ｂ１１，Ｂ１３・・・）に任意の数字（１～９）が入っています。
その数字が３または５の場合、その行のＨ列からＰ列の数値が入っているセルの数をカウントしたく思っています。
（Ｈ列からＰ列には空欄または時刻のデータが入っています。）
また、シートが２０枚ほどあり、すべてのシートで同じ作業を行い、最終的には別シートを作成し、Ａ列にシート名、Ｂ列にカウントしたセルの数を表示させます。
ちなみに全シート、データはＡ列からＰ列、１行目から１２０行目くらいまで入っています。（空欄のセルもあります。）
以下がコードです。
Sub Try1()
Dim sumSheet As Worksheet
Dim ws As Worksheet
Dim i As Long, LastRow As Long
Dim n As Long, nCount As Long
'集計シートの作成
With ActiveWorkbook.Worksheets
On Error Resume Next
Set sumSheet = .Item("sum")
On Error GoTo 0
If sumSheet Is Nothing Then
Set sumSheet = .Add(After:=.Item(.Count))
sumSheet.Name = "sum"
Else
sumSheet.UsedRange.ClearContents
End If
ReDim res(1 To .Count - 1, 1 To 2)
End With
'集計
n = 0
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "sum" Then
With ws
LastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
nCount = 0
For i = 9 To LastRow Step 2
Select Case .Cells(i, 2).Value
Case 3,5
nCount = nCount + WorksheetFunction.Count(.Cells(i, 8).Resize(, 9))
End Select
Next
n = n + 1
res(n, 1) = .Name
res(n, 2) = nCount
End With
End If
Next
sumSheet.Range("A1").Resize(n, 2).Value = res
sumSheet.Activate
MsgBox "集計しました"
End Sub
ＶＢＡ初心者です。よろしくお願いいたします。
ユーザーフォーム上にたくさんのボタンを配置しているのですが、
すべて同じ動作なので、一つにまとめたいです。
どのように記述したらよいでしょうか？
Private Sub CommandButton1_Click()
Selection.Interior.color = select_Color
End Sub
Private Sub CommandButton2_Click()
Selection.Interior.color = select_Color
End Sub
Private Sub CommandButton3_Click()
Selection.Interior.color = select_Color
End Sub
Private Sub CommandButton4_Click()
Selection.Interior.color = select_Color
End Sub
ワークブックを開く時に自動的にxmlファイルを作るマクロを組みました。
しかし、そのマクロを組んだPCでは正常にxmlファイルが作成されますが、
他のPCで試したらxmlファイルが作成されずにエラーになりました。
その【xmlファイルが作成されなかった】理由がわかりません。
例えば、PCのセキュリティで、マクロによるファイルの読み書きの動作が弾かれていたりするのでしょうか。
以下、そのマクロの本文です。
解決の手がかりだけでも掴めましたら教えていただくと嬉しいです。
Private Sub Workbook_Open()
' ワークブックを開く時のイベント
'Cドライブ直下に「あああ.xml」ファイルが存在すれば削除
If Dir("C:\あああ.xml") <> "" Then
Kill "C:\あああ.xml"
Else
End If
'xmlファイルを作成
' XMLファイル保存先の指定
Dim iFileNum As Integer
iFileNum = FreeFile
Dim SaveFileName As String
SaveFileName = "C:\あああ.xml"
Open SaveFileName For Output As #iFileNum '←ここでエラーになります！！
''xmlファイル本文の作成
Print #iFileNum, "<?xml version=""1.0"" encoding=""UTF-8""?>"
Print #iFileNum, "<markers>"
Print #iFileNum, "</markers>"
'後処理
If iFileNum > 0 Then Close #iFileNum
End Sub
