Excel VBA 電子業務記録簿の改良とその設計事例
Contents
1. 2006 TExcel 20072. 2 2006 2 Excel Microsoft 0 ce 2008 Excel 2003 2006
3. 0 2006 Excel 7 91 98 ExcelVBA Exce12003 VBA
4. mesos 1 G9 H39 1 1 10 14 12 1 E 1 20 lt gt hh mm 3 an O 3 5 x 26 W456 kirokuba allauto04b xls Microsoft Excel hcrobat
5. 2008 05 29 undate DIshii 2008 4 24 office ver 2000 ver2003 2007 1 hl II n4n 1 I 1 1 2 kirokubo allauto04b xls Microsoft Excel W lt FF F lt 58 9 ttre Acrobat EE 2 2 ce
6. Excel 1 Excel i j Excel i j VBA Application Cells CellsG D5 VBA Cells 5 4 Application Range Range D5 J a E F ER S EE im re mLu 8 x p x p B 6 3 A Ak Bx Bk See Cells i j
7. 2006 3 Excel VBA 2 1 1
8. Excel 98 2000 2002 2003 2007 5 1 Excel VBA i 4 VBA Excel VBA TExcel 2 GUI Graphical User Interface Excel VBA Visual Basic VB
9. lt B 4 05 04 0 10 1 1 a web http www riam kyushu u ac jp gikan local gentei_syorui html kirokubo allauto04b xls
10. C 11 3 C11 3 VB D E LH 1 2 a x k x p x kx 5 sti Ax lt AK Ap A Fa Bx Bk Bp B e hh mm Bx gt tesaues 1
11. a g kirokubo allautoD4b xls Microsoft Excel 2 acrobat a Ss F en Fm SUM A NN MS P 1 7 9 3 1B 3 lt 9 8398 Ss MEL 24 8 es H39 1 31 Dele skSpsce AN PO 17
12. O ce 2007 Excel 2007 Excel 2007 Excel 2003 Ofice Open XML xlsx 2006 Excel 2003 3 Excel 2007 2006 Excel 2007 FExcel VBA
13. 1 1 C ocuments 08 xs 1 FP 0 CE srt 1 0 Cocuments 08 xs a RR 95 6 I ty 2
14. 1 GPS EC EE EE lt IGPSwuF for FEA GPS com crema ee 1S SFSiaP for RAM GPS En iad ET lmlx a ieneone oe wm rimeae mm ET CE EFRAE WS FS 1 mlx A TTY 3 esamwwora_eewrcmzsmese 0 GFSAF for FTAM GmS 1 71 7 6 5 8 a Excel 2000 sm gzile
15. amp 04b 1 1 4 04 4 5 5 04 11 c 1 1 d OK 4 1 1 e 5 04 2 1 1 e 5b
16. 46 9 yh e Ln FE mn sa LF O5 OH 7 Excel VBA VB Excel VBA VB ml Excel VBA
17. b gt C 5 Excel VBA 20060 3 a ee 12 T3 I2 2008 I3 11 2008 11 3 5
18. 05 1 1 a 3 Mozilla Firefox F E G D B goo H lt Wew new 2008 12 22 http fewwriamkyushu uac jp gikan 22 2 ff gt H20 4 24 kirokubo allauto04bxls
19. m P Lm 2 gt 28 8 PF d IN 04 r ul amp B O4b lt E 1 1 Ln gt F e gt he 1 3 1 1 B
20. rr PO Sa x 1 W456 A Rd WW 8 KC EE E EE EE EE EE EE EE EE E CS 3 3 om 0 Ko S nn 1nm 4 MO1 12 11 10 08 CB 07 06 05 04 mm 4 a b c A B 9 gE 8 H J K L EE 1 2 x k x p x p 3 lt Ap 1 ro A Bx Bk Bp B g
21. 2 3 4 20 11 i a a hh mm lt Bx gt G9 H39 1 1 Delete BasckSpacs ae Ga ai ET ee ps mi een 3 3 G nae Neroni a 2 20 11 17 30 21 3n 5 6 2 5 Sub ironuki For 1 1 To 31 For 3 To 8 Cells 8 i j Int
22. Ax AK Ap A Pr Bx BK Bp C 3 4 20 11 8 Bx gt ag WW 0 I sR A Eh 1 5 a b 6 3 6 Sub clear For 1 1 To 31 For 3 To 8 Cells 8 i j ClearContents Next J Next 1 End Sub Cells i j ClearContents WE 1 2 a x k x p x x 5 si A lt AK Ap r Bx BR Bp B 6 C 3
23. Sub print kinmu Dim prl As Worksheet Set prl Worksheets 1 On Error Resume Next pr1 PageSetup PrintArea B3 H 40 Range pr1 PageSetup PrintArea Select prl PageSetup Orientation xlPortrait prl PrintPreview enablechanges False Set prl Nothing On Frror Golo 0 End Sub PageSetup pr1 PageSetup PrintArea N 2 Z 467 a rasa x p x kp a 6 3 A Ak Ap gt 6 RI Bx Bk Bp BB a 3 4 20 11 3 hh mm lt Bx gt 5 4 N HMM SHAFER Ot sm b M NN 65 15 WB R S T U MD W x Y_ _ oe ee
24. 2 3 20 11 6 me a LE 125 1 0 135 1nn 150 1 00 135 mg 25 100 Eu EE CL EE 8 EE 05 WI 0 11 0 WI 4 DD 4 17 30 21 30 me 7 a b c d Ma cl gt 08 xls Micrasaft Ex NE a Fm C SR 20 11 hmml Bx gt 2 Peeesrercneawaeaewacos Bm om aa aR emm mma jsmw em_aawwis EE jew WM RR IGPSmAP Ir FINM ti ee ISFSiAP EE GPSMAP IGPSMAF
25. 46 0 57 0 56 index 9 9 3 2050 9 2009 2015 2026 2032 2037 2043 2049 3 For k2 1 To 31 h Weekday DateSerial yy Value mm Value Cells k2 2 Value If h 2 Then h2 h2 1 End If If h2 3 Then For kl 2 To 8 Cells k2 k1 Interior ColorIndex 46 Next kl Cells k2 3 Value End If Next k2 x Int 23 2488 0 242194 yy Value 1980 Int yy Value 1980 4 Cells x 3 Value If Weekday DateSerial yy Value mm Value Cells x 2 Value 1 Then Cells x 1 3 Value End If For kl 2 To 8 Cells x k1 Interior ColorIndex 46 If Weekday DateSerial
26. i se ec 4 20 11 hh mm lt Bx gt D EE F G H 1 2 ogA b x k x p x s i Ax AkK Ap Bx Bk Bp B 2 Spe 5 4 20 11 5 hh mm Bx gt 8 6 4 7
27. 5 2 0 Ganne MO Bu A 1 L lt 9 aj 3 _ gt 2 F27 p E Gc H UN nN R YT WT TT FY TN FEE RI 2B ma 5j a k ds 2 3 O ee 6 jiB 20 11 Fa 5 PC 4 GG 2 I 3 2 1 ri
28. Excel 2000 unlock Sub downgrade_unlock Dim ver2 As Str1ng On Error Resume Next Select Case Val Application Version Case 5 ver2 5 0 Worksheets 1 Unprotect Password MsgBox vbInformation Case 7 ver2 95 Excel amp ver2 amp Worksheets 1 Unprotect Password MsgBox Excel vbInformation Case 8 ver2 97 Worksheets 1 Unprotect Password MsgBox Excel vbInformation Case 9 ver2 2000 Worksheets 1 Unprotect Password MsgBox Excel vbInformation Case 10 ver2 2002 MsgBox Excel vbInformation Case 11 ver2 2003 MsgBox Excel vbInformation Case Else ver2 End Select On Error Golo 0 ver2 amp ver2 amp ver2 amp ve
29. Cells i j 20 11 a 1 1 hh mm lt BEx gt CO EE aa 1 Excel VBA 2 a 2 b 2 c a 8 20 e1 8 xls Microsoft Ex
30. yy Value mm Value Cells x 2 Value 1 Then Cells x 1 k1 Interior ColorIndex 46 End If If Weekday DateSerial yy Value mm Value Cells x 2 Value 4 Then Cells x 1 k1 Interior ColorIndex 46 If kl 2 Then Cells x 1 3 Value End If End If Next kl 6 3 6 1 4 a 4 b D E a 4 c Fa 2 xls M CX a acrobat x he msp S migUcefegmsj ww i IE Av 2 5
31. ActiveSheet PageSetup Orientation xlPortrait On Frror Golo 0 ActiveSheet SaveAs Filename Application GetSaveAsFilename amp CStr yy amp CStr m amp xls AddToMru False On Error Resume Next Workbooks 2 Close On Error Golo 0 End Sub a C25 Microsoft Excel 08 _xls E CE 0 0 T D FlashPapertP 0 adobe PDFGB E J K L IMNI oO 1Jk lg 2 b X 2 CalkingJ Files DaI digitalstage ED DivxToDwd Fuji Xerox Google My Data Sources My Music a My Pagelhlanager Ncos ED FlaceEngine EaQ Files ShowBiz 2 OC S NoPDF af U lt Visual Studio 2008 CiNiil mht cc_20081 022 193011 ree cc 20081022 223434re
32. 1 w4G i 1 0 2 a 7 gt Yaa O C9 H39 H5 ER W46 1 a PR OB 04 OK
33. 2 A x k x p x p Ax AK Ap A Pedt 0 2 a Bx Bk Bp B 3 4 20 11 hh mm lt Bx gt 3 a tb 2008 11 If Weekday DateSerial year Value month Value Cells i Value 1 Then Cells i Interior ColorIndex 3 Elself Weekday DateSerial year Value month Value Cells i Value 7 Then Cells i TInterior ColorIndex 8 End If gg7e DateSerial Weekday 2g7e 1 2 6 7 Cells i j Interior ColorIndex 1 2 3 4 a 6 8
34. 9 08 xls Microsaft Ex mi gpues 70 Em NR 3 i 20 11 EC RE 2 mne 6 125 100 1 130 100 Rs 1 100 la i i i bol ial IEE hn EE RC a a adfammasaswmaiasn xm 1a 1730 21 30 sm ee 6 135 10 11357 100 B 3 lt 1 1 TYO
35. Excel VBA 1 2006 Excel VBA Visual Basic for Applications 2004
36. I2 I 3 2 FE 1 SC Excel 2008 or gt gt Excel 200 O mom PD PDFI Acrobat O PDF O 4 A gt hh mm 3 dG
37. cel _ Xx Acrobat m xX MsP 11 gt 9 iD BZ UA ne ey IE AP MIE EE 24 C gt 2 0 ck ame A Bh C25 A BE E F G H er 1 Fr ys Tab b Microsoft Office g c Microsoft Office W
38. erior ColorIndex 0 Cells 8 i Jj Font ColorIndex 1 Next J Next 1 End Sub Cells i j Font ColorIndex D E F H Fee 1 2 a x k x p x kp A ued Ax AK Ap Ve bs Bx Bk Bp BB 3 4 20 11 hh mm lt Bx gt 8 II 5 Ir lt gt 1 2 st x k x p x C p _
39. g cc 20081 217 153005 ree a Default rdp Firefax 15 0 12 Gay 2007 08 02 pew Firefox 1 5 0 12 a 2HH8 H3 19ncy Indexfile txt installtxt Thunderbird 20H ja 2007 08 02 pe Thunderbird 20012 a 2008 03 19 pcey yistahtml WOD 05 mht 0 1pdf 0 2pdf doc 1 pdf 02ndf 2008 11 xls v 4 Lee 9 a b 6 7 Excel VBA web ID web 10
40. r2 amp ver2 amp End Sub Microsoft Excel 08 xls a FE E 0 0 C D FlashPaper P H Adobe PDF B Xx C25 J K L M N O ED a Gy Gy 8 a Excel 2003 b Excel 2000 c icrosotft Excel 6 6 9 a Sub copy Dim yy As Range mm As Range Set yy Range 12 Set mm Range 13 ActiveSheet copy ActiveSheet Columns Ai L Hidden True ActiveSheet Rows 1 Hidden True On Error Resume Next ActiveSheet PageSetup PrintArea N 2 Z 46 Range ActiveSheet PageSetup PrintArea Select
Download Pdf Manuals
Related Search