IT号 着地号 いろいろ号

書式	意味	表示の例
%d	整数(小数点のついていない数)を10進数で表示	1、2、3、-45
%x	整数を16進数で表示	1、a、1e
%X	整数を16進数で表示	1、A、1E
%f	実数(小数点のついている数)を表示	1.000、0.10000
%s	文字列を表示	A、abc、あ

例1)
数値の３を書式指定して表示

記述
print("%d" % 3)

実行結果
3



例2)

記述
print("%d-%dは%dです。" % (3, 2, 3-2))

実行結果
3-2は1です。

[0回]

[]を使うと文字列の中の任意の文字を取り出せます。[]の中にはゼロ(0)から始まるインデックス番号を指定します。文字列の末尾(右端)から数える場合は、-1から始めます。

図

[0回]

and
as
assert
break
class
continue
def
del
elif
else
except
False
finally
for
from
global
if
import
in
is
lambda
nonlocal
None
not
or
pass
True
raise
return
try
while
with
yield

[0回]

オブジェクト指向とは、プログラミングの機能をグループ化し、これを組み合わせてプログラムを作成していく考え方です。機能単位の独立性が高まり、再利用性がを高めることができます。

[0回]

Sub Main

'----------------------
'ファイル取り込み処理

For j = sID1 To endID1
filename = ThisWorkbook.Path & "\Disk_C_" & nengetu & Format(j, "00") & ".csv"
sheetsName = hostName & "_Disk_" & Format(j, "00")

'ファイルがない場合にループを抜ける処理
If Dir(filename) = "" Then
MsgBox j & "日のファイルが見つかりません"
GoTo Line1
End If

'外部テーブル範囲に取り込み
'---------------------------------
Set myQT = Sheets(sheetsName).QueryTables.Add( _
Connection:="TEXT;" & fileName, _
Destination:=Sheets(sheetsName).Range("A1"))
With myQT
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileTabDelimiter = False
.TextFileOtherDelimiter = ""
.AdjustColumnWidth = True
.BackgroundQuery = False
.Refresh
.Delete
End With

'---------------------------------
'ここに、取り込んだファイルの処理内容を書く
'---------------------------------

Next j

'---------------------------------
MsgBox hostName & "マクロ正常終了"
Line1:


End Sub

[0回]