いつもお世話様です。
エクセルVBAでFormatを使うと、文字列中にeが一つ入っていると、「指数」とみなされて勝手に数値に化けてしまうようです。
話を簡単にするため、問題のコートを簡易化したコードが下記のtest1です。
入力されるのは常に３文字以内の英数です。
test1のコードは、ab9と入れればAB9、01とか20とか入れると、予定通り001や020を返してくれます。
ところが、なかには1E1や４E３なども入力する必要があり、これを入れると010や4000に化けてしまいます。
現在は、対処するため、下記test2のように、文字列中に"E"があるかどうかで処理を分岐させていますが、ほかに何か良い方法はないでしょうか？
Sub test1()
Dim x As String, y As String, z As String
x = Application.InputBox("CODEを入力してねん。", Type:=2)
y = StrConv(StrConv(x, vbUpperCase), vbNarrow)
z = Format(y, "000")
MsgBox z & " Typeだよ。"
End Sub
Sub test2()
Dim x As String, y As String, z As String
x = Application.InputBox("CODEを入力してねん。", Type:=2)
y = StrConv(StrConv(x, vbUpperCase), vbNarrow)
If InStr(y, "E") > 0 Then
z = y
Else
z = Format(y, "000")
End If
MsgBox z & " Typeだよ。"
End Sub
いつもお世話様です。
エクセルVBAでFormatを使うと、文字列中にeが一つ入っていると、「指数」とみなされて勝手に数値に化けてしまうようです。
話を簡単にするため、問題のコートを簡易化したコードが下記のtest1です。
入力されるのは常に３文字以内の英数です。
test1のコードは、ab9と入れればAB9、01とか20とか入れると、予定通り001や020を返してくれます。
ところが、なかには1E1や４E３なども入力する必要があり、これを入れると010や4000に化けてしまいます。
現在は、対処するため、下記test2のように、文字列中に"E"があるかどうかで処理を分岐させていますが、ほかに何か良い方法はないでしょうか？
Sub test1()
Dim x As String, y As String, z As String
x = Application.InputBox("CODEを入力してねん。", Type:=2)
y = StrConv(StrConv(x, vbUpperCase), vbNarrow)
z = Format(y, "000")
MsgBox z & " Typeだよ。"
End Sub
Sub test2()
Dim x As String, y As String, z As String
x = Application.InputBox("CODEを入力してねん。", Type:=2)
y = StrConv(StrConv(x, vbUpperCase), vbNarrow)
If InStr(y, "E") > 0 Then
z = y
Else
z = Format(y, "000")
End If
MsgBox z & " Typeだよ。"
End Sub
いつもお世話様です。
エクセルVBAでFormatを使うと、文字列中にeが一つ入っていると、「指数」とみなされて勝手に数値に化けてしまうようです。
話を簡単にするため、問題のコートを簡易化したコードが下記のtest1です。
入力されるのは常に３文字以内の英数です。
test1のコードは、ab9と入れればAB9、01とか20とか入れると、予定通り001や020を返してくれます。
ところが、なかには1E1や４E３なども入力する必要があり、これを入れると010や4000に化けてしまいます。
現在は、対処するため、下記test2のように、文字列中に"E"があるかどうかで処理を分岐させていますが、ほかに何か良い方法はないでしょうか？
Sub test1()
Dim x As String, y As String, z As String
x = Application.InputBox("CODEを入力してねん。", Type:=2)
y = StrConv(StrConv(x, vbUpperCase), vbNarrow)
z = Format(y, "000")
MsgBox z & " Typeだよ。"
End Sub
Sub test2()
Dim x As String, y As String, z As String
x = Application.InputBox("CODEを入力してねん。", Type:=2)
y = StrConv(StrConv(x, vbUpperCase), vbNarrow)
If InStr(y, "E") > 0 Then
z = y
Else
z = Format(y, "000")
End If
MsgBox z & " Typeだよ。"
End Sub
OS：XP
Office：2003
エクセルの質問です。
表の並び替えをマクロで行いたいのですが、マクロ記憶を使ってもできません。
コーディング、教えていただけますか？
| A | B | C | D | E | F
1| ヘッダー部
2|man_id |企業id |支店id |交渉id |担当id | 明細データ
3|
4|
5|
6|
7|
8|
……
こんな感じで、
ソート対象範囲 A3:F65536
ソート優先順 A B C D E
あまり上手に表現できていないかもしれません。
不明点があればご指摘下さい、補足させていただきます。
よろしくお願いします。
Sub test()
Set Rng = Range("B2:E7")
Rng.Cells(2, 2).Select
End Sub
これで、範囲Rng内では2行/2列目となるC3セルが選択されます。
では、C3セルが、範囲Rng内で何行/何列目であるかを取得するにはどのように記述すればよいのでしょうか？
Rng.Cells(2, 2).Rowは、当たり前ですが、3になってしまいます。
Sub test()
Set Rng = Range("B2:E7")
Rng.Cells(2, 2).Select
End Sub
これで、範囲Rng内では2行/2列目となるC3セルが選択されます。
では、C3セルが、範囲Rng内で何行/何列目であるかを取得するにはどのように記述すればよいのでしょうか？
Rng.Cells(2, 2).Rowは、当たり前ですが、3になってしまいます。
下のようにVBからExcel にデータを送りグラフを表示しています。
印刷プレビューを表示したときにグラフと表が表示されてしまいます。グラフだけを表示して表は表示をしたくないのですが
どうすればいいのでしょうか
お願いします。
Private Sub Command1_Click()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add
Dim i As Integer
Dim j As Integer
For i = 2 To 6
For j = 2 To 6
xlSheet.Cells(j, i) = CInt(71 * Rnd + 30)
Next j
Next i
xlSheet.Cells(2, 1) = "国語"
xlSheet.Cells(3, 1) = "数学"
xlSheet.Cells(4, 1) = "英語"
xlSheet.Cells(5, 1) = "社会"
xlSheet.Cells(6, 1) = "体育"
xlSheet.Cells(1, 2) = "石原"
xlSheet.Cells(1, 3) = "小泉"
xlSheet.Cells(1, 4) = "田中"
xlSheet.Cells(1, 5) = "平沼"
xlSheet.Cells(1, 6) = "森山"
Dim MyChart As ChartObject
Set MyChart = xlSheet.ChartObjects.Add(10, 100, 600, 330)
With MyChart.Chart
.SetSourceData xlSheet.Range("A1:F6"), xlColumns
.Axes(xlValue).MaximumScale = 100
.Axes(xlValue).MajorUnit = 20
.HasTitle = True
.ChartTitle.Text = "中間テスト結果"
.ApplyDataLabels (xlDataLabelsShowValue)
.Location xlLocationAsObject, xlSheet.Name
End With
xlApp.Visible = True
With xlSheet.PageSetup
.PaperSize = xlPaperA4
.Orientation = xlPortrait
.LeftMargin = xlApp.CentimetersToPoints(2)
.RightMargin = xlApp.CentimetersToPoints(2)
.TopMargin = xlApp.CentimetersToPoints(2.5)
.BottomMargin = xlApp.CentimetersToPoints(2.5)
.HeaderMargin = xlApp.CentimetersToPoints(1)
.FooterMargin = xlApp.CentimetersToPoints(1)
End With
xlSheet.PrintPreview
Set MyChart = Nothing
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
End Sub
