お世話になります。
Excel2003VBAで、次の様にWordファイルをオープンしていました。
Dim boReadOnly As Boolean
Dim objWord As Word.Application
boReadOnly = True
Set objWord = CreateObject("Word.Application")
With objWord
.Documents.Open toFullName, ReadOnly:=boReadOnly
.Visible = True
End With
これを、Excel2010VBAへ移植すると、WordファイルがExecelの後方に隠れて表示されてしまいます。
暫定として、.Visibleの次行に、
.Activate
を追加しています。これを行なうと、Startアイコンの→横に、Wordアイコンが点滅するので、
Wordがオープンした事はわかります。
Wordファイルを呼び出し元のExcelの前面に表示させるには、どうすればいいでしょうか？
御教示よろしくお願いします。
お世話になります。
Excel2003VBAで、次の様にWordファイルをオープンしていました。
Dim boReadOnly As Boolean
Dim objWord As Word.Application
boReadOnly = True
Set objWord = CreateObject("Word.Application")
With objWord
.Documents.Open toFullName, ReadOnly:=boReadOnly
.Visible = True
End With
これを、Excel2010VBAへ移植すると、WordファイルがExecelの後方に隠れて表示されてしまいます。
暫定として、.Visibleの次行に、
.Activate
を追加しています。これを行なうと、Startアイコンの→横に、Wordアイコンが点滅するので、
Wordがオープンした事はわかります。
Wordファイルを呼び出し元のExcelの前面に表示させるには、どうすればいいでしょうか？
御教示よろしくお願いします。
Excel UserForm ListBoxの表示についての質問です
Sheets("加工").Range("A44")からRange("G" & LastRow)のセルの値を
Form_receipt.ListBox1に表示させたいのですが
C～E列は数値なので桁数区切りで表示したくてマクロを作ったのですが
Ａ列１列しか表示されないマクロになってしまいました。
どこが悪いのかご教示願えませんか？
あわせてC～E列を右揃えでリスト表示する方法も教えてください
失敗作のマクロは以下です
Sub Macro48()
Form_receipt.ListBox1.Clear
Sheets("加工").Select
'配列の定義
Dim myRng As Range
Dim myList As Variant
Dim c As Variant
Dim i As Integer
Dim j As Integer
Dim LastRow As Integer
For j = 45 To 94
If Sheets("加工").Range("A" & j).Value = "" Then
Exit For
End If
Next j
If Sheets("加工").Range("A47").Value = "" Then
LastRow = j - 1
Else
LastRow = 46
End If
Set myRng = Range("A44", Range("A" & LastRow))
ReDim myList(myRng.Rows.Count - 1, 7)
For Each c In myRng
myList(i, 0) = c.Offset(, 0).Value
myList(i, 1) = c.Offset(, 1).Value
myList(i, 2) = Format$(c.Offset(, 2).Value, "@@@,@@@,@@@")
myList(i, 3) = Format$(c.Offset(, 3).Value, "@@@,@@@,@@@")
myList(i, 4) = Format$(c.Offset(, 4).Value, "@@@,@@@,@@@")
myList(i, 5) = c.Offset(, 5).Value
myList(i, 6) = c.Offset(, 6).Value
myList(i, 7) = c.Offset(, 7).Value
i = i + 1
Next c
Form_receipt.ListBox1.List() = myList
Set myRng = Nothing
'リスト表示幅設定
With Form_receipt.ListBox1
.ColumnWidths = "30,0,60,60,60,150,50"
End With
Form_receipt.Show
End sub
