VBA\u306e\u7d39\u4ecb a. VBA\u306e\u5b9a\u7fa9\u3068\u5f79\u5272 b. VBA\u306e\u5229\u70b9\u3068\u9069\u7528\u7bc4\u56f2<\/li>\n\n\n\n
VBA \u306e\u57fa\u672c\u6982\u5ff5\u3068\u69cb\u6587 a. \u30de\u30af\u30ed\u3068\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u6982\u5ff5 b. VBA \u30a8\u30c7\u30a3\u30bf\u30fc\u306e\u30a4\u30f3\u30bf\u30fc\u30d5\u30a7\u30a4\u30b9\u3068\u6a5f\u80fd c. VBA \u5909\u6570\u3068\u30c7\u30fc\u30bf\u578b d. VBA \u6f14\u7b97\u5b50\u3068\u5f0f e. VBA \u5236\u5fa1\u69cb\u9020 (\u6761\u4ef6\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3001\u30eb\u30fc\u30d7 \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8)<\/li>\n\n\n\n
VBA \u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8 \u30e2\u30c7\u30eb a. Excel \u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8 \u30e2\u30c7\u30eb\u306e\u7d39\u4ecb b. \u7bc4\u56f2\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3068\u4e00\u822c\u7684\u306a\u64cd\u4f5c c. \u30ef\u30fc\u30af\u30d6\u30c3\u30af\u304a\u3088\u3073\u30ef\u30fc\u30af\u30b7\u30fc\u30c8 \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u4f7f\u7528 d. \u305d\u306e\u4ed6\u306e\u4e00\u822c\u7684\u306b\u4f7f\u7528\u3055\u308c\u308b\u30aa\u30d6\u30b8\u30a7\u30af\u30c8(\u30c1\u30e3\u30fc\u30c8\u3001\u56f3\u5f62\u306a\u3069)<\/li>\n\n\n\n
VBA\u306e\u4e00\u822c\u7684\u306a\u6a5f\u80fd\u3068\u30c8\u30ea\u30c3\u30af a. \u6587\u5b57\u5217\u306e\u51e6\u7406\u3068\u64cd\u4f5c b. \u914d\u5217\u3068\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u4f7f\u7528 c. \u30d5\u30a1\u30a4\u30eb\u3068\u30d5\u30a9\u30eb\u30c0\u306e\u64cd\u4f5c d. \u30a8\u30e9\u30fc\u51e6\u7406\u3068\u30c7\u30d0\u30c3\u30b0\u306e\u30b9\u30ad\u30eb<\/li>\n\n\n\n
\u30e6\u30fc\u30b6\u30fc \u30a4\u30f3\u30bf\u30fc\u30d5\u30a7\u30a4\u30b9\u3068\u64cd\u4f5c a. \u30e6\u30fc\u30b6\u30fc\u5165\u529b\u3068\u30e1\u30c3\u30bb\u30fc\u30b8 \u30dc\u30c3\u30af\u30b9 b. \u30ab\u30b9\u30bf\u30e0 \u30e6\u30fc\u30b6\u30fc \u30a4\u30f3\u30bf\u30fc\u30d5\u30a7\u30a4\u30b9 (\u30e6\u30fc\u30b6\u30fc \u30d5\u30a9\u30fc\u30e0)<\/li>\n\n\n\n
VBA \u3068\u4ed6\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3068\u306e\u76f8\u4e92\u4f5c\u7528 a. VBA \u3068 Word \u3084 PowerPoint \u306a\u3069\u3068\u306e\u76f8\u4e92\u4f5c\u7528 b. VBA \u3068\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u3078\u306e\u63a5\u7d9a\u3068\u64cd\u4f5c<\/li>\n\n\n\n
\u5b9f\u8df5\u7684\u306a\u4e8b\u4f8b\u3068\u30d7\u30ed\u30b8\u30a7\u30af\u30c8 a. VBA \u3067\u4e00\u822c\u7684\u306a\u30bf\u30b9\u30af\u3092\u81ea\u52d5\u5316\u3059\u308b b. \u30ab\u30b9\u30bf\u30e0\u6a5f\u80fd\u3068\u30c4\u30fc\u30eb\u3092\u4f5c\u6210\u3059\u308b<\/li>\n\n\n\n
\u30d9\u30b9\u30c8 \u30d7\u30e9\u30af\u30c6\u30a3\u30b9\u3068\u30c7\u30d0\u30c3\u30b0\u306e\u30d2\u30f3\u30c8 a. \u30b3\u30fc\u30c7\u30a3\u30f3\u30b0\u4ed5\u69d8\u3068\u547d\u540d\u898f\u5247 b. \u30b3\u30fc\u30c9\u306e\u6700\u9069\u5316\u3068\u30d1\u30d5\u30a9\u30fc\u30de\u30f3\u30b9\u306e\u30c1\u30e5\u30fc\u30cb\u30f3\u30b0 c. \u30c7\u30d0\u30c3\u30b0\u624b\u6cd5\u3068\u30c8\u30e9\u30d6\u30eb\u30b7\u30e5\u30fc\u30c6\u30a3\u30f3\u30b0<\/li>\n\n\n\n
VBA\u30ea\u30bd\u30fc\u30b9\u3068\u9ad8\u5ea6\u306a\u5b66\u7fd2 a. \u304a\u3059\u3059\u3081\u306e\u66f8\u7c4d\u3068\u30aa\u30f3\u30e9\u30a4\u30f3\u30ea\u30bd\u30fc\u30b9 b. VBA\u30b3\u30df\u30e5\u30cb\u30c6\u30a3\u3068\u30d5\u30a9\u30fc\u30e9\u30e0<\/li>\n<\/ol>\n\n\n\n
\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u8a00\u8a9e\u3068\u3057\u3066\u306eVBA(Visual Basic for Applications)\u306b\u306f\u3001Microsoft Office\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u4f7f\u7528\u3059\u308b\u5834\u5408\u3001\u6b21\u306e\u5229\u70b9\u3068\u5e45\u5e83\u3044\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n\n\n\n
\u5909\u6570\u306e\u5272\u308a\u5f53\u3066\u3068\u4f7f\u7528: VBA \u3067\u306f\u3001\u4ee3\u5165\u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3092\u4f7f\u7528\u3057\u3066\u5909\u6570\u306b\u5024\u3092\u5272\u308a\u5f53\u3066\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002 \u4f8b:\u5909\u6570\u3092\u5ba3\u8a00\u3059\u308b\u3068\u304d\u306bvbnetCopy\u30b3\u30fc\u30c9\u3092\u76f4\u63a5\u5272\u308a\u5f53\u3066\u308b\u3053\u3068\u3082\u3067\u304d\u307e\u3059:vbnetCopy\u30b3\u30fc\u30c9\u5909\u6570\u3092\u30b3\u30fc\u30c9\u5185\u3067\u4f7f\u7528\u3057\u3066\u3001\u3055\u307e\u3056\u307e\u306a\u64cd\u4f5c\u3084\u8a08\u7b97\u3092\u5b9f\u884c\u3067\u304d\u307e\u3059\u3002 \u5909\u6570\u306f\u3001\u6570\u5b66\u3001\u6587\u5b57\u5217\u64cd\u4f5c\u3001\u6761\u4ef6\u4ed8\u304d\u5224\u65ad\u3001\u30eb\u30fc\u30d7\u306a\u3069\u306b\u4f7f\u7528\u3067\u304d\u307e\u3059\u3002 \u4f8b: vbnetCopy \u30b3\u30fc\u30c9Dim age As Integer age = 25 <\/code>Dim name As String: name = \"John\" <\/code>Dim a As Integer Dim b As Integer Dim sum As Integer a = 5 b = 10 sum = a + b MsgBox \"The sum is: \" & sum<\/code><\/li>\n\n\n\n
If \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8: If \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306f\u3001\u7279\u5b9a\u306e\u6761\u4ef6\u304c true \u306e\u5834\u5408\u306b\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u307e\u3059\u3002 \u5358\u72ec\u3067\u4f7f\u7528\u3059\u308b\u3053\u3068\u3082\u3001Else \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u3068\u7d44\u307f\u5408\u308f\u305b\u3066\u4f7f\u7528\u3059\u308b\u3053\u3068\u3082\u3067\u304d\u307e\u3059\u3002 \u69cb\u6587\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002 vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9If condition Then '\u6267\u884c\u8bed\u53e5 Else '\u6267\u884c\u8bed\u53e5 End If<\/code><\/li>\n\n\n\n
Select Case \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8: Select Case \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306f\u3001\u5f0f\u306e\u5024\u306b\u57fa\u3065\u3044\u3066\u7570\u306a\u308b\u30b3\u30fc\u30c9 \u30d6\u30ed\u30c3\u30af\u3092\u9078\u629e\u7684\u306b\u5b9f\u884c\u3057\u307e\u3059\u3002 \u8907\u6570\u306e\u6761\u4ef6\u306e\u5834\u5408\u306b\u9069\u3057\u3066\u3044\u307e\u3059\u3002 \u69cb\u6587\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002 vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9Select Case expression Case value1 '\u6267\u884c\u8bed\u53e5 Case value2 '\u6267\u884c\u8bed\u53e5 Case Else '\u6267\u884c\u8bed\u53e5 End Select<\/code><\/li>\n<\/ul>\n<\/li>\n\n\n\n
For \u30eb\u30fc\u30d7: For \u30eb\u30fc\u30d7\u306f\u3001\u30b3\u30fc\u30c9\u306e\u4e00\u90e8\u3092\u6307\u5b9a\u3057\u305f\u56de\u6570\u30eb\u30fc\u30d7\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u307e\u3059\u3002 \u69cb\u6587\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002 vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9For counter = start To end Step stepValue '\u6267\u884c\u8bed\u53e5 Next counter<\/code><\/li>\n\n\n\n
For Each \u30eb\u30fc\u30d7: For Each \u30eb\u30fc\u30d7\u306f\u3001\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u307e\u305f\u306f\u914d\u5217\u5185\u306e\u5404\u8981\u7d20\u3092\u53cd\u5fa9\u51e6\u7406\u3057\u3001\u5bfe\u5fdc\u3059\u308b\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u307e\u3059\u3002 \u69cb\u6587\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002 vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9For Each element In collection '\u6267\u884c\u8bed\u53e5 Next element<\/code><\/li>\n\n\n\n
Do \u30eb\u30fc\u30d7: Do \u30eb\u30fc\u30d7\u306f\u3001\u7279\u5b9a\u306e\u6761\u4ef6\u306e\u771f\u507d\u306b\u57fa\u3065\u3044\u3066\u30b3\u30fc\u30c9\u3092\u7e70\u308a\u8fd4\u3057\u307e\u3059\u3002 Do While\u3001Do Until\u3001Do Loop\u306a\u3069\u3001\u3044\u304f\u3064\u304b\u306e\u30d0\u30ea\u30a8\u30fc\u30b7\u30e7\u30f3\u304c\u3042\u308a\u307e\u3059\u3002 \u69cb\u6587\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002 vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9Do While condition '\u6267\u884c\u8bed\u53e5 Loop Do Until condition '\u6267\u884c\u8bed\u53e5 Loop Do '\u6267\u884c\u8bed\u53e5 Loop While condition Do '\u6267\u884c\u8bed\u53e5 Loop Until condition<\/code><\/li>\n\n\n\n
While \u30eb\u30fc\u30d7: While \u30eb\u30fc\u30d7\u306f\u3001\u6307\u5b9a\u3055\u308c\u305f\u6761\u4ef6\u304c true \u306e\u5834\u5408\u306b\u30b3\u30fc\u30c9\u306e\u4e00\u90e8\u3092\u7e70\u308a\u8fd4\u3057\u307e\u3059\u3002 \u69cb\u6587\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002 vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9While condition '\u6267\u884c\u8bed\u53e5 Wend<\/code><\/li>\n<\/ul>\n<\/li>\n\n\n\n
Exit \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8: Exit \u30b9\u30c6\u30fc\u30c8\u30e1\u30f3\u30c8\u306f\u3001\u30eb\u30fc\u30d7\u307e\u305f\u306f\u30b5\u30d6\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u30fc\u3092\u65e9\u671f\u306b\u7d42\u4e86\u3059\u308b\u305f\u3081\u306b\u4f7f\u7528\u3055\u308c\u307e\u3059\u3002 \u305f\u3068\u3048\u3070\u3001\u30eb\u30fc\u30d7\u3067 For \u3092\u7d42\u4e86\u3059\u308b\u3068\u3001For \u30eb\u30fc\u30d7\u3092\u65e9\u671f\u306b\u7d42\u4e86\u3067\u304d\u307e\u3059\u3002 \u69cb\u6587\u306f\u6b21\u306e\u3068\u304a\u308a\u3067\u3059\u3002 vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9Exit For Exit Do Exit Sub<\/code><\/li>\n\n\n\n
\u7bc4\u56f2: \u30bb\u30eb\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306f\u3001Excel\u306e\u30bb\u30eb\u306e\u7bc4\u56f2\u307e\u305f\u306f\u30bb\u30eb\u306e\u30b0\u30eb\u30fc\u30d7\u3092\u8868\u3057\u307e\u3059\u3002 Range \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u4f7f\u7528\u3057\u3066\u3001\u30bb\u30eb\u306e\u5024\u306e\u8aad\u307f\u53d6\u308a\u3068\u66f8\u304d\u8fbc\u307f\u3001\u30bb\u30eb\u306e\u66f8\u5f0f\u8a2d\u5b9a\u3001\u30bb\u30eb\u306e\u7d50\u5408\u3068\u5206\u5272\u306a\u3069\u3092\u884c\u3046\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002 Range \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306f\u3001\u6570\u5f0f\u306e\u8a08\u7b97\u3084\u30c7\u30fc\u30bf\u51e6\u7406\u306a\u3069\u3001\u3055\u307e\u3056\u307e\u306a\u8a08\u7b97\u3084\u64cd\u4f5c\u3092\u5b9f\u884c\u3059\u308b\u305f\u3081\u306b\u3082\u4f7f\u7528\u3067\u304d\u307e\u3059\u3002<\/li>\n\n\n\n
Range \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u4f5c\u6210: \u6b21\u306e\u3044\u305a\u308c\u304b\u306e\u65b9\u6cd5\u3092\u4f7f\u7528\u3057\u3066\u3001Range \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u4f5c\u6210\u3067\u304d\u307e\u3059\u3002\n
\n
\u5358\u4e00\u306e\u30bb\u30eb\u53c2\u7167\u3092\u4f7f\u7528\u3059\u308b:vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9Dim rng As Range Set rng = Worksheets(\"Sheet1\").Range(\"A1\")<\/code><\/li>\n\n\n\n
\u30b9\u30b3\u30fc\u30d7\u3078\u306e\u53c2\u7167\u3092\u4f7f\u7528\u3057\u307e\u3059: vbaCopy \u30b3\u30fc\u30c9Dim rng As Range Set rng = Worksheets(\"Sheet1\").Range(\"A1:B5\")<\/code><\/li>\n\n\n\n
\u30bb\u30eb\u30a2\u30c9\u30ec\u30b9\u3092\u4f7f\u7528\u3059\u308b:vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9Dim rng As Range Set rng = Worksheets(\"Sheet1\").Range(\"A1\")<\/code><\/li>\n\n\n\n
\u540d\u524d\u4ed8\u304d\u7bc4\u56f2\u3092\u4f7f\u7528\u3057\u307e\u3059: vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9Dim rng As Range Set rng = Worksheets(\"Sheet1\").Range(\"MyRange\")<\/code><\/li>\n<\/ul>\n<\/li>\n\n\n\n
\u4e00\u822c\u7684\u306a\u64cd\u4f5c: Range \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306f\u3001\u30bb\u30eb\u306e\u5024\u3001\u66f8\u5f0f\u8a2d\u5b9a\u3001\u304a\u3088\u3073\u30d7\u30ed\u30d1\u30c6\u30a3\u306e\u8aad\u307f\u53d6\u308a\u3001\u66f8\u304d\u8fbc\u307f\u3001\u304a\u3088\u3073\u64cd\u4f5c\u3092\u884c\u3046\u305f\u3081\u306e\u591a\u304f\u306e\u4e00\u822c\u7684\u306a\u64cd\u4f5c\u3092\u30b5\u30dd\u30fc\u30c8\u3057\u3066\u3044\u307e\u3059\u3002 \u4e00\u822c\u7684\u306a\u30a2\u30af\u30b7\u30e7\u30f3\u3092\u6b21\u306b\u793a\u3057\u307e\u3059\u3002
\u30bb\u30eb\u306e\u5024\u306e\u8aad\u307f\u53d6\u308a\u3068\u66f8\u304d\u8fbc\u307f:vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9' \u8bfb\u53d6\u5355\u5143\u683c\u7684\u503c Dim value As Variant value = rng.Value ' \u5199\u5165\u5355\u5143\u683c\u7684\u503c rng.Value = \"Hello, World!\"<\/code><\/li>
\u30bb\u30eb\u306e\u8aad\u307f\u53d6\u308a\u3068\u66f8\u5f0f\u8a2d\u5b9a: vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9' \u8bfb\u53d6\u5355\u5143\u683c\u7684\u683c\u5f0f Dim format As Variant format = rng.NumberFormat ' \u8bbe\u7f6e\u5355\u5143\u683c\u7684\u683c\u5f0f rng.NumberFormat = \"0.00\"<\/code><\/li>
\u30bb\u30eb\u306e\u80cc\u666f\u8272\u3092\u8aad\u307f\u53d6\u3063\u3066\u8a2d\u5b9a\u3057\u307e\u3059:vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9' \u8bfb\u53d6\u5355\u5143\u683c\u7684\u80cc\u666f\u989c\u8272 Dim color As Variant color = rng.Interior.Color ' \u8bbe\u7f6e\u5355\u5143\u683c\u7684\u80cc\u666f\u989c\u8272 rng.Interior.Color = RGB(255, 0, 0) ' \u7ea2\u8272<\/code><\/li>
\u30bb\u30eb\u306e\u884c\u6570\u3068\u5217\u6570\u3092\u53d6\u5f97\u3057\u307e\u3059:vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9Dim rowCount As Long Dim columnCount As Long rowCount = rng.Rows.Count columnCount = rng.Columns.Count<\/code><\/li>
\u7bc4\u56f2\u5185\u306e\u30bb\u30eb\u3092\u8d70\u67fb\u3059\u308b: vbaCopy \u30b3\u30fc\u30c9Dim cell As Range For Each cell In rng ' \u6267\u884c\u64cd\u4f5c Next cell<\/code><\/li>
\u7bc4\u56f2\u306e\u30b5\u30a4\u30ba\u3092\u5909\u66f4\u3059\u308b:vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9Dim expandedRange As Range ' \u6269\u5c55\u8303\u56f4\u7684\u5927\u5c0f Set expandedRange = rng.Resize(5, 3) ' \u6269\u5c55\u4e3a5\u884c3\u5217 ' \u7f29\u5c0f\u8303\u56f4\u7684\u5927\u5c0f Set expandedRange = rng.Resize(1, 1) ' \u7f29\u5c0f\u4e3a1\u884c1\u5217<\/code><\/li>
\u7bc4\u56f2\u5185\u306e\u7279\u5b9a\u306e\u30bb\u30eb\u3092\u691c\u7d22\u3057\u3066\u9078\u629e\u3057\u307e\u3059:vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9Dim foundCell As Range Set foundCell = rng.Find(\"SearchValue\") ' \u9009\u5b9a\u8303\u56f4\u4e2d\u7684\u5355\u5143\u683c rng.Select<\/code><\/li><\/ul>\u3053\u308c\u3089\u306f Range \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u5bfe\u3059\u308b\u4e00\u822c\u7684\u306a\u64cd\u4f5c\u306e\u307b\u3093\u306e\u4e00\u90e8\u3067\u3042\u308a\u3001\u3055\u3089\u306b\u591a\u304f\u306e\u30e1\u30bd\u30c3\u30c9\u3068\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u4f7f\u7528\u3067\u304d\u307e\u3059\u3002 \u7279\u5b9a\u306e\u30cb\u30fc\u30ba\u3068\u30b7\u30ca\u30ea\u30aa\u306b\u5fdc\u3058\u3066\u3001Range \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u4f7f\u7528\u3057\u3066\u3001\u30c7\u30fc\u30bf\u51e6\u7406\u3001\u8a08\u7b97\u3001\u30d5\u30a3\u30eb\u30bf\u30fc\u51e6\u7406\u3001\u4e26\u3079\u66ff\u3048\u306a\u3069\u306e\u3055\u307e\u3056\u307e\u306a\u64cd\u4f5c\u3092\u5b9f\u884c\u3067\u304d\u307e\u3059\u3002<\/li>\n<\/ol>\n\n\n\n<\/figure>\n\n\n\n<\/figure>\n\n\n\n
\u30d6\u30c3\u30af\u3092\u958b\u3044\u305f\u308a\u9589\u3058\u305f\u308a\u3059\u308b: vbaCopy \u30b3\u30fc\u30c9' \u6253\u5f00\u5de5\u4f5c\u7c3f Dim wb As Workbook Set wb = Workbooks.Open(\"C:\\Path\\to\\Workbook.xlsx\") ' \u5173\u95ed\u5de5\u4f5c\u7c3f wb.Close SaveChanges:=True ' \u53ef\u4ee5\u9009\u62e9\u662f\u5426\u4fdd\u5b58\u66f4\u6539<\/code><\/li>\n\n\n\n
\u30d6\u30c3\u30af\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u53d6\u5f97\u304a\u3088\u3073\u8a2d\u5b9a\u3057\u307e\u3059: vbaCopy \u30b3\u30fc\u30c9' \u83b7\u53d6\u5de5\u4f5c\u7c3f\u7684\u540d\u79f0\u548c\u8def\u5f84 Dim name As String Dim path As String name = wb.Name path = wb.Path ' \u8bbe\u7f6e\u5de5\u4f5c\u7c3f\u7684\u5c5e\u6027 wb.Title = \"My Workbook\" wb.Author = \"John Doe\"<\/code><\/li>\n\n\n\n
\u64cd\u4f5c\u30ef\u30fc\u30af\u30b7\u30fc\u30c8: vba\u30b3\u30fc\u30c9\u306e\u30b3\u30d4\u30fc' \u5f15\u7528\u5de5\u4f5c\u8868\u5bf9\u8c61 Dim ws As Worksheet Set ws = wb.Worksheets(\"Sheet1\") ' \u6dfb\u52a0\u65b0\u5de5\u4f5c\u8868 Dim newWs As Worksheet Set newWs = wb.Worksheets.Add ' \u5220\u9664\u5de5\u4f5c\u8868 wb.Worksheets(\"Sheet2\").Delete<\/code><\/li>\n\n\n\n
\u30a4\u30d9\u30f3\u30c8\u306e\u51e6\u7406: vbaCopy \u30b3\u30fc\u30c9' \u5728\u5de5\u4f5c\u7c3f\u6253\u5f00\u65f6\u89e6\u53d1\u7684\u4e8b\u4ef6 Private Sub Workbook_Open() ' \u6267\u884c\u64cd\u4f5c End Sub ' \u5728\u5de5\u4f5c\u7c3f\u5173\u95ed\u65f6\u89e6\u53d1\u7684\u4e8b\u4ef6 Private Sub Workbook_BeforeClose(Cancel As Boolean) ' \u6267\u884c\u64cd\u4f5c End Sub<\/code><\/li>\n<\/ul>\n<\/li>\n\n\n\n
\u30bb\u30eb\u306e\u5024\u3092\u53d6\u5f97\u304a\u3088\u3073\u8a2d\u5b9a\u3057\u307e\u3059: vbaCopy \u30b3\u30fc\u30c9' \u8bfb\u53d6\u5355\u5143\u683c\u7684\u503c Dim value As Variant value = ws.Range(\"A1\").Value ' \u5199\u5165\u5355\u5143\u683c\u7684\u503c ws.Range(\"A1\").Value = \"Hello, World!\"<\/code><\/li>
\u30a4\u30d9\u30f3\u30c8\u306e\u51e6\u7406: vbaCopy \u30b3\u30fc\u30c9' \u5728\u5de5\u4f5c\u8868\u9009\u5b9a\u53d8\u5316\u65f6\u89e6\u53d1\u7684\u4e8b\u4ef6 Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' \u6267\u884c\u64cd\u4f5c End Sub ' \u5728\u5de5\u4f5c\u8868\u5185\u5bb9\u53d1\u751f\u66f4\u6539\u65f6\u89e6\u53d1\u7684\u4e8b\u4ef6 Private Sub Worksheet_Change(ByVal Target As Range) ' \u6267\u884c\u64cd\u4f5c End Sub<\/code><\/li><\/ul>Workbook \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3068 Worksheet \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u306f\u3001\u30c7\u30fc\u30bf\u306e\u30d5\u30a3\u30eb\u30bf\u30fc\u51e6\u7406\u3001\u8a08\u7b97\u3001\u4e26\u3079\u66ff\u3048\u3001\u5370\u5237\u306a\u3069\u3001\u3088\u308a\u591a\u304f\u306e\u64cd\u4f5c\u3092\u5b9f\u884c\u3059\u308b\u305f\u3081\u306e\u4ed6\u306e\u591a\u304f\u306e\u30e1\u30bd\u30c3\u30c9\u3068\u30d7\u30ed\u30d1\u30c6\u30a3\u304c\u7528\u610f\u3055\u308c\u3066\u3044\u307e\u3059\u3002 \u3053\u308c\u3089\u306e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u64cd\u4f5c\u3059\u308b\u3053\u3068\u306b\u3088\u308a\u3001Excel \u30d6\u30c3\u30af\u3068\u30ef\u30fc\u30af\u30b7\u30fc\u30c8\u306e\u3059\u3079\u3066\u306e\u5074\u9762\u3092\u81ea\u52d5\u5316\u304a\u3088\u3073\u30ab\u30b9\u30bf\u30de\u30a4\u30ba\u3059\u308b VBA \u30b3\u30fc\u30c9\u3092\u8a18\u8ff0\u3067\u304d\u307e\u3059\u3002<\/li>\n<\/ol>\n\n\n\n<\/figure>\n\n\n\n<\/figure>\n\n\n\n
\u30b0\u30e9\u30d5\u3092\u4f5c\u6210\u3059\u308b: vbaCopy \u30b3\u30fc\u30c9Dim ws As Worksheet Set ws = Worksheets(\"Sheet1\") Dim chart As Chart Set chart = ws.Shapes.AddChart2(ChartType:=xlColumnClustered).Chart<\/code><\/li>\n\n\n\n
\u30c7\u30fc\u30bf\u7cfb\u5217\u3092\u8ffd\u52a0\u3059\u308b: vbaCopy \u30b3\u30fc\u30c9Dim series As Series Set series = chart.SeriesCollection.NewSeries series.Name = \"Sales\" series.Values = ws.Range(\"B1:B5\") series.XValues = ws.Range(\"A1:A5\")<\/code><\/li>\n\n\n\n
\u30b0\u30e9\u30d5\u30a3\u30c3\u30af\u3092\u8ffd\u52a0:vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9Dim ws As Worksheet Set ws = Worksheets(\"Sheet1\") Dim shape As Shape Set shape = ws.Shapes.AddShape(msoShapeRectangle, Left:=100, Top:=100, Width:=100, Height:=50)<\/code><\/li>\n\n\n\n
\u7d50\u5408\u6f14\u7b97\u5b50 (&) \u3092\u4f7f\u7528\u3059\u308b: vbaCopy codeDim str1 As String Dim str2 As String Dim result As String str1 = \"Hello\" str2 = \"World\" result = str1 & \" \" & str2 ' \u7ed3\u679c\u4e3a \"Hello World\"<\/code><\/li>\n\n\n\n
right \u95a2\u6570: \u6587\u5b57\u5217\u306e\u53f3\u5074\u306b\u6307\u5b9a\u3055\u308c\u305f\u9577\u3055\u306e\u90e8\u5206\u6587\u5b57\u5217\u3092\u8fd4\u3057\u307e\u3059\u3002<\/li>
\u7f6e\u63db\u95a2\u6570: \u6587\u5b57\u5217\u5185\u306e\u90e8\u5206\u6587\u5b57\u5217\u3092\u7f6e\u63db\u3057\u307e\u3059\u3002<\/li><\/ul>\u4f8b: vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9Dim str As String Dim position As Integer Dim newStr As String str = \"Hello, World!\" position = InStr(str, \"World\") ' \u7ed3\u679c\u4e3a 8 newStr = Replace(str, \"Hello\", \"Hi\") ' \u7ed3\u679c\u4e3a \"Hi, World!\"<\/code><\/li>\n\n\n\n
Val \u95a2\u6570: \u6587\u5b57\u5217\u3092\u6570\u5024\u306b\u5909\u63db\u3057\u307e\u3059\u3002<\/li><\/ul>\u4f8b: vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9Dim str As String Dim upperCase As String Dim lowerCase As String Dim num As Double str = \"Hello, World!\" upperCase = UCase(str) ' \u7ed3\u679c\u4e3a \"HELLO, WORLD!\" lowerCase = LCase(str) ' \u7ed3\u679c\u4e3a \"hello, world!\" num = Val(\"123.45\") ' \u7ed3\u679c\u4e3a 123.45<\/code><\/li>\n<\/ol>\n\n\n\n
\u914d\u5217\u8981\u7d20\u3078\u306e\u30a2\u30af\u30bb\u30b9: vba\u30b3\u30d4\u30fc \u30b3\u30fc\u30c9' \u8bfb\u53d6\u6570\u7ec4\u5143\u7d20\u7684\u503c Dim value As Integer value = arr1(2) ' \u7ed3\u679c\u4e3a 30 ' \u4fee\u6539\u6570\u7ec4\u5143\u7d20\u7684\u503c arr1(3) = 45<\/code><\/li>\n\n\n\n
\u914d\u5217\u3092\u30eb\u30fc\u30d7\u3059\u308b:vbaCopy\u30b3\u30fc\u30c9Dim i As Integer ' \u4f7f\u7528For\u5faa\u73af\u904d\u5386\u4e00\u7ef4\u6570\u7ec4 For i = LBound(arr1) To UBound(arr1) ' \u6267\u884c\u64cd\u4f5c\uff0c\u4f8b\u5982\uff1aDebug.Print arr1(i) Next i ' \u4f7f\u7528For\u5faa\u73af\u904d\u5386\u4e8c\u7ef4\u6570\u7ec4 For i = LBound(arr2, 1) To UBound(arr2, 1) For j = LBound(arr2, 2) To UBound(arr2, 2) ' \u6267\u884c\u64cd\u4f5c\uff0c\u4f8b\u5982\uff1aDebug.Print arr2(i, j) Next j Next i<\/code><\/li>\n\n\n\n
\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u306e\u4f5c\u6210\u3068\u521d\u671f\u5316: vbaCopy \u30b3\u30fc\u30c9Dim coll As Collection Set coll = New Collection ' \u6dfb\u52a0\u5143\u7d20\u5230\u96c6\u5408 coll.Add \"Apple\" coll.Add \"Banana\" coll.Add \"Orange\"<\/code><\/li>\n\n\n\n
\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u8981\u7d20\u306b\u30a2\u30af\u30bb\u30b9\u3059\u308b: vba\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fc\u3059\u308b' \u8bfb\u53d6\u96c6\u5408\u5143\u7d20\u7684\u503c Dim value As Variant value = coll(2) ' \u7ed3\u679c\u4e3a \"Banana\" ' \u4fee\u6539\u96c6\u5408\u5143\u7d20\u7684\u503c coll(3) = \"Grapes\"<\/code><\/li>\n\n\n\n
\u30b3\u30ec\u30af\u30b7\u30e7\u30f3\u3092\u30c8\u30e9\u30d0\u30fc\u30b9\u3059\u308b: vbaCopy \u30b3\u30fc\u30c9Dim item As Variant ' \u4f7f\u7528For Each\u5faa\u73af\u904d\u5386\u96c6\u5408 For Each item In coll ' \u6267\u884c\u64cd\u4f5c\uff0c\u4f8b\u5982\uff1aDebug.Print item Next item<\/code><\/li>\n\n\n\n
\u30d5\u30a1\u30a4\u30eb\u3092\u4f5c\u6210\u3059\u308b: vba\u30b3\u30fc\u30c9\u3092\u30b3\u30d4\u30fcDim fileNumber As Integer fileNumber = FreeFile Open \"C:\\Path\\to\\File.txt\" For Output As fileNumber Print #fileNumber, \"Hello, World!\" Close fileNumber<\/code><\/li>\n\n\n\n
\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304d\u307e\u3059: vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9Dim fileNumber As Integer Dim text As String fileNumber = FreeFile Open \"C:\\Path\\to\\File.txt\" For Input As fileNumber Line Input #fileNumber, text Close fileNumber MsgBox text ' \u663e\u793a\u6587\u4ef6\u5185\u5bb9<\/code><\/li>\n\n\n\n
\u30d5\u30a1\u30a4\u30eb\u3092\u79fb\u52d5\u3059\u308b: vba\u30b3\u30d4\u30fc\u30b3\u30fc\u30c9Name \"C:\\Path\\to\\SourceFile.txt\" As \"C:\\Path\\to\\NewLocation\\SourceFile.txt\"<\/code><\/li>\n\n\n\n
![\"User\"\/](\"https:\/\/chat.openai.com\/_next\/image?url=https%3A%2F%2Flh3.googleusercontent.com%2Fa%2FAAcHTte6KR1kzuaaTvvmgGZmt-cyZ8PZvRyoM2ELfGivcw%3Ds96-c&w=96&q=75\")