Excelマクロはじめの一歩
Download as KEY, PDF2 likes548 views
The document provides instructions on using VBA macros in Excel to convert data between different formats. It includes examples of using functions like Left, InStr, Offset, and CSng to extract and manipulate data in cells. It also lists useful websites that provide references and tutorials for learning VBA macros and their application in Excel.
![:
^(d{3}[357])(.*?) (.*?) (([0-9a-zA-Z ]+?))(.* )$
12 3 (1_4_3)5
S
([0-9]{3}(3|5|7))>(.*) (.*) ((.*))(.*)
1>2 3 (1_4_3)5
T
^([0-9]{3}[357])(..*? )(..*)( .*()([0-9a-zA-Z ]*)().* )$
$1$2$3$4$1_$5_$3$6](https://image.slidesharecdn.com/excel-120123011910-phpapp02/85/Excel-3-320.jpg)
![[ ]](https://image.slidesharecdn.com/excel-120123011910-phpapp02/85/Excel-7-320.jpg)
![[ ]](https://image.slidesharecdn.com/excel-120123011910-phpapp02/85/Excel-8-320.jpg)
![[ ]
=>
/
[ ]
=>](https://image.slidesharecdn.com/excel-120123011910-phpapp02/85/Excel-10-320.jpg)
![Alt+F11 VBA
[ ]
Module1
( Mac Win
[ ] [???????] )](https://image.slidesharecdn.com/excel-120123011910-phpapp02/85/Excel-12-320.jpg)
Excelマクロはじめの一歩
- 1. Excel 2012/01/23
- 3. : ^(d{3}[357])(.*?) (.*?) (([0-9a-zA-Z ]+?))(.* )$ 12 3 (1_4_3)5 S ([0-9]{3}(3|5|7))>(.*) (.*) ((.*))(.*) 1>2 3 (1_4_3)5 T ^([0-9]{3}[357])(..*? )(..*)( .*()([0-9a-zA-Z ]*)().* )$ $1$2$3$4$1_$5_$3$6
- 7. [ ]
- 8. [ ]
- 10. [ ] => / [ ] =>
- 12. Alt+F11 VBA [ ] Module1 ( Mac Win [ ] [???????] )
- 13. Sub Macro1() ' ' Macro1 Macro ' Range("C3").Select ActiveCell.FormulaR1C1 = "foo" Columns("D:D").Select Selection.Insert _ Shift:=xlToRight,CopyOrigin:=xlFormatFromLeftOrAbove Range("A1").Select Cells.Find(What:="foo", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= xlPart, SearchOrder:=xlByRows, _ SearchDirection:=xlNext, MatchCase:=False, _ MatchByte:=False, SearchFormat:=False).Activate End Sub 1. C3 ”foo” 2. D 3. “foo”
- 14. Sub (<arg *optional>) < > End Sub ( ) : Sub Function VBA xls =Foo(A1) Function “Foo”
- 18. VBA Dim i As Integer Dim columnInternal As String Dim columnInvoicedAmt As Double Dim rowNum As Boolean Dim tmp As Variant Dim < > As < > Option Explicit http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_040.html http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_050_06.html
- 19. ( ) Integer String Long Date Single Object Double Variant Currency Boolean http://excelvba.pc-users.net/fol5/5_2.html
- 20. = a = 100 a 100 a ← 100 a 100 i = i + 1 i i 1 :i = 2 i = i + 1 i = 3 http://home.att.ne.jp/zeta/gen/excel/c04p22.htm
- 21. If ( )
- 22. ( ) =: =: +: <>: -: >: *: >=: /: <: mod: <=: ^:
- 23. if (if ) If 1 Then 1 ElseIf 2 Then 2 Else 1 2 End If *ElseIf Else http://excelvba.pc-users.net/index.html 6 http://excelvba.pc-users.net/fol6/6_1.html http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_050_02.html
- 24. : If Cells(1,1).Value = 1 Then Cells(1,2).Value = “Foo” ElseIf Cells(1,1).Value = 2 Then Cells(1,2).Value = “bar” Else Cells(1,2).Value = “hoge” End If Cells(1,1) ( A1) - 1 Cells(1,2) ( B1) “Foo” 2 Cells(1,2) ( B1) “bar” Cells(1,2) ( B1) “hoge” ElseIf ( )
- 25. For Next ( if ) For = To Next For i j http://excelvba.pc-users.net/fol6/6_3.html http://www.sigoto.co.jp/excel/statement/state09.htm (For each Next )
- 26. : Dim i As Integer For i = 1 To 10 Cells(i, 1).Value = i * 10 i = i + 1 Next i 1 i ( ) For i = 1 To 10 Next i 1 10 Cells(i, 1).Value = i * 10 Cells(i, 1) i*10 i = i + 1 i 1 ” i + 1”
- 28. ( 2:30...)
- 30. xciConvert.xlsm Alt+F11 VBA Before.xls After.xls
- 31. Client Project Number Client Internal % % (+ ) Vendor % (+ ) Invoiced Amt Project Total Invoiced Amount 0 Invoiced Amt GM Client Name BU Name CompDate BDM GM% :
- 32. 3
- 33. /
- 38. xciConvert.xlsm Client ProjDate Client A B Client ProjDate Project Number netapp_1101_008-02 ( )