{"id":64,"date":"2013-11-20T10:19:00","date_gmt":"2013-11-20T01:19:00","guid":{"rendered":"http:\/\/www.coralnet.co.jp\/wordpress\/?guid=836c4e1a7c0ba4866c8690061541f97e"},"modified":"2024-09-01T23:35:03","modified_gmt":"2024-09-01T14:35:03","slug":"vba%e3%80%80%e3%81%a7%e9%85%8d%e5%88%97%e3%82%92%e6%8c%81%e3%81%a4%e5%a0%b4%e5%90%88","status":"publish","type":"post","link":"https:\/\/coralnet.co.jp\/wordpress\/?p=64","title":{"rendered":"VBA\u3000\u3067\u914d\u5217\u3092\u6301\u3064\u5834\u5408"},"content":{"rendered":"\n

VBA\u3067\u306f\u914d\u5217\u3092\u6301\u3064\u5834\u5408\u3001\u3069\u3046\u3082\u3057\u3063\u304f\u308a\u3053\u306a\u304f\u3066\u3001\u7d50\u5c40\u4ee5\u4e0b\u306e\u3088\u3046\u306a\u3084\u308a\u65b9\u304c\u3044\u3044\u307f\u305f\u3044\u3002<\/p>\n\n\n\n

<\/p>\n\n\n\n

VBA\u95a2\u6570\u4f8b<\/h2>\n\n\n\n
'23\u533a\u3092\u8fd4\u3059\u3088\u3046\u306a\u914d\u5217
Function strHairetsu(ByVal pIndex As Integer) As String
Dim ans As String
'----------------
Select Case pIndex
Case 0: ans = \"\u65b0\u5bbf\u533a\"
Case 1: ans = \"\u5343\u4ee3\u7530\u533a\"
Case 2: ans = \"\u4e2d\u592e\u533a\"
Case 3: ans = \"\u6e2f\u533a\"
Case 4: ans = \"\u54c1\u5ddd\u533a\"
'\u968f\u6642\u4ed6\u306e\u533a\u3092\u8a18\u8ff0\u3059\u308b
Case 22: ans = \"\u8352\u5ddd\u533a\"
End Select
'----------------
strHairetsu = ans

End Function<\/code><\/pre>\n\n\n\n
\u5b9f\u969b\u306e\u4f7f\u3044\u65b9<\/h2>\n\n\n\n
\u4e0a\u8a18\u7528\u610f\u3057\u305f\u30b5\u30f3\u30d7\u30eb\u95a2\u6570\u3092\u547c\u3073\u51fa\u3057\u305f\u3044\u7b87\u6240\u3067\u5b9f\u884c\u3059\u308c\u3070\u3088\u3044\u3002<\/p>\n\n\n\n
For i = 0 To 22
debug.print = strHairetsu(i)
next i<\/code><\/pre>\n\n\n\n
\u4ee5\u4e0a\u4f7f\u3044\u65b9\u3092\u7d39\u4ecb\u3057\u307e\u3057\u305f\u3002<\/p>\n\n\n\n
\n
Amazon \u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u66f8\u7c4d\u58f2\u308c\u7b4b\u30e9\u30f3\u30ad\u30f3\u30b0<\/a><\/div>\n<\/div>\n\n\n