1 źOFftHgĚźłľłń [2017/11/08(
) 11:26:30.13 ID:+KUB1/9hd.net] X§ÄĚŰÍęsÚÉ !extend:checked:vvvvv:1000:512 ĆüęÄX§ÄľÄşł˘ ExcelĚVBAÉÖˇéżâXš R[hŤÝâěŹËŕOK ŚÖAX VBAČńĹŕżâX Part2 mevius.2ch.net/test/read.cgi/tech/1432173164/ Access VBA żâX Part1 mevius.2ch.net/test/read.cgi/tech/1328536426/ Excelk 126 https://mevius.2ch.net/test/read.cgi/bsoft/1496487719/ ŚOX Excel VBA żâX Part50 mevius.2ch.net/test/read.cgi/tech/ VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured 👀 Rock54: Caution(BBR-MD5:0be15ced7fbdb9fdb4d0ce1929c1b82f)
158 źOFftHgĚźłľłń mailto:sage [2017/11/20() 13:11:30.03 ID:tncAZsVja.net] >>152 JJXąńČĆąëĹŕşçË[ŢčľÄńśáËŚć
159 źOFftHgĚźłľłń mailto:sage [2017/11/20() 15:08:27.78 ID:6BLE5ZLY0.net] WordVBAĹg˘É˘ĚÍL^oÄŕÇłť¤ČŕĚŞL^oȢB ˝žAąęÍąÁż
160 źOFŞoÄŕÇłť¤ĆčÉvÁÄ鞯ĹMSIÉÍܸ˘˝ŠŞLéĚŠŕľęȢB ťęćčŕ˘éĚÍ Debug.Print Typename(hoge) ĆâÁÄSelectionŞAÁÄéB ^đm轢ĚÉSelectionÍł˘žë¤B [] [ąąóęÄܡ]
161 źOFftHgĚźłľłń mailto:sage [2017/11/20() 17:44:20.81 ID:PC8rzjhFa.net] >>154 ^ź˛×éÖŕ¤ĐĆ Á˝ćË ńÜgíńŠçY꽯Ç
162 źOFftHgĚźłľłń [2017/11/20() 19:16:12.47 ID:3EUEsxu/0.net] >>154 ÎÁ˝
163 źOFftHgĚźłľłń [2017/11/20() 19:56:44.52 ID:HiJj2X0L0.net] >>154 ? typename(hoge)ĆâÁ˝ç EmptyĆoÄŤ˝źB Č˝ŤĚŞĆŻśĹJb|B
164 źOFftHgĚźłľłń mailto:sage [2017/11/20() 21:46:53.19 ID:dynAF7sP0.net] >>151 @ čŞĆ¤˛´˘ÜˇB@śÂÍťęĹđľÜľ˝B }NĹL^ľ˝çinlineshapeĹAČńâËńąęHĆđľÄ˘ČŠÁ˝ąĆŞ´öĹľ˝B
165 źOFftHgĚźłľłń [2017/11/20() 22:35:57.11 ID:bUEYENj70.net] OX943lĚşLt@CAŕ¤ęxupľÄ˘˝žóÉ͢ŤÜšńž夊B DLľć¤Ćv˘ČŞçA¸OľÄ˘ÄAćŮÇľć¤Ćľ˝ĆąëÁŚÄľÜÁĢܾ˝B 943lA¨č𨊯ľÜˇŞ˝˛ć뾨袢˝ľÜˇB 943ftHgĚźłľłń (ÜŻÁޞ 06e9-FqSh)2017/11/05(ú) 15:01:02.75ID:2uRc+T650>>944 >>958 >>942 Ę^ÍŤßÄęBŠéĚßńÇł˘ oÄŤ˝Šç °éí ĺĚâ轢ąĆÍąęžĆv¤ EÝčV[gĚBńÉ\Śľ˝˘ŕĚBCńÍü͡éśđüęé EüÍV[gĚA1Éu¤vĆüęÄčBXgŞťęÄuvukCšvŞťęéĚĹIđˇé ŕżëńu¤vśáČÄŕuvČńŠĹࢢBęÉćÁÄÍBńÉuaJvĆŠ˘ęÄࢢŠŕľęȢ https://dotup.org/uploda/dotup.org1380568.zip.html ŠŞĹž¤Ěŕ˝žŞąę´ÖBŠČčIXX
166 źOFftHgĚźłľłń [2017/11/20() 23:57:02.00 ID:3EUEsxu/0.net] ą¤˘¤ÍšßÄGNZAbv[hĹŤéAbv[_[Žç˘TľÄéĆǢź
167 źOFftHgĚźłľłń mailto:sage [2017/11/21(Î) 02:44:24.85 ID:eIBN2cFq0.net] >>157 www hogeđČńžĆvÁÄéH ťčáťĚÜÜĹÄÎEmptyŞAÁÄéžë¤B hogeĹ@ľÄęńŠËB Jb|ČĚÍNĚŞžćB
168 źOFftHgĚźłľłń mailto:sage [2017/11/21(Î) 13:03:45.67 ID:OSkNtsZi0.net] roßÍǤĹࢢŠçĘđłŚë@ÁÄlÔŞÇńÇńŚÄńžČ@ocŇŠć
169 źOFftHgĚźłľłń mailto:sage [2017/11/21(Î) 16:28:44.72 ID:7aGtp6cN0.net] Ę͢˘ŠçroßđłŚëAČńÄŞ¨Šľ˘žë˝žÁÄńžŠ
170 źOFftHgĚźłľłń mailto:sage [2017/11/21(Î) 17:41:32.87 ID:rp//GM45a.net] >>163 ĘÍĘłŚÄŕç¤ČçßöŕwÔńžć Ü AĘÉwŃĚęśáȢŻÇË ˝žA
ÁÄŕvOžŠçČ ĘžŻmÁÄŕťĚęľĚŹČăÉÍČçńžë
171 źOFftHgĚźłľłń [2017/11/21(Î) 18:15:13.21 ID:22dwRLVAd.net] ˘ĚÍ_IÉōĢéĚÉ>>163 Ş_IĹȢĚÍČşČĚŠ
172 źOFftHgĚźłľłń [2017/11/21(Î) 19:38:11.84 ID:49Yzjg710.net] >>165 PÉt ŇöđđľÄ˘Č˘žŻŠĆ
173 źOFftHgĚźłľłń mailto:sage [2017/11/21(Î) 21:45:55.72 ID:vcSymdG+d.net] vbađ×ĚŇšB sĚĹçęĢé{ČDz×ÄŕÚÁĢȢĚšŞAforśĹgíęéĎźŞuivšŞAČşuivČĚšŠH uivĚÓĄđłŚÄ¸ŻÜšńŠH ůoĹľ˝çˇÝÜšń
174 źOFftHgĚźłľłń [2017/11/21(Î) 21:52:07.73 ID:x41b941k0.net] >>167 iterationĚiÁÄޢśáń
175 źOFftHgĚźłľłń [2017/11/21(Î) 21:58:13.94 ID:49Yzjg710.net] >>167 >168ĚĘ螯ÇAऎSÉ`[ťľÄ˘é uivĹࢢľuy[WÔvČÇú{ę\LĹࢢ żČÝÉ´ÍukvŠçuvulvunvĆąŻé PÉŠÔá˘É˘ć¤É
176 źOFftHgĚźłľłń mailto:sage [2017/11/21(Î) 22:07:12.83 ID:L3nv/JJz0.net] ĄO[OćśÉˇ˘˝çFORTRANŠçĚźcžÁÄĹÄŤ˝
177 źOFftHgĚźłľłń mailto:sage [2017/11/21(Î) 22:14:29.41 ID:wrH3tJZg0.net] >>170 ĚÇńžVBžŠVBAžŠĚĐÉÍgsbNĆľÄfھĽĐŕ Á˝ć¤ČLŻŞ
178 źOFftHgĚźłľłń mailto:sage [2017/11/21(Î) 22:17:05.57 ID:vcSymdG+d.net] >>168-170 čŞĆ¤˛´˘ÜˇI zgŠčÜľ˝I řÁ|ŠčiÜČŠÁ˝ĚĹAąęĹiÝܡB [žĹŤÄćŠÁ˝Ĺˇ čŞĆ¤˛´˘Üˇ
179 źOFftHgĚźłľłń mailto:sage [2017/11/21(Î) 22:17:55.51 ID:vcSymdG+d.net] >>171 łńŕX čŞĆ¤I
180 źOFftHgĚźłľłń mailto:sage [2017/11/21(Î) 22:18:54.65 ID:2WJixd7Q0.net] integerĚižĆvÁÄ˝í
181 źOFftHgĚźłľłń mailto:sage [2017/11/21(Î) 22:47:14.99 ID:FV1Lkm8B0.net] >>167 wĹijkÍsńČÇĚYŚĹg¤B fortranĹlXgľ˝[vńˇĆŤÁÄA÷ŞűöŽđŁUťľ˝ŕĚđđ˘˝čˇép^[Ş˝ÄA ńłâOłĚ˝łzńđgÁÄéžë¤ŠçAŠRĆijkÉČéB ĹAwĚiÍintegerŠçŤÄéAƢÁ˝Ž ˘ĹÍH
182 źOFftHgĚźłľłń mailto:sage [2017/11/21(Î) 23:38:11.98 ID:vcSymdG+d.net] >>174 A174 wŠçČńšŠHI vOĆwÍá¤ŕĚĆvÁĢܾ˝B čŞĆ¤
183 źOFftHgĚźłľłń mailto:sage [2017/11/22(
) 06:03:08.32 ID:nhDpu2iz0.net] ĄŠç60NOÉAJĚIBMĐĹJłę˝FORTRAN(tH[g)Ƣ¤Rs
[^[žęŞ ÁÄ ťąĹϟ̪śŞIČ~ČçŽ^Ćč`łę˝ĚŞnÜč [vJE^[ÍŽžŠçFORśĹŕIđgÁ˝Ć˘¤đjŞ é ęűĹĚĚBASICžęĹ͡×ÄĚĎŞŔ^Ƣ¤ĚŞî{dlžÁ˝ĚĹAIđg¤ÓĄÍ ÜčČŠÁ˝ŻÇA FORTRANɲ꽢㪍űđ^ľÄťĚÜÜč
ľ˝ Ƣ¤NńčĚĚb
184 źOFftHgĚźłľłń [2017/11/22(
) 14:34:48.52 ID:NEZKz7+Jn] żâšB }NLřubNŞfXNgbvÉ éÍ}NŞŽĚÉ ubNŞźĚtH_É éĆA}NŞŽŤÜšńB ´öŞťéű˘çÁľá˘ÜˇĹľĺ¤ŠH öÝÉR[hÍČşĚĘčšBV[gRs[ĚĹçTŤÜˇB Sub tH[() 'tH[x[XđúŞRs[ Dim fd As Date, ed As Date ' Dim x As Integer, i As Integer 'úĆV[g Dim ans 'üÍÉüÍłę˝l ans = Application.InputBox("YYYY/MM`ŽĹüÍ") fd = DateValue(ans & "/1") 'N//1@úĆČé ed = DateSerial(Year(fd), Month(fd) + 1, 0) x = Day(ed) 'Ěú For i = 1 To (x - 1) 'úŞĚV[g𜏠Sheets(1).Copy After:=Sheets(Sheets.Count) Next i 'JčÔľ Sheets(1).Range("F1").Value = DateSerial(Year(fd), Month(fd), 1) End Sub
185 źOFftHgĚźłľłń mailto:sage [2017/11/22(
) 18:32:45.15 ID:mA48vywq0.net] >>176 wA_wĆÍńíÉßľ˘Ćv¤B Ö^vO~OÄX^Cŕ éľA wĚŘžđ éöxŠŽťˇéžęŕ éBCoqĆŠAgdaĆŠB VBAÉŕťëťëKÖŞ~ľ˘ĹˇËAMSłńúŇľÄܡB
186 źOFftHgĚźłľłń mailto:sage [2017/11/22(
) 18:50:12.14 ID:k1sKIAfY0.net] ¤Ş éŠçŠĆvÁ˝
187 źOFftHgĚźłľłń [2017/11/22(
) 18:53:30.30 ID:/wgdkUUe0.net] [vJE^ÉiAjAkđg¤ć¤ÉČÁ˝ĚÍCžęĚeżŞęÔ卢B
188 źOFftHgĚźłľłń mailto:sage [2017/11/22(
) 20:12:17.87 ID:Ce6/du3cM.net] ÇąÜĹg¤H ŠŞÍnÜĹB [vĎČOĹ1śĚĎÍgíȢB
189 źOFftHgĚźłľłń mailto:sage [2017/11/22(
) 20:20:06.35 ID:t2AK8w6Da.net] oęÎkÜĹÉľ˝˘ËB ŔŰÍv¤ć¤É˘ŠČÄ´ŕnŽç˘ÜĹgÁ˝ąĆ éB Ĺŕ1śŤßéąĆŕ éB
190 źOFftHgĚźłľłń [2017/11/22(
) 20:57:00.17 ID:fITl6ULj0.net] >>182 ńÜč1śĎÍgíȢ sâńČÇđgÁÄéí NćéĆoŚéĚŞĺĎČńžć
191 źOFŚÍI`N mailto:sage [2017/11/22(
) 21:18:19.80 ID:W0SJQGiTM.net] >>177 > ťąĹϟ̪śŞIČ~ČçŽ^Ćč`łę˝ĚŞnÜč RČć... X, Y, Z ŞŽ^ĆŠ čžńí
192 źOFftHgĚźłľłń mailto:sage [2017/11/22(
) 21:46:50.38 ID:T8s4U7Y50.net] ĹßfUp^ÉĂÁÄÄCe[^[p^[âÁÄéŻÇČŠČŠ˘˘ć Ü ˘ŠÉ˝d[vľČ˘ŠÍĺží
193 źOFftHgĚźłľłń mailto:sage [2017/11/22(
) 21:49:25.89 ID:HR2X/8WF0.net] Ce[^Ć˝d[vńđÁÄÖW Á˝ÁŻH
194 źOFftHgĚźłľłń mailto:sage [2017/11/22(
) 21:55:38.62 ID:T8s4U7Y50.net] >>187 ˘âÜ AŠ˝Úă[vĎ͸éŠçw ćÁÄéŠçćíŠçńČÁÄéí ˇÜń
195 źOFftHgĚźłľłń mailto:sage [2017/11/22(
) 22:48:54.39 ID:HR2X/8WF0.net] VBAĹCe[^p^[Äďľť¤ž [vđȡAÁÄűüĚűŞÇłť¤ĹˇB
196 źOFftHgĚźłľłń mailto:sage [2017/11/22(
) 22:51:49.31 ID:HR2X/8WF0.net] űüĚű
197 źOFftHgĚźłľłń [2017/11/22(
) 23:20:15.38 ID:pTVfJfW70.net] Excel2010šB śńđřÉśńđÔˇ[Uč`ÖđěčÜľ˝B AhCÉľÄ`[ŕÉzzľć¤ĆvÁÄܡB ľÉVKubNĹgÁÄݽƹëAJ˝ŃÉĎXľÄ˘Č˘ĚÉŰśmFbZ[WŞoéć¤ÉČÁľܢܾ˝B ÖĚĚđSÄÁľÄŕŰśmFbZ[WŞĹܡB śńđÔˇžŻĚÖČĚĹAŰśmFbZ[WđoȢć¤Éľ˝˘ĚšŞAǤˇęÎć˘Ĺľĺ¤ŠB
198 źOFftHgĚźłľłń [2017/11/23(Ř) 00:02:49.97 ID:Kpe6aW6i0.net] >>191 gđŠČ˘ĆíŠçȢ Function Foo(bar As Long) Foo = bar * 2 End Function ĆěÁÄÝ˝ŻÇ J˝ŃÉĎXľÄ˘Č˘ĚÉŰśmFbZ[WŞoéć¤ÉČÁľܢܾ˝B ąĚ¸ÍNŤČŠÁ˝ć ˝ŠĘĚÉ´öŞ éĆv¤
199 źOFftHgĚźłľłń mailto:sage [2017/11/23(Ř) 06:39:11.72 ID:Y2T7cP8D0.net] >>191 ťęÁÄvˇéÉvlookupĚH
200 źOFftHgĚźłľłń [2017/11/23(Ř) 13:05:29.27 ID:IQVJTYbd0.net] >>192 ČPÉĆąńČ´śĚÖšB Function Kubun(code as string) as string if (left(code,3) = "123") then Kubun = "A" end function ifśŞĺĘɹ̍ʝľÄAhCĹzzľć¤ĆvÁÄܡB ąęđKubun.xlbĆľÄAhCtH_ÉŰśľÜľ˝B VKBookĹZA1É123AZB1É =Kubun(A1) ĆüÍľ˝Ćąë ZB1ÉAĆ\ŚłęAÖÍ@\ľÜľ˝B ťĚăŰśľ˝VKBookđJŤ˝ŕš¸Âść¤ĆˇéĆŰśmFbZ[WŞĹܡB
201 źOFftHgĚźłľłń [2017/11/23(Ř) 13:22:13.30 ID:fJlhhdGs0.net] >>194 ÄvZłęÄéŠç lÍĎťľČ˘ŻÇZĚŕeÍXVłęĢéĆ\z
202 źOFftHgĚźłľłń mailto:sage [2017/11/23(Ř) 13:42:02.49 ID:UTTVtMan0.net] >>194 AgCÁÄ *.xla śáČŠÁ˝ÁŻH *.xlb žĆČńŠ˘˘ąĆ éĚH ic[o[ÝčĆŠđLݎét@CžĆvÁÄ˝j
203 źOFftHgĚźłľłń [2017/11/23(Ř) 14:06:43.11 ID:1VQF43Qed.net] >>194 xlbÁÄČńžÁŻH xlamśáȢĚH
204 źOFftHgĚźłľłń [2017/11/23(Ř) 14:07:06.07 ID:1VQF43Qed.net] ŠÔÁ˝
205 źOFftHgĚźłľłń [2017/11/23(Ř) 14:35:16.43 ID:IQVJTYbd0.net] ˇ˘ÜšńBgŁqÍáÁ˝ŠŕľęÜšńB
206 źOFftHgĚźłľłń mailto:sage [2017/11/23(Ř) 15:49:16.74 ID:AvEDQSYF0.net] >>194 lbgĹőľÄÝéĆńÍ>>195 ĚuÄvZvĹłđžĆv¤ć ťĚ[U[č`ÖĚĹgÁÄéÖĚÉÄvZŞśˇéÖŞÜÜęĢéĚĹÍH ČPČáŢĆVKubNĚZA1É=TODAY()ĆüÍľmčAťĚubNđŰśľÂśé ťĚubNđJĆTODAYÖÉćéÄvZŞśˇé˝ß˝ŕš¸ÉÂść¤ĆľÄŕŰśmFoé ťęĆŻśąĆĹÍ
207 źOFftHgĚźłľłń [2017/11/23(Ř) 17:02:33.93 ID:IQVJTYbd0.net] >>200 192ĚĘčgÁĢéĚÍifśĆLeftÖžŻĹˇB ľÉÖĚĚđSÄÁľÄݽ̚ŞA óľÍĎíčÜšńĹľ˝B
208 źOFftHgĚźłľłń mailto:sage [2017/11/23(Ř) 17:02:38.88 ID:mWIv05A8x.net] >>115 vçȢ
209 źOFftHgĚźłľłń mailto:sage [2017/11/23(Ř) 17:22:13.82 ID:k3nQdCAx0.net] >>201 ¨ťç A1ŞĎíÁÄȢƍÉA=Kubun(A1) Ƣ¤ŽŞK¸ŻślđԡƢ¤uŰŘvŞĹŤČ˘ĚĹ B1ZŞĎXłęĢéÂ\ŤđrōȢ Ƣ¤ąĆĹĎXłęĢéiÂ\ŤŞ éjĆťfłęÄé [Uč`ÖÍg`FbNľČ˘ĹńčIžÁÄťfžČ V[gJĆŤÉÄvZˇéŠÇ¤ŠĚIvVÝčČŠÁ˝ÁŻHō莊Č
210 źOFftHgĚźłľłń [2017/11/23(Ř) 17:30:51.41 ID:JDomtUrWp.net] >>201 ťĚÖÉDebug.print śđdńŨ˘Ä ÄÎ꽊ǤŠđmFľÄÝ˝çH
211 źOFftHgĚźłľłń [2017/11/23(Ř) 19:42:47.05 ID:IQVJTYbd0.net] >>203 ŰśmFbZ[WđhŽű@ÍȢšŠËH >>204 ÖÍÄÎęĢܡŞAťęžĆ˝Šű@ čܡŠH
212 źOFftHgĚźłľłń [2017/11/23(Ř) 20:00:32.08 ID:fJlhhdGs0.net] >>205 ÖŞÄÎęéĆž¤ąĆÍĎXłęéĆž¤ąĆžŠç ŰśmF_CAOŞoéĚŞĘ savedvpeBđĎXˇéű@ĆŠ calculationvpeBđ}j
Aɡéű@ĆŠ ű@Í éŠŕľęȢŻÇ źĚâčŞNŤéć¤ÉČéŠŕľęȢ
213 źOFftHgĚźłľłń mailto:sage [2017/11/23(Ř) 23:21:24.29 ID:SB9DcOfL0.net] Application.DisplayAlerts = False ĚąĆH
214 źOFftHgĚźłľłń [2017/11/24(ŕ) 11:41:27.83 ID:h1FhSyIp0.net] żâšBExcel 2016ĹAAutofilerłę˝V[gĚŕeđQơé˝ßÉ iwsÍ[NV[gIuWFNgšj Debug.Print ws.AutoFilterMode@@@@@¨ąĚĘÍ True Debug.Print ws.AutoFilter.FilterMode@ ¨ąĚĘŕ True Dim rgFilter As Range Set rgFilter = ws.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible) For Each e In rgFilter @@Debug.Print e Next e ąńČ´śĹQĆľć¤ĆľÄéńšŞA QĆľÄéV[gĹtB^[Ş|ŠÁĢÄŕA˘ČÄŕ Żść¤ÉSi25sČç25sjŞC~fBGCgÉ\ŚłęܡB ičÜę˝ĘĚÝđ\ڎé˝ßÉÍǤľ˝çǢĚž夊H
215 źOFftHgĚźłľłń mailto:sage [2017/11/24(ŕ) 11:52:22.18 ID:BOT2k7iW0.net] >>208 Set rgFilter = ws.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
216 źOFftHgĚźłľłń mailto:sage [2017/11/24(ŕ) 12:05:42.58 ID:h1FhSyIp0.net] >>209 f˘˛ń čŞĆ¤˛´˘ÜˇB CłľÄÝÜľ˝ŞAĄxÍiÝ č/Čľ˝ęŕ1sžŻÉČčÜľ˝ ˝žŠďľ˘ěšˌc
217 źOFftHgĚźłľłń mailto:sage [2017/11/24(ŕ) 12:12:04.66 ID:h1FhSyIp0.net] Dim MaxRow As Long MaxRow = ws.Range("A" & Rows.Count).End(xlUp).row ąęđÇÁľÄA Set rgFilter = ws.Range("A1:A" & MaxRow).CurrentRegion.SpecialCells(xlCellTypeVisible) ÉľÄÝÄŕAĘÍ>>208 ĆŻśÉČčÜľ˝B ń[äš
218 źOFftHgĚźłľłń mailto:sage [2017/11/24(ŕ) 13:34:47.29 ID:bxAooAvMa.net] >>205 éÉÍ éŻÇN\ßńÇł˘ź ˇ×ÄĚZĚúl۾ƢÄAÂśéĆŤÉmFľÄlÉĎXČŻęÎsavedđtrueɾĊçÂśéAĆŠË
219 źOFftHgĚźłľłń [2017/11/24(ŕ) 16:52:13.42 ID:x6NJ51zce.net] Sheets("Sheet1").Columns(2).Insert Shift:=xlToLeft Sheets("Sheet1").Columns(2).Insert Shift:=xlToRight ąĚńsĚŽěĚˇŞŞŠçȢĚĹ á˘đłŚÄžł˘
220 źOFftHgĚźłľłń mailto:sage [2017/11/24(ŕ) 17:34:32.78 ID:HKDmIDHRH.net] >>213 ťÝĚcolumns(2)ĚgŞśÉ¸ęéŠAťĚÜÜŠAŠČH ĸÁۤžŻÇB
221 źOFftHgĚźłľłń [2017/11/24(ŕ) 19:18:42.44 ID:V+PY16OM0.net] >>206 >>212 AhCđ ŤçßܡB čŞĆ¤˛´˘Üľ˝B
222 źOFftHgĚźłľłń [2017/11/25(y) 12:49:09.41 ID:roqaXNhOa.net] GNZVBAĹˇŞ éV[gĹüÍľĘĚV[gÉ]LˇéƢ¤R[hđLüľÄ˘éĚĹˇŞ ForśĹâë¤ĆˇéƤܢŤÜšńBłXĚV[gĚsŞ11sÚŠçnÜč]LćĚV[gŞ2sÚŠçnÜéĚĹlXgđgÁÄČşĚć¤ÉR[hđgńĹݽ̚Ş2sÚĚüÍf[^Ş]LćĚf[^É2sÇÁłęľܢܾ˝B 1sÚĆ2sÚÍťęźęĘĚf[^ŞLqłęĨčťĚÜÜ]LĹŤéć¤ČR[hÉľ˝˘ĹˇB ྊľ˝çAťŕťŕforžĆžßČĚŠŕľęÜšńBżČÝÉü͡éf[^Ş11sÚŠçnÜčIíčÍ20sÚĹIíčܡB ŞĆč Ś¸JčÔľ\śĹĹŤęΊܢܚńBşLĚR[hđǤόę΢˘ŠłŚÄžł˘B Sub o^() Set syougai = Sheets("áQL^") 'V[gźÉÄwčľÄ˘éĚĹĎXľČ˘ Set itigi = Sheets("ęf[^") 'V[gźÉÄwčľÄ˘éĚĹĎXľČ˘ Const hiduke As Long = 19 'útńĚč Const gouki As Long = 17 '@ĚńĚč Const era As Long = 18 'G[R[hĚńĚč Const hyou1 As Long = 11 'áQWv\ăĚč Const kisyu As Long = 21 Const syuukei1 As Long = 21 For i = 2 To 3 For j = 11 To 12 itigi.Cells(i, 1).Value = syougai.Cells(j, hiduke).Value 'út itigi.Cells(i, 2).Value = syougai.Cells(j, gouki).Value '@ itigi.Cells(i, 3).Value = syougai.Cells(j, kisyu).Value '@í itigi.Cells(i, 4).Value = syougai.Cells(j, era).Value 'G[R[h itigi.Cells(i, 5).Value = syougai.Cells(j, syuukei1).Value 'Wvf[^ i = i + 1 j = j + 1 Next j Next i End Sub
223 źOFftHgĚźłľłń [2017/11/25(y) 13:36:20.17 ID:fp6T8Ewd0.net] rr214 lXgĚg˘űÔáÁÄéĆv¤ĚšŞÇ¤źšÎ˘˘ĚŠíŠčÜšńB
224 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 13:39:02.15 ID:Sg1k8TV00.net] >>216 itigi@śáČÄ itiji Éľë V[gźuÉÄvÍâßÄV[gźuĹvÉľë i = i + 1 Ć j = j + 1 ÍsvČĚĹÁš
225 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 13:55:20.06 ID:QhU2UVSF0.net] >>216 PÉV[gĹJns޸ęĢ鞯Čç For i = 2 to 3 itigi.Cells(i, 1).Value = syougai.Cells(i +9, hiduke).Value ČşŞ Next ޢńśáȢž夊 [vÍlXgˇéĆ ŕ¤Ě[vžŻSńľÄOɲŻéAđOĚ[vĚń žŠçAlXgĹÍÓ}ľ˝ŽěÉČçČ˘Ĺľĺ¤ >>218 ŕžÁĢéŻÇANextĹĎÉčÉ+1łęéŠçŤłČĢ˘
226 źOFftHgĚźłľłń [2017/11/25(y) 14:08:02.51 ID:fp6T8Ewd0.net] čŞĆ¤˛´˘Üľ˝B ĹŤÜľ˝B
227 źOFftHgĚźłľłń [2017/11/25(y) 15:25:06.65 ID:P/RTUJJid.net] ÄŠ hiduke ČńÄĎźg¤ç˘ČçuútvĚ٤Ş10{Üľ
228 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 17:03:29.39 ID:dlgn0p0Vx.net] ťŕťŕVBAĹâéąĆČĚŠČ ]LćĚęf[^ĚV[gĚZÉáQL^V[gĚZđQơéŽđžŻĹÇȢH
229 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 17:17:31.37 ID:4suMRhlB0.net] ĎźŽç˘ŠRÉľÄâęw
230 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 17:23:34.66 ID:Yv0FOuti0.net] >>216 lđ枾Ȫç]Lľć¤ĆˇéŠçʎé RNVČčzńČčÉęńi[ľÄŠç]Lˇéć¤ÉˇęÎlXgvçń
231 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 17:30:52.78 ID:Yv0FOuti0.net] >>223 ĎźÍĺĹľĺ ą˘ÂĚĎĚtŻűÍĹŤÉߢí ăüĚŽŠČŠÁ˝çČń̹ƞŠíŠçË[
232 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 17:32:47.09 ID:+Jz8ZPqE0.net] {lĹŤ˝ÁÄžÁÄéĚÉO_O_ž¤zEUCí
233 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 17:35:56.02 ID:ISZ6M3sb0.net] hidukeĆútĚÇżçŠI×Ćžíę˝çAhidikeđIÔB
234 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 17:37:28.74 ID:S5e4mFeJd.net] dŕeđL^ˇéGNZđ쏾˝A V[gźÍeÂlźĹtH[đJ{^ÝuB o^pÉKvÚđtH[ĹěčA]LˇéTv}Nđ˘˝ńšŞAĄăKvÚŞŚ˝čA¸Á˝čľ˝ĆŤÉlŞtH[đMÁ˝č}NŤˇŚéĚÍĘ|ČČńšŻÇAęÂđŕĚđ¤LľgpˇéÉÍǤľ˝ç˘˘ĹˇŠH eÂlĚGNZđJŤAěÁ˝{^ŤĘĚGNZđJŤtH[đJ˘Ä]LłšéĆŠH ¤ĘĚGNZđÇÝćčępĹJŤŤŢÉŠŞĚGNZđJ˘Ä]LłšéĆŠH ČńŠ¤Ü˘âčűȢšŠH
235 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 17:42:32.82 ID:Sg1k8TV00.net] >>227 ˝Şž˘˝˘ńžW
236 źOFftHgĚźłľłń [2017/11/25(y) 17:52:49.62 ID:M1jU9gED0.net] >>228 V[gÂÜčlÉ{^đěéČç ťĚ{^đNbNľ˝ÉťĚlĆŠĚlđO[oĎĆŠÉăüľÄ tH[ͤĘĚŕĚđÄŃoˇ tH[ÉüÍłę˝ŕĚđŤŢÍ łÁŤĚO[oĎđŠÄ ŤÝćĚV[gĆŠđÁčˇé
237 źOFftHgĚźłľłń [2017/11/25(y) 17:53:40.22 ID:M1jU9gED0.net] >>230 ŻÉĄĚlŞťĚGNZt@CđgíȢŞOńžŻÇ
238 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 18:31:33.42 ID:S5e4mFeJd.net] >>231 ŻÉJąĆŞ éńšćB
239 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 18:33:58.83 ID:MqKvnHus0.net] >>228 ęÂĚGNZt@CđĄlĹŻÉg¤Ě͢ë˘ëĺĎžĆv¤B ¤L¤ĘÉš¸ÂlÉá¤t@CđgÁÄŕçÁÄA dŕeL^tH_ÉüÁÄét@CSÄđÜĆßÄWvˇé}NđěÁ˝űŞćłťB
240 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 18:34:51.02 ID:Sg1k8TV00.net] >>232 f[^ÍČńĹࢢŠçDBÉŤńĹGNZÍCvbgćĘĆľÄčŘčČł˘ }WĹ
241 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 18:38:42.16 ID:Yv0FOuti0.net] GNZ̤LÍ}WĹn ^p𩼵˝űŞ˘˘
242 źOFftHgĚźłľłń [2017/11/25(y) 19:34:05.10 ID:PrfYax++p.net] >>232 ü͡éĚŞęlĹźĚlŞŠéžŻČçâčȢ ĄlŞŻÉŤŢČçGNZśáČÄ EFuAvĆŠÉľ˝űŞÇ˘Ćv¤
243 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 19:37:11.17 ID:T5+qbkCf0.net] mdbđĄ[U[ĹŻÉÍßéČçASQLĹf[^đ°ęÎŽěˇéńśáȢĚB üÍtH[ěčŞN\Ę|ł˘ŠçGNZĹâéĚÍđôĚđôČĚÍmŠžŻÇB
244 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 19:44:15.61 ID:4suMRhlB0.net] >>225 NĚ˝ßČçËé^CvHw ˛ßńŻÇđs\
245 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 19:46:52.39 ID:4suMRhlB0.net] ǤľÄŕGNZžŻĹâ轢ČçAtH[Ćf[^Ĺt@CĘŻé׍žË
246 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 20:15:23.25 ID:Yv0FOuti0.net] >>238 ˘âAíŻžë ŠŞĹeˇéÉľ˝ÁÄží
247 źOFftHgĚźłľłń [2017/11/25(y) 20:24:47.32 ID:fZkth5mu0.net] tH[{^đNbNľ˝É O[oĎĆŠÉČčAťĚlĚIDČčđL^ľÄ ŇWŠ骪Šéć¤ÉľÄ¨ Ťńžç
248 źOFNAˇé źĚlŞtH[{^đNbNľ˝ç ŇWŠÇ¤Š`FbNľÄ ŇWČçăĹÄŔsˇéć¤É_CAOđoˇ [] [ąąóęÄܡ]
249 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 20:38:06.48 ID:4suMRhlB0.net] >>240 ¨OĚíŻĆŠmçńľťĄŕȢB źlĚĎźÉP`tŻéĚÍíŻśáČÄGSžë
250 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 20:40:07.39 ID:99QBz+fh0.net] React ĹÍAf[^ANZX(CRUD)ŞÍA Flux ĚAStore Ƣ¤ŞĹA UI ĆÍŽSÉŞŁłšÄ˘é nmp ĚAimmutable pbP[WĹAf[^đĎXs\Éľ˝č
251 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 20:41:41.46 ID:4suMRhlB0.net] ú{ęŨk
252 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 21:19:48.45 ID:d0mIe/tRa.net] ĎźÍ\lŚéŻÇČB iČçŤTCgĹťĚÓĄĚpPęŠçtŻéąĆŞ˝˘B APIgŚÎĎźĚdvŤŞŞŠéB
253 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 21:53:57.63 ID:Sg1k8TV00.net] >>245 ťęÍϟƞ¤ćčřźĹľĺH ťęžÁ˝çmŠÉĺ
254 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 22:00:33.02 ID:T5+qbkCf0.net] ÂlIÉřÜŢϟɟppÍđŻéć¤ÉOęľÄéB \ńęĆíçČČéľOęˇęÎÇÝ⡢ľËB ęĘIÉAźOÉźppg¤ĚÍRpCŞ2oCgśÎľÄ˘Č˘ŞRČńĹA ξĢéRpCÉÍĎÉIÉ2oCgśĹ°˝űŞ˘˘B
255 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 23:35:03.26 ID:Yv0FOuti0.net] >>246 ęNOÉěÁ˝R[hĚ鞪ĆăüŞŠ¸ÉČńĚlŠcŹĹŤéŠMŞ éČçǤź ÜžVXenKAĚűŞ|V[ 鞯}V
256 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 23:36:51.22 ID:Yv0FOuti0.net] XĚčÔጽí >>242 ÉΡéXË
257 źOFftHgĚźłľłń mailto:sage [2017/11/25(y) 23:47:28.66 ID:Sg1k8TV00.net] >>248 ´Ş>>246 ĹžÁ˝Ó}ÍAuřźÍ垪[Jϟͽ˘ľÄĺśáȢvƢ¤ÓĄžB ťęÉ˝_ľÄ˘éĚŠČH
258 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 09:00:43.39 ID:/OBEl30Ad.net] ĺśáȢĎČńÄȢńžć ÝńČťęźęÉđŞ ÁÄAꜽɜŤÄéńžŠç
259 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 09:30:00.33 ID:ci9PkC0t0.net] >>250 ťęÍᤞë Ü Ag˘ĚÄĚeXgČńŠÍKÉâéŻÇ ˇ˘ĎźŞČĚÍĹÂĚŞĘ|žŠçČńžë¤ŻÇAťŕťŕŻśĎŞ˝xŕoÄé_Ĺt@N^OĚL˘ŞˇéíŻĹČ
260 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 11:10:58.75 ID:A1ZwwN/70.net] >>252 [JĎÉŔÁ̤ČçAăĚűŞćÄşÉsÉľ˝ŞÁÄŤČéĆvÁĢé E[JϪȢ Etmp ĆŠ a ĆŠ x ĆŠ˘¤źOĹ\ŞíŠé EKŘČźOđÂŻéąĆĹćíŠé EKŘČźOŞÂŻçęĢȢąĆĹŹˇé EKŘČźOŞÂŻçęĢéÉ੩í縏ˇé ť¤žćËH
261 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 11:15:24.53 ID:hep87Sd80.net] EKŘČźOđÂŻéąĆĹćíŠé EKŘČźOŞÂŻçęĢȢąĆĹŹˇé ŻśąĆśáËH
262 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 11:16:38.23 ID:KMInKg0R0.net] \^NľÄĎźÉvarđĚp
263 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 11:24:16.70 ID:A1ZwwN/70.net] >>254 ˘âA âęÎüPˇéÂ\ŤŞ éĚÉâÁĢȢóÔAƢ¤ąĆĹşĘÉČÁĢé
264 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 11:44:51.98 ID:DTyNodR2M.net] >>251 ęǪ́OŕćŁÁÄéŕńČ w
265 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 11:50:05.48 ID:ApNVvKeX0.net] >>253 [JϪȢĚÓĄŞćíŠçń lnľĚřÍ[JĎČńžŻÇ ťęđOľ˝ĆľÄŕAĎȾůéÍŔçęÄéľ
266 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 12:54:24.61 ID:pGcZHtwF0.net] >>258 svČĎđěéČÁÄąĆžë ťĚÜÜăüˇčᢢĚÉ>>224 Ý˝˘É˘Á˝ńĎÉi[ľ˝ŞézÍęč˘é
267 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 12:56:36.30 ID:OTnHPyYR0.net] VBAŠçÇńÇńŁęÄöJIij[ÉČÁÄŤ˝
268 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 13:04:15.84 ID:ci9PkC0t0.net] >>253 tmpĆŠAŔWnĚZ˘ĎÍŤżÁĆÖťľÄĚŞfŞĹŤÄéĆŤÉŔéŻÇË ĺĚťńČŕńśáȢŠČ >>259 zńÉi[ľÄŠç]XÍťęźęĚđƧłšéąĆĹ ĆŠçŠĘľŞćČéńžć ˝ĆŚÎAăüˇélÉđtŤĹ˝çŠĚđÁŚČŤá˘ŻČČÁ˝ĆŤČńŠÉ[vľČŞçźÚfŤoľÄéĆlXgŞ[ČÁÄÂÇŤŞáČé ťęźęƧľÄęÎÖťˇéĚŕyžľČ
269 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 13:33:08.74 ID:pGcZHtwF0.net] >>261 > ˝ĆŚÎAăüˇélÉđtŤĹ˝çŠĚđÁŚČŤá˘ŻČČÁ˝ĆŤ ťĚÉâę΢˘žŻ
270 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 14:16:29.61 ID:ci9PkC0t0.net] >>262 ęńĎɢęéąĆĹťęŞČńĚlŠAƢ¤Ě𞌡éÁÄÓĄŕ é ÓĄŞ éŠçâÁÄńžć
271 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 14:40:03.00 ID:pGcZHtwF0.net] >>263 >>216 ČçRgĹ\Ş
272 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 15:20:43.89 ID:A1ZwwN/70.net] >>258 útŞĎíÁĢéŠçIDÍᤪAłĚ´ĚžÍ>>250 Ě uřźÍ垪[Jϟͽ˘ľÄĺśáȢvƢ¤ÓĄžB ČńžćËB ÂÜčřÍĘƾġ˘ÓĄĚ[JĎÉ¢ÄęÁĢéB ťęĆAĎȾůéÍŔçęÄéľ É¢ÄÍAǢ`Ť˘ĚńĚbČĚĹAuĎȾůéç˘XR[vŞˇ˘űŞÇ˘vƢ¤ąĆłB
273 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 16:18:08.52 ID:t/ZpdAAca.net] ( EÖE)żźÂÓ°Ý ÍÍA1:C10ĚlđÜĆßÄD1:F10ÉăüˇéĆŤÉł źÚĹÔĆĘÚĹ ęUĎĹ tmp=range(A1:C10).value range(D1:F10)=tmp ĆŠ˘¤Ó¤ÉˇęÎIbP[ČĚÁÄ˝ĹČĚńH
274 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 16:56:09.10 ID:A1ZwwN/70.net] >>266 Range(A1:C10).Value = Range(D1:F10).Value ŢŻéĆv¤ŻÇH
275 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 17:06:14.25 ID:A1ZwwN/70.net] ˛ßńt >>266 Ěâ轢ąĆÍ Range(D1:F10).Value = Range(A1:C10).Value žË
276 źOFftHgĚźłľłń mailto:sage [2017/11/26(ú) 17:18:28.93 ID:ApNVvKeX0.net] lĚRs[Í Range("D1:F10") = Range("A1:C10").Value
277 źOFftHgĚźłľłń mailto:sage [2017/11/27() 09:03:15.77 ID:3l0DMD54a.net] ÍÍŞŻśČç R1.Value=R2.ValueĹsŻéČAĘÉ Set R1=R2ÍČńŠł R1=R2ޯȢRÍćíŠçń RangeIuWFNgĚftHgvpeBÁÄValuežćËH
278 źOFftHgĚźłľłń mailto:sage [2017/11/27() 12:39:02.79 ID:Hzamsy590.net] >>270 RangeĚůčĚvpeBÍAhL
găžĆItem ŔŰÍżĺÁĆgbNŞ ÁÄA_DefaultÁ̤BľvpeB ą˘ÂŞAhXwčľČ˘ęÍValueđÔˇ
279 źOFftHgĚźłľłń mailto:sage [2017/11/27() 22:21:45.18 ID:HF1f2kGW0.net] >>270 Setđg¤Ć˘¤ąĆÍIuWFNgƢ¤ąĆžźB ťęÍRangeťĚŕĚđăüˇéąĆđÓĄˇéB A1ZÉB1ZđăüČÇoć¤¤Şł˘B A1ZĚAhXŞB1? ÓĄsžžëB
280 źOFftHgĚźłľłń mailto:sage [2017/11/27() 22:54:13.44 ID:scsxtpuJM.net] indirectĚŤűÍťąÜĹž
281 źOFftHgĚźłľłń mailto:sage [2017/11/27() 23:55:45.37 ID:++h0dxh80.net] indirectŞ˘žÉđōȢ
282 źOFftHgĚźłľłń mailto:sage [2017/11/27() 23:58:34.84 ID:VuuuCAGm0.net] >>272 rangeIuWFNgĚŔĚÍAhXîńÁĹƊH
283 źOFftHgĚźłľłń mailto:sage [2017/11/28(Î) 02:02:42.04 ID:+NcnLu/Q0.net] >>275 ??? ťęžŻśáË[žëB ŞAťęŕÜŢĚÍRB
284 źOFftHgĚźłľłń mailto:sage [2017/11/28(Î) 07:27:08.64 ID:ZnyBsd4x0.net] indirectĆŠsumproductĆŠAÖČńžŻÇ˘Ü˘żćđçńćČB
285 źOFftHgĚźłľłń mailto:sage [2017/11/28(Î) 09:30:34.94 ID:PHeqRDr40.net] YężÜŚćindirectĚČńŠ
286 źOFftHgĚźłľłń [2017/11/28(Î) 09:41:03.64 ID:/j8R3q5Od.net] >>272 Set ĚśÓÍĎžŠçRĆžŚÎR A1ZŠĚÍĎśáČÄIuWFNgžŠçČ
287 źOFftHgĚźłľłń mailto:sage [2017/11/28(Î) 10:01:09.63 ID:mtOclWiza.net] >>276 ˘âÜ AZŻmđźÚZbgŞłÁۢĚÍ˝ĆČ´oĹíŠéńžŞAǤ˘¤ŽŤĹť¤ČÁÄńĚŠČ[ÁÄCÉČéíŻć
288 źOFftHgĚźłľłń mailto:sage [2017/11/28(Î) 12:43:56.96 ID:ZLcA5r8L0.net] Range()Ý˝˘ČĚÁÄÔplŞRangeNXČžŻ ÁÄRange()ŠĚÍÖžŠç
289 źOFftHgĚźłľłń mailto:sage [2017/11/28(Î) 14:06:44.13 ID:WkhkCF1D0.net] RangeIuWFNg RangevpeB RangeÖ RangeĹ` ąęŞćĘĹŤęÎŽŕř
290 źOFftHgĚźłľłń mailto:sage [2017/11/28(Î) 22:19:20.97 ID:0EijvfTXM.net] ç...çń°H (LEÖEM)b
291 źOFftHgĚźłľłń mailto:sage [2017/11/29(
) 19:36:16.84 ID:vIwO7IkJ0.net] >>281 getRangeɾƯćČ ´çíľ˘í
292 źOFftHgĚźłľłń [2017/11/30(Ř) 20:52:21.44 ID:Acf/eaNYa.net] XgđičÝĘĚXgĹPsžŻđ\ŚĹŤéć¤Éľ˝çǤľ˝ç˘˘Ĺľĺ¤ŠH íŠč⡢¤ĆAsheet1ÉA1ŠçZPOOOÜĹĚXguŤAťęđ˝çŠĚű@Ĺi sheet2ĚEĚPÉEńĚičńžPsÚđEĚQÉFńĚPsÚđ\ŚľÖđˇĆQsÚđ\ڎéć¤Éľ˝˘ I[gtBÝ˝˘ČąĆšŞ\Śľ˝˘ZŞśśÍĹ˝ťĚZžŻđ\ŚĹŤéć¤Éľ˝˘ĹˇB PsžŻČçČńĆČíŠéĚšŞĚsÉR}h{^đˇąĆĹ\ڎéű@ÍC[WĹŤÜšńB forśČçiđgŚÎ˘˘ńž夯Çâ轢ąĆĆá¤
293 źOFftHgĚźłľłń mailto:sage [2017/11/30(Ř) 21:50:06.23 ID:ECoRVPVY0.net] >>285 FindÖgÁÄőľÄqbgľ˝sđÔˇć¤ÉľÄA óŻćÁ˝sđłÉîńđćžAÖ{^ÍFindNextɾĨB Ƣ¤ĚŞęÔČPŠČB{ÍExcelśáČÄAccessĹľ¤űŞâč⡢ńžŻÇB
294 źOFftHgĚźłľłń [2017/12/01(ŕ) 14:32:31.35 ID:4uYh51s/0.net] Čşsž_đłŚÄ PČşĎđúťˇéĚŠH QČşNextjĹjžŻ[vŞIíéĚŠH RIf Hantei Then@(ŕľŕĎĚęÍBBB)@ŕÍâÓĄŞíŠçȢ SŇÉŕíŠč⡌ć Sub CorrectCode() Dim i As Long Dim j As Long Dim Hantei As Boolean 'ĎĚlđúťˇé Hantei = False For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row For j = 2 To Cells(Rows.Count, 3).End(xlUp).Row If Cells(i, 1) = Cells(j, 3) Then 'ĎÉ"True"đăüˇé Hantei = True Exit For End If Next j If Hantei Then 'ĎĚlđ"False"Éߡ Hantei = False Else 'ZĚwiFđĎŚéi`FbNˇéj Cells(i, 1).Interior.ColorIndex = 6 End If Next i End Sub
295 źOFftHgĚźłľłń mailto:sage [2017/12/01(ŕ) 14:54:37.77 ID:RC6w6Z/F0.net] >>287 Next j ̨ŚűŠçˇéĆAťŕťŕŔsĚÔŞŞŠÁĢȢć¤ČĚĹîbŠçâé𨡡ߡéB
296 źOFftHgĚźłľłń [2017/12/01(ŕ) 15:05:39.92 ID:4uYh51s/0.net] ´ČčÉú{ęóľÄÝ˝ ÔáÁĢ˝çłŚÄę VBAßÄ3úš îbÍ{ÇńĹéŠçíŠÁĢé Ďéž ĎÉúlđüęé@íŠč⡢ć¤É ĎiÍ2ŠçęÔşŠçÝÄĹÉlĚüÁÄZÜĹđ[vˇé ĎjŕŻl ŕľŕAńĆCńÉ[vˇéăĹŻśĚފŠÁ˝ç ĎÉTUREđüęé ťľÄ[vđ˛Żé ťńĹÜ˝jĚ[vđJčÔˇ ŕľŕĎŞTUREđŕÁĢ˝ç FALSEÉĎŚé@¨@ČşH ZĚ
297 źOFFđĎŚé ťńĹiĚ[vđJčÔˇ [] [ąąóęÄܡ]
298 źOFftHgĚźłľłń mailto:sage [2017/12/01(ŕ) 15:48:12.50 ID:AGjDU3vg0.net] úlđfalseɡéR trueĚÍFïƢ¤ŹęÉľ˝˘ĚĹA\ßfalseɾĨKvŞ é boolean^ĚúlÍtrueČĚĹB rĹfalseđüęéR i=1 ĚÜÜĹ j đĹIsÜĹ[vłšÄ`FbN ťĚÉ i=2 ÉľÄ j đŻśĹIsÜĹ[vłšÄ`FbNˇéĚžŞ i=1 ĹĚ`FbNŞIíÁ˝Ę true Čç i=2 ĹĚ`FbNÉőŚÄ false ÉúťˇéKvŞ é ąęÍî{IÉĹĚúťĆŻślŚű
299 źOFftHgĚźłľłń mailto:sage [2017/12/01(ŕ) 15:49:27.01 ID:Mw452gW7E.net] HanteiĚúťAj Ě[vĚźOÉuŻÎIfśĚăĚĎúťŞ˘çČČéCŞˇéEEE
300 źOFftHgĚźłľłń [2017/12/01(ŕ) 16:20:04.74 ID:4uYh51s/0.net] >>290 ČéŮÇíŠč⡢ ąĚvOđú{ęťľÄ
301 źOFftHgĚźłľłń mailto:sage [2017/12/01(ŕ) 16:42:02.13 ID:xc+Vk5Dr0.net] >>287 ĹĚĎúťÍSKvł˘B ťŕťŕą¤˘¤BooleanČĎđpÓˇéąĆÉ^âB ą¤˘¤ĎÍAǤÉŕťęŞł˘ĆvOŞgݧÄçęȢÉg¤×ŤĹAoéČçgíȢűüĹgݧÄé׍B ťľÄAâÁÄéŕeđŠęÎąńČŕĚgíȢűüĹgݧÄçęéB ą¤˘¤R[hÍâ轢ąĆđ_IÉÂßçęĢȢÉŔŐÉŤoľÄľÜÁ˝ÉČč⡢B ÍÁŤčžÁÄN\R[hB SQlÉČçńB 1.ĹĚúťÍ˘çńB éžăĚúlÍFalsežŠçB tÉúlđTrueɡéęÍúťŞKvB rĚúťÉ¢ÄÍAjÉÖˇé1ÂĚŞIíÁ˝ÉTrueÉČÁÄ˝çĚĚĘŞ¨ŠľČéŠçKvB 2.Exit ForĚąĆđžÁÄéČçĹŕŕ¤ĚFor NextŠç˛ŻéŠçĆľŠžŚńBdlžËB 3.If`ThenÍ`ŞTrueŠÇ¤ŠđťčľÄ˘éB If i=0 ThenÍiŞ0žÁ˝çĆlŚŞżžŞłľÍi=0ĚśŞTrueŠÇ¤ŠđťčľÄ˘éB C~fBGCgEBhEÉ?(10=10)ĆüÍľÄEnterL[đˇĆTrueĆČéľ?(10=5)ĆüÍľÄEnterL[đˇĆFalseÉČéB
302 źOFftHgĚźłľłń mailto:sage [2017/12/01(ŕ) 17:52:43.75 ID:P9JEW6xna.net] >>287 ŻśąĆ˘ÁÄéŠŕľęńŻÇąĚęĎHanteiŞŰXvçȢ ifśĚÉZĚFĎXĚR[hđŻÎ˘˘ źÉAąĚĎŞ˘éĆľÄŕÇńČlŞüÁÄÄŕǤšfalseɡéńžŠçifŞňľÄéÓĄŞíŠçȢ ŕÁĆž¤ĆHanteiĆŠ˘¤ĎźŞN\ߏé Čń̝芳ÁĎčíŠçń canChangeColorĆŠnotMatchValueĆŠľĆŻÎÚIŞŞŠč⡢ĚÉ
303 źOFftHgĚźłľłń mailto:sage [2017/12/01(ŕ) 19:09:05.50 ID:RC6w6Z/F0.net] AńĚeZĚîńĆvˇéŕĚŞACńÉęೊÁ˝ęA Évˇéf[^ŞťęéÜĹAńĚwiFđĎŚąŻé Ƣ¤ČĚĹHanteiŞvçȢlÉŤˇŚéÁÄᄁCŞˇéńžŻÇB
304 źOFftHgĚźłľłń mailto:sage [2017/12/01(ŕ) 19:13:14.77 ID:P9JEW6xna.net] >>295 ˛ßńAťążáńĆÇÝßÄČŠÁ˝í ęvľ˝çĎŚéƨᢾ˝ ČńÉľÄŕtOĚúťÍŞŠPcޢĆv¤ŻÇ
305 źOFftHgĚźłľłń [2017/12/01(ŕ) 19:49:15.65 ID:4uYh51s/0.net] żČÝÉąĚR[hÍVBAGLXp[göŽĚžć
306 źOFftHgĚźłľłń [2017/12/01(ŕ) 20:08:56.93 ID:4uYh51s/0.net] ˝ć¤Č\[XR[hđěÁÄÝÜľ˝ ČşžŠG[ŞĹܡ Sub test() Dim i As Long Dim j As Long Dim U As Long For i = 1 To Cells(Rows.Count, 1).End(xUp).Row For j = 1 To Cells(Rows.Count, 3).End(xUp).Row If Cells(i, 1) = Cells(j, 3) Then U = 1 End If Next j If U = 1 Then U = 0 Else Cells(j, 3).ColorIndex = 3 End If Next i End Sub
307 źOFftHgĚźłľłń mailto:sage [2017/12/01(ŕ) 22:17:56.90 ID:eRljVU/z0.net] xUp@¨ xlUp
308 źOFftHgĚźłľłń mailto:sage [2017/12/02(y) 00:44:57.80 ID:aL/u+cy30.net] >>295 mŠÉęvľ˝ŕĚŞłŠÁ˝çžŠçBooleang¤űŞŠRŠB gíČÄŕČPžŻÇŠRČBooleang¤ĚŞłľ˘íB ´ŕ¨á˘ľ˝B żČÝÉAęvš¸ÉSÄ`FbNľÄjĚ[vđIšľ˝ęĚjĚlđ˛×ęÎBoolean͢çńľAťŕťŕFindgÁÄ[v1ÂÉľÄŕ˘çńB ąĚdlđŠ˝ęAâÎąńČR[hŠČ˘ŻÇA´ŞĆľ˝ęĚzńÉÔżąŢű@ÍBooleang¤ĚŞŠRžČB żČÝÉ_Ĺ10000sÉf[^üę˝ęAąĚR[hĹ320bAFindg¤ű@Ĺ22bAzńüęéű@Ĺ9bžÁ˝B
309 źOFftHgĚźłľłń mailto:sage [2017/12/02(y) 01:37:25.51 ID:jpak6rxd0.net] ŹwśŞČńĹR~TŞPTÉČéĚHÁġ˘ÄéĚÉ ´ČçděĹŚžˇşIÁÄ§Ş˘ÄélĚć¤ÉÝŚé wKĚiKĹÂܸ˘ÄélÖĚImČńĹÍȢíČ
310 źOFftHgĚźłľłń mailto:sage [2017/12/02(y) 05:02:50.84 ID:EvURnJTn0.net] Čń¤ŠAąęŞ´ĚăyČçAt[`[g˘ÄÝÁÄž˘˝ČéČ ŕ¤t[`[gČńÄPONČăŠÄȢŻÇČ >PČşĎđúťˇéĚŠH ÁÄŕČÄŕąĚR[hČçŽŻÇ ˇ×ÄĚžęŞĎđúťľÄęéíŻĹÍȢĚĹAĎÍK¸ŠŞĹúťľëÁÄě@ŕ é ŠŞĹúťˇęÎAúlđÔáŚÄoŚÄ˘˝čľÄŕoOÉČčɢľČ(BooleanĚúlÍFalse) >QČşNextjĹjžŻ[vŞIíéĚŠH żĺÁĆżâĚ^ÓŞíŠçń ForĆNextÍPÎPĹΡéńĹANext jČçjĚ[vI[žź >RIf Hantei Then@(ŕľŕĎĚęÍBBB)@ŕÍâÓĄŞíŠçȢ IfĆThenĚÔÉĚÍAđŽĆÄÎęéŽ(śśáȢć) ŽĚlŞTrueŠFlaseĹđŞňˇé ťľÄĎ͝ꞯŎƾďč§ÂBąĚęÍĎĚŕeťĚŕĚŞŽĚl If Hantei=True ThenÁĢÄŕǢńžŻÇAiĆÉBooleanÉΡé=TrueÍj硞ƞÁĤě@ŕ é VBAÍExcelŞťđžŠçA˘ÂÜĹ˝ÁÄŕüĺŇŞęč˘éćČ ÍÁŤčžŚÎAĄÇŤĚuOĚ×ÉÍVBAÍüŠČ˘ć
311 źOFftHgĚźłľłń mailto:sage [2017/12/02(y) 08:17:12.76 ID:/lrBlva0M.net] ubNź C:\book.xlsx V[gź f[^ ŕžśp[g 1`5sÚ f[^p[g ..wb_ A6`Z6 ..f[^ A7`Z* ..f[^ sč voC_ Microsoft.ACE.OleDB.12.0 ąĚć¤ČÝčĹwb_Ćf[^đselectśĹS枡éÉÍǤˇę΢˘ĹˇŠH
312 źOFftHgĚźłľłń mailto:sage [2017/12/02(y) 08:26:37.96 ID:aL/u+cy30.net] >>301-302 ´SŇĚbŠćB VBAGLXp[gĚbśáČŠÁ˝ńŠH ĆAIf Hantei ThenđŞŠçȢÁÄžÁÄéĚÍ´oĚbĹANĚྶ᪩çȢĆv¤şB Hantei=TrueƢ¤ŽŠĚÉlŞ ÁÄAťęŞłľ˘ęÉťĚlÍ(Hantei=True)=TrueƢ¤ĘÉČÁĢéƢ¤ąĆŞ´oIÉŞŠçȢĆđĹŤńžëB SŇÍHanteiĆTrueŞľŠÁ˝ęĆ´oIÉđľÄéńžŠçB ťĚ´oĹÍIf Hantei ThenŞđoȢB
313 źOFftHgĚźłľłń mailto:sage [2017/12/02(y) 08:27:57.05 ID:cPyK88Sm0.net] >>303 SQLĹCÓĚZÍÍđ枡éęÍFROMśĹćžo˝Í¸B SELECT * FROM [ f[^$A6:Z1000] Ý˝˘Č`B ˝žťĚđžĆf[^x[XɰéOÉGNZăĹŽ`ľ˝űŞřŚ˘˘Ćv¤ŻÇB
314 źOFftHgĚźłľłń mailto:sage [2017/12/02(y) 08:31:27.69 ID:7+Ics+9V0.net] if hentai = true then ĎÔÍł`
315 źOFftHgĚźłľłń [2017/12/02(y) 09:32:03.18 ID:1C3LInkCp.net] ܸ>>287 ĚvOđŽěÉú{ęóľÄęć
316 źOFftHgĚźłľłń mailto:sage [2017/12/02(y) 11:12:44.97 ID:aL/u+cy30.net] >>307 ČPžëB AńĚťęźęĚZÉÎľÄCńÉŻślŞłŠÁ˝çFđtŻÄéB 1.A2ŠçAńĚĹIZÜĹ1Â1ÂĚZ(ČşAiơé)É¢ÄČşđJčÔˇB 2.C2ŠçCńĚĹIZÜĹÉAiĆŻślŞLÁ˝ĆŤHanteiđTrueÉÝčB 3.HanteiŞFalseĚę(CńÉAiĆľ˘lÍČŠÁ˝ę)ÍAiÉFđtŻéB 4.HanteiŞTrueĚęÍFalseÉÝčB(ÇńČęžë¤ŞFalseÉÝčľ˝˘ŞAůÉFalseČĚÉFalseÉÝčˇéKvÍł˘BPÉFalseÉúťľÄ鞯B) 5.AiĚĚZÉÎľÄJčÔľąsˇéB
317 źOFftHgĚźłľłń mailto:sage [2017/12/02(y) 11:17:14.58 ID:tnWofmmQ0.net] >>304 uVBAGLXp[gvƢ¤iĚ×đľÄ˘é´SŇĚbžëH VBAnßÄ3úƢÄéľ
318 źOFftHgĚźłľłń mailto:sage [2017/12/02(y) 11:45:34.19 ID:cPyK88Sm0.net] GLXp[gźćÁÄéÉÍoOł˘R[hČńžćČB If Not Hantei Then Cells(i, 1).Interior.ColorIndex = 6 Hantei = False Á̤ŤűŞ˝Ôń{Ó}ľ˝dlÉߢĆv¤ńžŻÇŕB
319 źOFftHgĚźłľłń mailto:sage [2017/12/02(y) 11:46:30.49 ID:ab3YxIeg0.net] Hantei Ş Hentai ÉŠŚé
320 źOFftHgĚźłľłń mailto:sage [2017/12/02(y) 14:09:12.13 ID:aL/u+cy30.net] >>309 ׾ÄézŞżâľÄéńĹ ÁÄA ąĚR[hÍť˘ÂŞ˘˝ŕńśáȢB VBAGLXp[göŽÁÄńžŠçA iĚQlŠČńŠÉÚÁÄéńžëB >>310 ˘âAąĚŤűŠĚÍÇ éćB ń˝ĚŕÔᢜáȢB
321 źOFftHgĚźłľłń mailto:sage [2017/12/02(y) 14:24:58.47 ID:fk+w59AEa.net] ĹŕíŠé ̡×Ä GLXp[g ŽSKCh ą¤˘¤^Cgt˘ÄéĚÍSŇüŻ
322 źOFftHgĚźłľłń mailto:sage [2017/12/02(y) 14:38:18.30 ID:zmHPgLHa0.net] >>312 žŠçSŇpĚ{ÉÚÁÄéR[hŞŞŠçȢƞÁÄéńžŠçąťĚ>>301 ĚcbR~ČíŻžëH {ÉÚÁÄéR[hĚ]żđľÄęƢ¤żâĹÍȢ
323 źOFftHgĚźłľłń [2017/12/03(ú) 08:02:30.09 ID:Q2bt/ZXPa.net] GNZkÉ Á˝żâĹAĆč Ś¸VBAČľśáoȢÁÄžÁƢÁ˝ńžŻÇAVBAĹXgĚičÝÁÄęxĹoé? ˝Şć1óâĚXgđoľ˝ÜÜťĚEÉÍć2ĚXgóâŞ\Śłęťęđć3óâÜĹ}EXĚ잯ĹIđłšć¤ÁÄžĆv¤ńšŻÇB C^[lbgĚIđűŽĹťńČĚŠ˝ éŻÇęŠçJˇéĚĘ|łť¤B [U[tH[Ć2łzńĹŕgŚÎĹŤéŠČH żČÝÉąĚ@\ĚźĚ ęÎłŚÄ~ľ˘ĹˇB ŠŞŕzńˇçQlĹŠśÁ˝ç˘ĹťĚKvŤŞíŠÁÄȢSŇš
324 źOFftHgĚźłľłń mailto:sage [2017/12/03(ú) 08:42:40.14 ID:U0ESQ6dD0.net] cOČŞçVBAČľĹŔťÂ\
325 źOFftHgĚźłľłń mailto:sage [2017/12/03(ú) 09:19:50.58 ID:lwbJHU3ya.net] ¨ÍYŚđ¨č˘ľÜˇ `FbN{bNXĹ`FbNüę˝çsĚłđ0ÉľA`FbNüęČŠÁ˝ç13.5Éľ˝˘ĚĹˇŞ¤ÜŽěľÄęÜšń Sub `FbN8_Click() Dim A As Boolean Dim B As Boolean If A = True Then A = Rows(43).RowHeight = 13.5 B = Rows(44).RowHeight = 13.5 Else A = Rows(43).RowHeight = 0 B = Rows(44).RowHeight = 0 End If End Sub ÇąŞÔáÁĢéĚŠ˛łŚ¨č˘ľÜˇB
326 źOFftHgĚźłľłń [2017/12/03(ú) 09:52:22.12 ID:ObUuqjZI0.net] >>317 sÍKÉĎŚÄę Private Sub CheckBox1_Click() If CheckBox1.Value Then Rows(3).RowHeight = 13.5 Rows(4).RowHeight = 13.5 Else Rows(3).RowHeight = 0 Rows(4).RowHeight = 0 End If End Sub
327 źOFftHgĚźłľłń [2017/12/03(ú) 10:04:41.09 ID:ObUuqjZI0.net] >>317 tH[Rg[ČçąÁżží Rg[źÍKÉĎŚÄę Sub `FbN2_Click() If Sheet1.CheckBoxes("`FbN 2").Value = 1 Then 'ąęĹ_Čçşđť¤ 'If "Sheet1".Shapes("`FbN 2").ControlFormat.Value = 1 Then Rows(3).RowHeight = 13.5 Rows(4).RowHeight = 13.5 Else Rows(3).RowHeight = 0 Rows(4).RowHeight = 0 End If End Sub
328 źOFftHgĚźłľłń [2017/12/03(ú) 10:11:57.07 ID:lwbJHU3ya.net] >>319 čŞĆ¤˛´˘ÜˇIIIążçĹŽěľÜľ˝II{ÉL爐´˘ÜˇIII
329 źOFftHgĚźłľłń [2017/12/03(ú) 10:42:36.13 ID:HLUSF6su0.net] rr314 ĹŤéĚH üÍKĽĚičÝśáȢćH KwťľÄXgŠçźÚşwÉÚŽi3iKç˘jľÄIđˇéű@žćH <
330 źOFftHgĚźłľłń mailto:sage [2017/12/03(ú) 11:18:12.75 ID:U0ESQ6dD0.net] ¨˘¨˘}ÉđâˇČćw www.tschoolbank.com/excel/validation-list-linkage/ ą¤˘¤ąĆśáȢ̊ć
331 źOFftHgĚźłľłń mailto:sage [2017/12/03(ú) 11:24:14.71 ID:pXIsIngK0.net] >>322 ąęĚbžŠçmçȢČçńĹéČć mevius.2ch.net/test/read.cgi/bsoft/1506938295/713
332 źOFftHgĚźłľłń mailto:sage [2017/12/03(ú) 11:39:56.54 ID:JkBkmVnb0.net] >>314 á¤B ťĚR[h˘˝zÉüŠÁÄžÁÄéĚĆAçT˘ÄézÉÍťĚR[hÍćëľČ˘ĆžÁÄéB ˝ĚáŠÍŞŠçńŞAŕÁĆťŔIČR[hɡ׍ČńžşB
333 źOFftHgĚźłľłń [2017/12/03(ú) 12:12:17.46 ID:HLUSF6su0.net] >>322 ľŠŕAíŠčɢŠŕľęȢŻÇđżáńĆ˘Ä éńžŻÇË üÍKĽĚičÝőśáȢB Kw˛ĆÉNbNIđˇéˇçßńÇł˘ĆžÁÄéńžćB ęxĚIđĹXgĚKwÚŽŞĹŤéŠÇ¤ŠđżâĺÍkš˘Ä˘Ä ŠŞÍVBAȢƞߞćĆńľ˝ŻÇVBAžĆǤČńžë¤ĆąÁż šŤČ¨ľÄÝ˝ńžŻÇA
334 źOFftHgĚźłľłń mailto:sage [2017/12/03(ú) 12:58:31.51 ID:A600L+iiM.net] >>325 łˇŞÉťęÍÇÝćęń
335 źOFftHgĚźłľłń mailto:sage [2017/12/03(ú) 13:12:35.66 ID:bN8T4SKTM.net] >>323 ą¤˘¤łXŞÂŠçXŞßaéńžź
336 źOFftHgĚźłľłń [2017/12/03(ú) 13:54:27.80 ID:HLUSF6su0.net] żáńĆAVBAĹXgĚičÝÁÄęxĹoé? ą¤˘Ä ťĚşÉ ˝Şć1óâĚXgđoľ˝ÜÜťĚEÉÍć2ĚXgóâŞ\Śłęťęđć3óâÜĹ}EXĚ잯ĹIđłšć¤ÁÄ ą¤˘Ä éńžŻÇÇÝćęȢH ľŠŕAOśÉGNZkÉ Á˝żâą¤ŕ˘Ä éľB ĹAí´í´VBAš˘ÄéĚÉíŠçȢŠ[
337 źOFftHgĚźłľłń mailto:sage [2017/12/03(ú) 15:23:42.34 ID:icSWQcwl0.net] ďĚIČR[hŞşíȢęÍOěŞČńŠS`S`žÁĢéöxɡŤŹˇ×ŤB >>323 ĚżâÍEBhEYWĚj
[o[Ý˝˘Č`đzčľÄ˘éÝ˝˘ČĚĹA OQĆÉMicrosoft ToolbarĆŠ ęÎAťęđÇÁľÄđˇéńśáȢŠČB
338 źOFftHgĚźłľłń mailto:sage [2017/12/03(ú) 15:57:02.43 ID:pXIsIngK0.net] >>328 > ˝Şć1óâĚXgđoľ˝ÜÜťĚEÉÍć2ĚXgóâŞ\Śłęťęđć3óâÜĹ}EXĚ잯ĹIđłšć¤ÁÄ }EXěÉÍNbNŕÜŢĚŞĘžĆv¤ź >>327 łĘČXľÄČÉŠyľ˘ĚŠH >>329 ÁżĚXÇßÎíŠéŻÇťŕťŕ VBA gí¸ÉĹŤéŠÇ¤ŠĚâčÉČÁÄéŠç Toolbar ]XĚbšçȢ ¨OłńąťˇŤŹˇ×Ť
339 źOFftHgĚźłľłń mailto:sage [2017/12/03(ú) 16:12:49.11 ID:icSWQcwl0.net] >>330 ÇżçŠĆ˘¤Ć>>315 ĚżâÉŚ˝`žŻÇB üą¤ĚżâÉąÁżĹŚé`ŕȢľB
340 źOFftHgĚźłľłń mailto:sage [2017/12/03(ú) 17:11:02.86 ID:JkBkmVnb0.net] >>315 ťęÍAVBAĹŕoȢĆv¤B Ƣ¤ŠWindowsĚWŽěĆá¤B ˝ć¤ČĚÍoéŠŕľęȢŻÇB R{{bNXśáČj
[ČçoéŠČB Š˝ßŞá¤ŻÇB Š˝ßđR{{bNXÉľ˝˘ČçR{{bNXgí¸ÉtH|É`ćľ˝űŞyśáË? R{{bNXžĆIđľČ˘ĆCxgśłšé̪ᄁľACxgśÉu_EŞÂśéĚŞĘíŽěžŠçB TuNXĹHITTESToĹoéŠÇ¤ŠB VBAĹÍEgCÉᄁB
341 źOFftHgĚźłľłń mailto:sage [2017/12/03(ú) 17:13:47.51 ID:JkBkmVnb0.net] >>329 j
[o[ĚŠ˝ßÍĘÚČńśáȢĚ? ´ŕj
[o[ŞťŔIžĆÍv¤ŻÇB
342 źOFftHgĚźłľłń mailto:sage [2017/12/03(ú) 18:36:56.64 ID:RpLqv7Ag0.net] >>315 KwtŤMenuĹRŻÉü͡éÁÄąĆH ŠŞžÁ˝çContextMenuĚü˘Ü˝ÍPopupĹâéŠČB Š˝ÚŤ˘ŻÇAĹşwđf~^ćŘčĚtZbgɡęÎ SplitľÄ°ŢžŻĹ˘˘ĹľĺH CellĚContextMenužĆ ĆĹWÉߡąĆlŚČ˘Ć ˘ŻČ˘ĚĹĹßÍŕÁĎçPopupΊčgÁÄéB CellĚv_EžĆ\ŚÉŔčŞ éŻÇAPopupžĆ ćĘTCY˘ÁϢÜŢŻéľAA AŕżëńCommandBarsĚA̹ƚB
343 źOFftHgĚźłľłń [2017/12/03(ú) 22:48:18.35 ID:DUCKYmEka.net] >>315 ˘ŚAPÂÚĚXgđ\ŚľÄA}EXĚĘuđťĚĘuÜĹÁÄŤÄ QÂÚĚXgđ\ŚľÄÁÄRÂÚĚXgđĹIIÉ\ڎéÝ˝˘ČB GNZĚ\ŚÝ˝˘Č´śĹAt@C¨őÝ˝˘Č´śĹˇB ˝Ş
344 źOFftHgĚźłľłń mailto:sage [2017/12/04() 00:43:15.26 ID:oPXdl+lm0.net] >>335 ˘âžŠçťęÁÄAKwj
[ĚąĆĹľĺH čßČĆąëޤĆAAA˝ĆŚÎFireFoxžĆA @\Ś > eLXgGR[fBO > ŠŽťĘ > ú{ę Ý˝˘ČBąĚčĚMenuÁÄAonMouseOverCxgĹ şwŞčÉJ˘Ä˘ŤÜˇćËB ťęĹeKwĚIđđSüÍlĆľÄg¤ąĆśáȢĚH
345 źOFftHgĚźłľłń mailto:sage [2017/12/04() 02:58:02.92 ID:Fxj9yJGL0.net] ť¤AąęÍj
[ĚŽěČńžB R{{bNXĹŔťˇéĚÍĆÄŕᄁB ŮĆńÇĚzÍăŇĹŕsÂ\Ćž¤žë¤B ťęĆŕ´ĚmçȢ˝ŠŞ éŠŕľęȢŻÇB
346 źOFftHgĚźłľłń mailto:sage [2017/12/04() 03:21:07.64 ID:oPXdl+lm0.net] R{ĚzşÉj
[ěë¤ĆˇéĆ{çę˝B Kwj
[ÉćéęüÍAŠŞĹŕg¤ŠŕĆv˘ěÁÄÝ˝ćB 1) OńFżâŇĚNćLv`đQl @A2:C2ŞńüÍ @Lv`É é}áđo^ˇé˝ßĚé`ÍÍđ"R_Master"ơéB 2)ÄoFLv`ĚA1ZÉ é "¤i"ĚśńđENbNĹŽB Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) @ @If Target.Resize(1, 1).Value = "¤i" Then @@Cancel = True @@Call Popup_FullPut(Range("R_Master"), " Â") @End If End Sub
347 źOFftHgĚźłľłń mailto:sage [2017/12/04() 03:23:18.02 ID:oPXdl+lm0.net] 3)MenuśŹ Sub Popup_FullPut(rngMst As Range, Optional strUnit As String) @Dim r As Range @Dim i As Long, j As Long, k As Long @With CommandBars.Add(Position:=msoBarPopup) @@For i = 0 To rngMst.Rows.Count - 1 @@@Set r = rngMst.Offset(0, 0).Resize(1, 1).Offset(i, 0) @@@If r.Value = "" Then Exit For @@@With .Controls.Add(msoControlPopup) @@@@.Caption = r.Value @@@@For j = 0 To rngMst.Rows.Count - 1 @@@@@Set r = rngMst.Offset(0, 1).Resize(1, 1).Offset(j, 0) @@@@@If r.Value = "" Then Exit For @@@@@With .Controls.Add(msoControlPopup) @@@@@@.Caption = r.Value @@@@@@For k = 0 To rngMst.Rows.Count - 1 @@@@@@@Set r = rngMst.Offset(0, 2).Resize(1, 1).Offset(k, 0) @@@@@@@If r.Value = "" Then Exit For @@@@@@@With .Controls.Add(msoControlButton) @@@@@@@@.Caption = r.Value & strUnit @@@@@@@@.OnAction = MkAction( "Popup_Input", rngMst.Address(external:=True),i & "|" & j & "|" & k ) @@@@@@@End With @@@@@@Next @@@@@End With @@@@Next @@@End With @@Next @@.ShowPopup @@.Delete @End With End Sub
348 źOFftHgĚźłľłń mailto:sage [2017/12/04() 03:24:02.05 ID:oPXdl+lm0.net] 4)üÍŔs Sub Popup_Input(strMst As String, strAns As String) @Dim rngR1 As Range: Set rngR1 = Range("A2") @Dim rngR2 As Range: Set rngR2 = Range("B2") @Dim rngR3 As Range: Set rngR3 = Range("C2") @ @Dim rngMst As Range: Set rngMst = Range(strMst) @Dim i As Long, j As Long, k As Long @ @i = Split(strAns, "|")(0) @j = Split(strAns, "|")(1) @k = Split(strAns, "|")(2) @ @rngR1.Value = rngMst(i + 1, 1).Value @rngR2.Value = rngMst(j + 1, 2).Value @rngR3.Value = rngMst(k + 1, 3).Value End Sub
349 źOFftHgĚźłľłń mailto:sage [2017/12/04() 03:28:37.65 ID:oPXdl+lm0.net] 5)řtŤĚOnActionR}hĚśŹÉigÁĢéÖ ńHŤßȢAAČńĹH vÍśńśŹŞh[žŠçÖgÁÄ鞯ČńžŻÇAA
350 źOFftHgĚźłľłń mailto:sage [2017/12/04() 03:36:14.51 ID:oPXdl+lm0.net] ńĹÝéB 5)řtŤĚOnActionR}hĚśŹÉigÁĢéÖ Function MkAction( strCMD
351 źOF As String, Optional arg1 As String, Optional arg2 As String ) [] [ąąóęÄܡ]
352 źOFftHgĚźłľłń mailto:sage [2017/12/04() 03:41:24.99 ID:oPXdl+lm0.net] DimśĚĆąëĹÍśŠęéÝ˝˘AA 5)řtŤĚOnActionR}hĚśŹÉigÁĢéÖ Function MkAction( strCMD As String, Optional arg1 As String, Optional arg2 As String ) Dim DQ As String: DQ = ChriRSj Dim SQ As String: SQ = ChriRXj Dim buf As String @buf = strCMD & " " @If arg1 <> "" Then buf = buf & DQ & arg1 & DQ @If arg2 <> "" Then buf = buf & "," & DQ & arg2 & DQ @MkAction = SQ & buf & SQ End Function Ťß˝ŠČH ChrÖÍÖĽH
353 źOFftHgĚźłľłń mailto:sage [2017/12/04() 03:44:57.18 ID:oPXdl+lm0.net] Ťß˝B ChrÖĹřÁŠŠÁĢ˝Ý˝˘BŔŰÍźpšB CfgÍSpXy[XÉČÁĢéĚĹϡŞKvšB
354 źOFftHgĚźłľłń mailto:sage [2017/12/04() 07:27:39.63 ID:65GoxPZl0.net] VBEÉRsyˇéĆASpXy[XÍŠŽIÉźpXy[XÉϡłęéŠçÓŻˇéKvȢ
355 źOFftHgĚźłľłń mailto:sage [2017/12/04() 07:55:50.52 ID:oPXdl+lm0.net] >>345 {šËB tnx!
356 źOFftHgĚźłľłń mailto:sage [2017/12/05(Î) 20:57:29.50 ID:dwGLun0F0.net] GNZĚVBAĹAT[o[ăÉfBNgđ쏾ÄAťąÉt@CđÚŽłš˝˘ĚšŞA MkDIRĹěŹĹŤÜšńĹľ˝BǤˇęÎć˘Ĺľĺ¤ŠH
357 źOFftHgĚźłľłń mailto:sage [2017/12/05(Î) 21:25:35.80 ID:JPkeWfWn0.net] >>347 FileSystemObjectgŚÎōܡćB T[o[¤Ě ŔÍĺävšŠH
358 źOFftHgĚźłľłń mailto:sage [2017/12/05(Î) 21:34:50.27 ID:dwGLun0F0.net] >>348 @ čŞĆ¤˛´˘ÜˇI dim myFSO as new filesystemobject myFSO.CreateFolder (T[o[ăĚÂéfBNgź)ޯܡŠH ťęĆŕJghCuđT[o[ăÉÚŽˇ×ŤĹľĺ¤ŠH
359 źOFftHgĚźłľłń mailto:sage [2017/12/06(
) 00:43:40.01 ID:D6s1mPo40.net] >>349 ľÄÝ˝çH
360 źOFftHgĚźłľłń mailto:sage [2017/12/06(
) 11:15:00.00 ID:8dpxpCOD0.net] żâšB vV[WĚĚrĹC~fBGCgEBhEđ¤ÜNAˇéű@Í čܡŠH
361 źOFftHgĚźłľłń mailto:sage [2017/12/06(
) 11:39:53.74 ID:MQk7+ulPa.net] éŠČ˘ŠĹ˘ŚÎA ȢąĆŕȢA nšÉZhL[ĹL[ÁÄ SIđľÄf[gľÄÁÄű@ŞČ
362 źOFftHgĚźłľłń [2017/12/06(
) 11:46:45.28 ID:vAzWmOhld.net] ÖWȢŻÇubNđJĆC~fBGCgEBhEăĚĎŞÁšé̢é
363 źOFftHgĚźłľłń mailto:sage [2017/12/06(
) 13:39:40.38 ID:yYTt94fN0.net] >>352 ťĚŰÍFocusđVBEÉÚľÄC~fBGCgPaneđANeBuɡéěđ˛ŢĚž夊H
364 źOFftHgĚźłľłń mailto:sage [2017/12/06(
) 16:07:50.81 ID:ykbUk5IV0.net] GNZĚVBAĹŁn\z\tgěÁĢélÁĢܡŠH
365 źOFftHgĚźłľłń mailto:sage [2017/12/06(
) 19:37:25.77 ID:sdGXOm2ja.net] >>354 fobO NA VBAĹőľ˝ç KšÉČęéŠŕć
366 źOFftHgĚźłľłń mailto:sage [2017/12/06(
) 21:02:08.65 ID:H8Zs2M1B0.net] VBAĹR{{bNXĚXgĚÝNAÁÄǤâÁÄâéńšŠH
367 źOFftHgĚźłľłń mailto:sage [2017/12/06(
) 23:12:55.48 ID:ClwZMpdPa.net] >>357 łŽÉâéĚÍ˝Şˇ˛ďľ˘B Win32APIĹR{{bNXŕĚXg{bNXÉÎľÄǤɊˇéƢ¤ąĆÉČéĆv¤B ľŠľAPÉ strCombo=ComboBox1.Text ComboBox1.Clear ComboBox1.Text=strCombo ĹeLXgŞęuNAłę˝ĚÍŠŚČ˘ŠçťŔIČÄžĆv¤B
368 źOFftHgĚźłľłń [2017/12/07(Ř) 10:43:49.53 ID:cGZzJnMw0.net] V[gĚń\ŚÝčÉÂ˘Ä Sheets(hsheet1").Visible = False ĹV[gń\ŚÝčđľ˝ĚĹˇŞłXń\ŚžĆoOÉČÁľܢܡB tđšÎÁčĚV[gĚÝđ\ŚĹŤéć¤Éľ˝˘ńšŻÇ\Śń\ŚŞ_Ĺ ń\ŚĹŕťĚR[hłˇéŠĆvÁ˝çń\ŚČĚÉń\ŚÉˇéńśáËĽĆ{çę˝B
369 źOFftHgĚźłľłń mailto:sage [2017/12/07(Ř) 10:55:46.75 ID:SgQPpSGG0.net] >>359 VisiblevpeBŞBooleanĹóÔđÔˇĚĹIfĹŞňłšé If Sheets("sheet1").Visible Then Sheets("sheet1").Visible = False Else Sheets("sheet1").Visible = True End If ऎéĆŔsˇé˝ŃÉ\Ś/ń\ŚŞŘčÖŚçęé
370 źOFftHgĚźłľłń [2017/12/07(Ř) 11:24:06.29 ID:cGZzJnMw0.net] >>35 W čŞĆ¤˛´˘ÜˇBĹŤÜľ˝B ČńĆČAifśg¤ĚŠČĆvÁ˝ĚšŞifśŞv˘ÂŠČŠÁ˝B ElseĚşđÁˇąĆĹAń\ŚÍń\ŚĚÜÜ̡év˘ĘčĚŞoÜľ˝B
371 źOFftHgĚźłľłń mailto:sage [2017/12/07(Ř) 11:50:17.69 ID:/U/N3RBoa.net] >>360 ťęžĆń\ŚĚÍ\ŚłęéŠçElse͢çËŚžëB ´ŕ Sheets("sheet1").Visible=(Not Sheets("sheet1").Visible) ĆĹlŚ˝ŻÇâÁĎIfśÉľČ˘ĆĘÚŠĆlŚ˝B
372 źOFftHgĚźłľłń mailto:sage [2017/12/07(Ř) 12:06:28.65 ID:SgQPpSGG0.net] >>361 ˝ÔńźlÉŕgíšéĚžĆv˘ÜˇŞ V[gđV[gźśáČIuWFNgźĹwčˇéĆ NŠŞčÉV[gźđĎŚÄŕÖWȢĚĹIXXB łçÉíŠč⡢IuWFNgźÉŤˇŚéĆAŽÇľB IuWFNgźÍVBEĚvpeBEBhEĚ(IuWFNgź)đŠÄËB úlÍSheet1ČĚĹ Sheets("sheet1")đSheet1ÉuŤˇŚÄल͸B >>362 ĆŠç]vȹƢ˝ŠČ[ĆvÁ˝ŻÇA{lŞCâÄęÄćŠÁ˝B
373 źOFftHgĚźłľłń [2017/12/07(Ř) 13:06:30.92 ID:cGZzJnMw0.net] rr361 ÇflĹ˝ŕíŠçȢÜÜ}NĚLqłšČŞçKvČĆąë RsyľÄĆlbgRsyĹŮĆńÇR[hſܸěÁÄéĚĹ ÜžAIuWFNgÜĹGÁÄÜšńB ĄxGÁÄÝ˝˘Ćv˘ÜˇB WW
[ÍtÉČńĚW
[ŠíŠçČČéĚKvČW
[Ććʡé˝ßÉźOÂŻÄéŻÇ sheetźÍťĚÜÜšB
374 źOFftHgĚźłľłń mailto:sage [2017/12/07(Ř) 21:42:15.17 ID:F/BnOZfeM.net] >>287 VÍeBRđQ{ŕÁĢé Q{ÚÍĆÁĨŤž(LEÖEM)b
375 źOFftHgĚźłľłń [2017/12/07(Ř) 22:24:29.94 ID:QxT2u2P9d.net] >>365 }WCÉČéí[ VÉČÁÄéĚŠA^ńĹ2iÉČÁÄńĚŠAOăÉśŚÄńĚŠH 1{ÍĘžŞAŕ¤1{ÍfRÉśŚÄńĚŠH
376 źOFftHgĚźłľłń [2017/12/08(ŕ) 00:07:26.11 ID:8mEkhztWa.net] R[hĚRgÉÂ˘Ä ÇąÜĹLüľÄܡŠ? flČŕńĹĎĚŕeŠç ĎXOĚR[hÜĹRgťľÄéŠçR[hŠĚŞˇČéB ĐŕĚVBAR[hŠéĆRgŮĆńǢÄČÄf8ĹÇÁÄŕAćíŠçȢŠçČÉŞ˘˘ŠŞŠçȢ
377 źOFftHgĚźłľłń mailto:sage [2017/12/08(ŕ) 00:27:27.18 ID:tPe4A27O0.net] ÝvłŚL`ƾĢęÎĺďÍRgvçȢB Dim SLine As Long:SLine = 3 'ÇÝŢt@CĚwb_[Şńs é× Ý˝˘ÉvOËśĹȢp[^đđŕˇéÉgÁ˝č͡éB éöxĚKnŞKvČĚĹAXebvŔsĹཾÄ銪ŠçȢiłíÉnjȢ´öŞŞŠçȢjĚĹ ęÎA ÜžRgĚKvŤÉ¢Ä_¸éiKĹÍł˘ĚĹÁÉvçȢńśáȢŠČB ŠŞĚ̢˝R[hđüCľć¤ĆľÄóŞŠçȢݽ˘ČĚđ˝xŕoąľÄnßÄRgĚv_ŞÍßéĆv¤B
378 źOFftHgĚźłľłń mailto:sage [2017/12/08(ŕ) 00:40:24.89 ID:MH/bn/0fH.net] >>367 ĎźŠçČé×gđŢĹŤéć¤ÉÂŻÄRÍĹŹŔÉľÄéB ăĹŔ¤ç˘ČçÂŻ˝Ů¤Ş˘˘Ćv¤BR[hLqľÄźăÍŽSÉíŠÁÄéŠçŔ¤|CgÉCïȢBęTÔăĆŠÉÄr
[ľÄAuRČÉâÁÄńžëHvĆřÁŠŠÁ˝Í|CgŠČB ĆExcel{ĚĚsďA§ŔńđĆŠRľÄȢĆXv˘ošČ˘ąĆŞ éB
379 źOFftHgĚźłľłń mailto:sage [2017/12/08(ŕ) 00:50:05.27 ID:04xg1k3G0.net] Rg͢˝űŞÇ˘ńžŞA]vČĚ͢çȢB ϟŪŠéŕĚÍKvȢB ŢľëǤ˘¤ŠĚRgđꪽ˘B ťęŕťąĚo[ĚxÉćéB ŻézçŞWÜÁÄéČçAąńČŕńŞŠéžëƊȢęརB
380 źOFftHgĚźłľłń mailto:sage [2017/12/08(ŕ) 08:12:21.44 ID:WX0K1LcLa.net] RgÍĚŕeÉ¢Ä;Ȣ ČşťĚđˇé̊ŠÝɢĆbL[žÁ˝čgpăâŢđžČ˘ĆŤÉRđČÉ ĎXđđR[hăÉĚÍđ̸žŻÇVBAžĆŮŠÉű@ŞČ˘ŠçŠŞŠ`[Ĺ[ß龊ȢČ
381 źOFftHgĚźłľłń mailto:sage [2017/12/08(ŕ) 08:13:11.00 ID:WX0K1LcLa.net] ĆbL[¨gbL[ gp¨dl
382 źOFftHgĚźłľłń mailto:sage [2017/12/08(ŕ) 18:16:29.95 ID:3k7CQU1Hd.net] żâšB V~
[^\tgđVBAđgÁħäľÄ˘ÜˇBXÉfđđ;ĢŤAvZĘŞGNZÉ˝f\Śłęéć¤ČŽěđľÜˇB ˝žťĚĆŤAŤżńĆĘŞ\ŚłęĢęĆćĘÉSĘŞ\Śłę¸vOŞIíÁ˝r[ÉęCÉlŞ\ŚłęéęĆŞ čܡB rĹŕđÍĘŞŞŠéć¤ŔčľÄ\ڎéć¤Éľ˝˘ĚšŞđôŞŠéű˘˝çłŚÄžł˘B ȨćĘXVÍŕżëńIšB˛×˝Ćąëdo eventsƢ¤ĚĹWindowsɧäđnˇâčűŕ éć¤ĹˇŞArĚŽěŞčŢÂ\ŤŞ čťęÍ𯽢šB
383 źOFftHgĚźłľłń mailto:sage [2017/12/08(ŕ) 19:13:35.05 ID:jJUgyerEM.net] ŠŞŕiÍŮĆńÇRgŠČ˘B KŘČ˝źĆR[hĚŹęĹÍŕžľÄAÓ}ââŤŕžÉRgđĚŞłľ˘ĆvÁÄéB ˝žAVBAĹÍŠČč׊˘ÄéBRÍAVBAĚ_ĹǤâÁÄŕÇÝĂ碊çB čÉsÔ˛Žˇéš˘Ĺ int n WorkBook book Ý˝˘ČŽńŞĹŤČ˘ľADim n As IntegerÁÄ\śŠĚŞłĘČPę˝ÄAŔńŢéĆÇŢCŞČČéB XR[vĚćŘčÉEndđg¤Ěŕ()ćčR[hÉŕęÄŠĂ碾VBEĚFÝčÍnăžľB VBAÉŔÁÄÍRgĹÇÁ˝űŞyžÁÄĹßÍvÁÄéB GNZěÉü˘˝ŕÁĆÜĆŕČžęoȢŠČB
384 źOFftHgĚźłľłń mailto:sage [2017/12/08(ŕ) 19:16:35.83 ID:wpv6YuQca.net] ť¤ŠAąąŕvbaűŽČńžÁ˝B int__________a WorkBook___book Ý˝˘É^CvĆĎźĹ\ÁŰzuˇéąĆËB
385 źOFftHgĚźłľłń mailto:sage [2017/12/08(ŕ) 19:34:22.58 ID:tPe4A27O0.net] >>374 VBAÍ鞾Ȣ̪ftHČńžŠçA˘ż˘żDimČńżáçÁÄâÁÄ˝çAťčásÖžëB
386 źOFftHgĚźłľłń [2017/12/08(ŕ) 20:15:19.13 ID:F+K0Jtko0.net] >>376 ť¤ĹÍČÄAĎĚéž\śŞVvĹÍȢƹëđžÁĢéĆv¤ćB
387 źOFftHgĚźłľłń [2017/12/08(ŕ) 20:45:47.90 ID:kuqPkTCcd.net] âęâęAÜ˝ˇ˘Öđ˘ÄľÜÁ˝
388 źOFftHgĚźłľłń mailto:sage [2017/12/09(y) 01:25:45.78 ID:naguWC2La.net] 鞾ȢzĚR[hÍÇݽȢČB éžSüęÄŠçÁĢƞ¤ŠŕB
389 źOFftHgĚźłľłń mailto:sage [2017/12/09(y) 01:27:01.02 ID:vu3Y0INla.net] >>375 VBAÉľęÄęÎAťńČĚáa´ł˘ŻÇČB
390 źOFftHgĚźłľłń mailto:sage [2017/12/09(y) 01:39:08.64 ID:vu3Y0INla.net] >>373 ťęśáRg̾椪ȢB ÇńČɧäľÄ˘éĚŠĆŠAĘÍťĚV
~[^\tgŠçćÁÄŤÄéńžë¤ŻÇAťąŠçĘŞžçęÄéĚŠĆŠĚÚ×ŞŞŠçńĆ˝ĆྦȢB
391 źOFftHgĚźłľłń [2017/12/09(y) 11:52:36.39 ID:oQ1pndO0d.net] Debug.Print ŕApplication.Statusbar ŕżĺÁĆŞdČÁÄéĆ\ŚŞ~ÜÁÄđɧ˝Č˘
392 źOFftHgĚźłľłń mailto:sage [2017/12/09(y) 13:26:29.70 ID:Px3+LsGd0.net] >>382 Debug.PrintĚÉDoEventsđŻÎˇŽÉoÍłęé
393 źOFftHgĚźłľłń [2017/12/09(y) 20:32:20.11 ID:uW7BpcjHa.net] RgÖA čŞĆ¤B ŕ¤AlÉÍŠšČ˘pžŻÇǢç˘RgŤÜÁÄéw
394 źOFftHgĚźłľłń [2017/12/10(ú) 08:18:11.50 ID:PzHPENwqa.net] VBAĚJÂŤÉÂ˘Ä fobOěĆľÄéĆ2ćĘ~ľČéńžŻÇFłńǤľÄé? vBEĚćĘĆĘíĚćĘđtXN[ĹŠ˝˘ľAVBEŕR[hŤŢćĘĚŮŠÉťÝĚĎŞŞŠéćĘĆŔsĘŞŞŠéćĘŞ~ľ˘Šçm[g1äĹâÁÄéĆćĘO`O`
395 źOFftHgĚźłľłń mailto:sage [2017/12/10(ú) 08:41:31.53 ID:2VZ9i3vi0.net] m[gÍUPStŤĚfXNgbvĆľÄgÁÄé 24C`Ěj^Éq˘Ĺ łüL[{[hĆ}EXĹě
396 źOFftHgĚźłľłń mailto:sage [2017/12/10(ú) 09:29:22.82 ID:s+zBVK9X0.net] j^2ĹâÁÄéŻÇ c[{bNXĚEBhEĆŠtH[ŞćĘĚŤEÉ\Śłę˝čľÄ nĄÉξĢȢ´đřľoľÄéB tHDČăČç1ĹŕVBEđ[ÁąÉćŻÄ¨ŻÎüśáȢĆv¤B ťęćčGfB^ĚnăÔčđǤɊľÄŮľ˘B ĄĚIDEđGéĆAVBEÍÓ˝ĚOĚI}P@\ČńžČĆv˘méB
397 źOFftHgĚźłľłń mailto:sage [2017/12/10(ú) 12:22:00.56 ID:w7IPLNC5r.net] Ü fobOŞKvÉČélČ}NČńŠąłŚńČÁĹž
398 źOFftHgĚźłľłń mailto:sage [2017/12/10(ú) 13:02:23.44 ID:rJurKCVR0.net] foOŞsvČ}NÁÄZȢƳžë
399 źOFftHgĚźłľłń [2017/12/10(ú) 19:23:33.18 ID:RKQe6ZfS0.net] oOśÉÖ^ˇévöĆľÄR[hĚĘĚÝđCÉŠŻÄ˘é ¨ SŇܽ͝ęɸéáXLĚŕżĺ >>388 đóŻÄoOŞęŘśľČ˘đzčľÄ˘é ¨ 0Š100ĹľŠ¨đlŚçęȢAXy fobOđfoOĆžÁÄ˘é ¨ K`ĚWWCŠÉ[ÉZXĚŤ˘ÓŻ˘n ˝Á˝ęžĹąąÜĹvt@COoÜľ˝
400 źOFftHgĚźłľłń [2017/12/10(ú) 20:54:53.56 ID:DUp9AezHa.net] ŚHHR[hŤŤľ˝çęxŕŽě`FbNľČ˘ĹŔˇéĚ? ˇ°[I ŮÚrĹ~ÜÁÄŠFČégĆľÄÍMśçęȢ. SÄĚŽěĚmFĆĎĚŽěÉĎČŞČ˘ŠŠéĚyľ˘. ťęÉlŞ˘˝R[hĹŽě`FbNˇéÉŕf8Kvžľ ˝žAF8AĹŕĺĎžŠç´äÁčŽěˇé@\Ĺŕ ę΢˘ĚÉ
401 źOFftHgĚźłľłń mailto:sage [2017/12/10(ú) 21:56:00.33 ID:tyDER63C0.net] ŠtŻé˝ńŃÉuobOžIobOžIvž¤ńŠ@ŠŞĚžÉáa´ł˘ńŠ
402 źOFftHgĚźłľłń mailto:sage [2017/12/10(ú) 22:02:23.86 ID:UfhTQ4hV0.net] vOŞ¨Šľ˘ČăoOÍoOž JÉÂlĹŠÂŻÄéŠçeżŞŹł˘Ć˘¤ÉßŹČ˘Ş ×Âɢ˘śáńoOĹŕ
403 źOFftHgĚźłľłń mailto:sage [2017/12/10(ú) 22:28:29.51 ID:rJurKCVR0.net] [XĹđoˇŠÇ¤ŠđfoOěĆĆÄԊǤŠĚŤEüÉľÄéÁÄČĚŠČH oOÜÝęĹ[XľÄAlbgoRĹpb`đÄéĚŞ˝čOÉČÁ˝Ş´öĹA ť¤˘¤´oŞśÜę˝ÁÄlŚéĆČŠČŠťĄ[˘ťŰžČB
404 źOFftHgĚźłľłń mailto:sage [2017/12/10(ú) 22:54:03.35 ID:5raOMeRU0.net] ¨OAAĹíęŇžë ˝Á˝ęśĹąąÜĹvt@COoÜľ˝
405 źOFftHgĚźłľłń mailto:sage [2017/12/10(ú) 23:42:33.59 ID:05lOR9eq0.net] żâšBiX`ŠŕžŻÇAźćčąąĚl˝żĚ٤ŞLevelť¤ČĚĹj Excel2013 @Win10 64bit Core i7 Mem8GB ąąúĹAutoFilterĚptH[}XŞ}ÉŤČÁ˝Ć´śÄ˘ÜˇB e[uÍ2000s*50ńöxB ÇóĆľÄÍtB^OĎÝĚV[gđSelectˇéŰÉ^COŞśľÜˇB Ĺ´öŞŞŠçČŠÁ˝ĚšŞAÝvđľ¸ÂŘčƾĢÁ˝ĘA tB^ÍÍÉüÍKĽŞÝčłęĢ˝ĚŞ´öĹľ˝B ťĚŕeÍIMEOffĚÝB tB^ŞŠŠÁÄȢęÍuÉV[gŘÖĹŤéĚÉAtB^OłęĢéĆ ŘÖÉbŇ˝łęܡB tB^ńŞŚéĆOŞ{ľÜˇB Ü˝AńvfĚćŞstßĚvfĹtB^łęĢéęĚűŞeżŞĺŤ˘ĹˇB Q`RúOÜĹąĚć¤ČąĆÍČŠÁ˝ĚÉAA˝ŠExcelÂŤŠĚŞŠíÁ˝ĚŠĆ v˘ÜȲ×éĚšŞA´öŞÍßÜšńB iÂĂj
406 źOFftHgĚźłľłń mailto:sage [2017/12/10(ú) 23:43:42.33 ID:05lOR9eq0.net] >>396 iÂĂŤj }NâV[găĚcŹĹŤÄ˘Č˘ÝvvfĚeżđOˇé˝ßÉVKxlsxt@C žܾ˝B OńF]żubNČOĚubNÍJŠČ˘B V[gPF2000s*50ńĚ\đěŹAA-ZĚPśđ_ÉßAAutoFilterÝuB @@@@ŽÝčAđtŤŽÍęŘsíȢB @@@@üÍKĽÍ]żđơéB(IME§äČľĚęĆIME-OffĚę) @@@@tB^Ŕ{ÍAQńičŢB V[gQFóV[g ]żpMacroiV[gPj Option Explicit Dim st As Single, ed As Single Private Sub Worksheet_Deactivate() st = Timer End Sub Private Sub Worksheet_Activate() ed = Timer: Debug.Print ed - st End Sub iÂĂj
407 źOFftHgĚźłľłń mailto:sage [2017/12/10(ú) 23:44:00.59 ID:05lOR9eq0.net] >>396 iÂĂŤj ]żű@F PjtB^ÝuĚV[gPđ\Ś QjCtrlL[đľČŞçAPgDn¨PgUpđAąľÄşB RjImmediateEBhEĹvŞÔđmFB ăLđTńöxŔ{ đĆĘF Case IME§äČľ{tB^Čľ@Ľ˝ĎÔFń70msec Case IME§äČľ{tB^-On@Ľ˝ĎÔFń70msec Case IME-Off{tB^Čľ@Ľ˝ĎÔFń70msec Case IME-Off{tB^-On@Ľ˝ĎÔFń7000msec żČÝÉPńtB^Oľ˝ęÍAń1400msecöxĹľ˝B ÎÇĂ@ĆľÄÍuüÍKĽg¤ČvĆČ蝤šŞAQ`RúOÜĹÍăL ťŰÍśľÄ˘ČŠÁ˝ĚĹAA´öĂ@Şm轢šB ÇČ˝ŠăLťŰŞŠéŠ˝˘çÁľá˘ÜšńŠH
408 źOFftHgĚźłľłń mailto:sage [2017/12/10(ú) 23:47:36.15 ID:VPQqZskd0.net] >>398 v˘˝éĚÍAFCUĹIMEĚŽŞ¨ŠľČÁ˝Ć˘¤ń˝Č
409 źOFftHgĚźłľłń mailto:sage [2017/12/11() 03:47:36.99 ID:/hRyHJmR0.net] >>399 Version1703ČĚĹÜžFallÍ˝ÁÄȢć¤ĹˇB
410 źOFftHgĚźłľłń mailto:sage [2017/12/11() 11:20:26.75 ID:TIu41blJ0.net] zgMSÍAbvf[gČĚŠECXČĚŠŞŠçńąĆˇéćČEEE
411 źOFftHgĚźłľłń mailto:sage [2017/12/11() 13:06:28.39 ID:NoGJiqM0H.net] >>401 żČÝÉEęĚÂŤ @Excel2010 @Win7 @Excel2013 @Win8 ĹÍÄťľÜšńĹľ˝B âÁĎčČńçŠĚUpdateŞ˝Á˝ĚŠAťęĆ੪ĹČńŠâ犾ÄéĚŠAAA
412 źOFftHgĚźłľłń mailto:sage [2017/12/11() 13:32:28.01 ID:pEROMoD00.net] ßOÉbZ[WŞoÄAvfˇéŠH@ĆŠˇŤá ŞÁ˝Šçu ˘ćvÁÄńĹCyÉÄNŽľ˝ 90Žç˘Žšľ˝ăĹ Cannot žÁÄâńĚ@ľĺ[ŕȢŠçdšĆľÄßă
413 źOFÄNŽľ˝ç Ü˝uAvfˇéŠHv ÁÄ@ŕ¤ËAAzŠĆ [] [ąąóęÄܡ]
414 źOFftHgĚźłľłń mailto:sage [2017/12/12(Î) 01:03:48.16 ID:vtwEo9S/0.net] Windows ľÂŻŞÜľ˘Abvf[gbZ[WŞoÄ ˘˘ŚľÜÁÄ˝ńžŻÇ żĺÁĆÚđŁľÄCüÁÄ˝çčÉÓľ˝ąĆÉľÄnrCXg[łęÄ˝ ťńČ´ŞqćĹěçłęÄéĚÍÚqŞęúŮÁÄ˝ç_ńÉÓľ˝ąĆÉČéVXe
415 źOFftHgĚźłľłń mailto:sage [2017/12/12(Î) 04:17:56.67 ID:VGkGFTOK0.net] żâšB LastCellÁÄČPÉćžĹŤéĚÉHomePositionÁÄąęƢÁ˝čŪȢńšŠËH SendKeysČOĹČPÉŔčľÄ枡éű@ÁÄ čܡŠH ĹŤęÎSelectľČÄć˘ű@ĹB
416 źOFftHgĚźłľłń [2017/12/12(Î) 11:56:45.28 ID:R9+tEHmjd.net] ADODB.StreamĹĺŤßĚeLXgt@CđÇŢĆŤLoadFromFileŞd˘ĚĹAOpenĚřĹt@CwčľÄŠç ReadTextˇéć¤Éľ˝˘ńĹˇŞ¤Ü˘ŤÜšńB pXđťĚÜܢÄŕA"file://C:temp/data.txt"Ěć¤ČŤűđľÄŕąĆ˛ĆOpenĚĆąëſľܢܡB ǤŻÎ˘˘ńž夊H żČÝÉćŞ100sđľÇݡéĆŤĆŠÉg˘˝˘ĹˇB
417 źOFźłľ mailto:sage [2017/12/12(Î) 12:18:28.61 ID:KlMiw57eM.net] >>406 ťęČçR[h\Á˝Ů¤Ş˘ g˘ű]XŞm轢žŻČçOOę΢˘ľ
418 źOFftHgĚźłľłń [2017/12/12(Î) 12:50:26.86 ID:R9+tEHmjd.net] >>407 X}zČĚĹżĺÁĆŇÁÄÄ
419 źOFftHgĚźłľłń mailto:sage [2017/12/13(
) 11:40:21.94 ID:5F7kXiJk0.net] źOđtŻÄŰśˇéŰ ĹßgÁ˝gACehŞ ĄT`CćT`CľÎçOCƢ¤ÔĹgpđĚet@CźŞ\ŚłęܡB ąęđ\ŚłšČ˘ÝčđłŚÄžł˘B ć뾨袢˝ľÜˇB XybN Ť OS=Win10 Excel2016 OfficeĘްźŢŽÝ=1710
420 źOFftHgĚźłľłń mailto:407 [2017/12/13(
) 14:40:49.78 ID:5F7kXiJk0.net] Şˇ˘ÜšńAżâˇé׍ÂđÔáŚÜľ˝BąąÍVBAĹľ˝ËB źĹˇ˘ÄÝܡB
421 źOFftHgĚźłľłń mailto:sage [2017/12/13(
) 22:03:05.49 ID:lbNGI0B20.net] `COÉĎĚ鞪bčÉČÁÄ˝Šç´ŕęl^ž˘˝˘ uredim ĹĎĚ鞪oédlÍâßÄ~ľ˘v ĎźđÔጽÉG[ĹCtŻéć¤ÉiŠçĎĚéžđ§ľÄéńžŻÇA redim ĹzńđĎXˇéÉĎźđÔáŚÄŕ V˝ČĘĚĎľ˘łęÄG[ÉČçȢŠçCtŠČ˘ąĆŞ é zńĎĹŕéžÍ dim AvfĎXÍ redim ÁĢ¤ÉľĆ˘Äę˝çĆčÁÄâÜȢ
422 źOFftHgĚźłľłń [2017/12/13(
) 23:22:51.89 ID:b+I23nON0.net] Application.GetOpenFilename@Ĺt@CĚpXđßçęéąĆŞŞŠÁ˝ Application.GetOpenFilename Workbooks.Open.Filename:=Application.GetOpenFilename ÁÄōȢąĆŞÓĄŞíçȢ Ć Workbooks(Application.GetOpenFilename)ÁÄâéĆpXtĚĹG[ÉČÁľܤąĆŕíŠÁ˝ WorkbookIuWFNgÉKČĎđéžľÄ iơé i = Application.GetOpenFilename i.worksheet()ÁÄōȢӥŞíŠçȢ i = Workbooks.Open(filename:= ApplicationGetOpenFilename) i.worksheets() ąęČçĹŤéÓĄŞíŠçȢ ()ĹßčlđéĚÍíŠé ĹŕąĚęĚßčlÍpXtßčlĹ éŠç@Applcation.GetOpen.... ͢çȢĚĹÍHpXtßčlČçÎ i = Application.GetOpenFilename ĹŕĹŤéĚĹÍHWorkBookIuWFNgĎžŠç NŠŚçęéH
423 źOFftHgĚźłľłń mailto:sage [2017/12/13(
) 23:34:03.63 ID:fRI8/I3E0.net] ť¤˘¤žędlČĚĹ
424 źOFftHgĚźłľłń [2017/12/13(
) 23:49:56.82 ID:b+I23nON0.net] íčĆ^ĘÚÉŚÄę IuWFNgĎÉźÚpXtĚt@CźđÔżńĹG[ÉČéĚŞÓĄíŠçȢ ČńĚ˝ßĚIuWFNgĎČńž Workbooks.Open(filename:= ApplicationGetOpenFilename) ąęŕpXtĚt@CźČĚÉČńĹi[ĹŤéńžH
425 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 00:01:33.96 ID:iqnmwrCv0.net] ܸ^Ƣ¤ŕĚđđľÄžł˘ ÂŹÉAvpeBƢ¤ŕĚđđľÄžł˘ ÂŹÉAIuWFNgÉÍftHgvpeBƢ¤ŕĚŞ éĚđđľÄžł˘ ĆźOtŤřÉΡéđŕKvĹˇË VBAĹÍSetĹĚăüĆLet(đČŞľ˝)ăüĹÍÓĄŞá¤ĚĹAťęŕżáńĆćʾĞł˘ ˘ż˘żSąąĹđŕÍšńŞ ąĚŽç˘đˇęνÔńŚÍíŠéžë
426 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 00:13:48.84 ID:iqnmwrCv0.net] ÜśßɌƢÄâéŻÇ >IuWFNgĎÉźÚpXtĚt@CźđÔżńĹG[ÉČéĚŞÓĄíŠçȢ ˝Ôń¨OŞâÁÄéĚÍAťĚIuWFNgĎĚftHgvpeBÉăüľć¤Ćľ˝ ĹAťĚIuWFNgŞťęđóŻüęȢŠçG[ŞĹ˝ńžë¤Č >Workbooks.Open(filename:= ApplicationGetOpenFilename) >ąęŕpXtĚt@CźČĚÉČńĹi[ĹŤéńžH i[ĚÓĄŞŞŠçń ApplicationGetOpenFilenameiĚĘjđ˝ńÉOpenĚ(filename)řĆľÄnľÄ鞯 ApplicationGetOpenFilenameĚĘŞOpenĚfilenameřĆľÄKžŠçG[ŞoČŠÁ˝žŻ
427 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 00:14:33.99 ID:FrwGQASIx.net] pXtßčlÁ̤\ťŞŚ˘ Application.GetOpenFilenameĚßčlÍApXśńŠApXśńĚzńŠA_CAOŞLZłę˝ĆŤÉÔłęéFalseŠĚ˘¸ęŠľŠČ˘ pXtÁÄA˝ÉpXŞÁ¢ÄéĆđľÄéńžë¤ pXŞßčlťĚŕĚžë¤
428 źOFftHgĚźłľłń [2017/12/14(Ř) 00:18:35.88 ID:oVDd8Fug0.net] >>416 ÓĄŞíŠçń SŇčÉęĺpęĹÁ˝CÉČéČć
429 źOFftHgĚźłľłń [2017/12/14(Ř) 00:21:23.88 ID:oVDd8Fug0.net] >>417 pXÁÄĚÍ ¥C:̹ƞëH open]bgĚßčlŕ¥C:¢ÄéĚÉ WBIuWFNgĎÉi[ĹŤéÓĄŞíŠçȢ ęĺpęĹą˝ŚéČ íŠč⡌ë OlčÉűܾĿÖÁÄéâÂĆŻśží
430 źOFftHgĚźłľłń [2017/12/14(Ř) 00:23:38.19 ID:oVDd8Fug0.net] workbookĚIuWFNgĎĚftHgvpeBÁÄČńžć ťąđŚë ŚëÁÄžíȢƌoÄËŚĚŠć
431 źOFftHgĚźłľłń [2017/12/14(Ř) 00:24:22.55 ID:oVDd8Fug0.net] żČÝɨęÍVBAßÄ3Ô ąąÜĹĚ^âŞo鞯ˇ˛˘Ćv¤ŻÇ
432 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 00:24:26.11 ID:0XKK4N9O0.net] >>412 >Workbooks.Open.Filename:=Application.GetOpenFilename >ÁÄōȢąĆŞÓĄŞíuŠvçȢ Workbooks.Open Filename:=Application.GetOpenFilename ČçŽńžŞAťęĹÍ_H(open Ć filename ĚÔÍźpXy[X) ˝ĚŠĆžŚÎžęĚdlĆľÄ řÍsIhĹqŽŕĚĹÍȢŠçĆľŠž˘ć¤ŞČ˘ (workbooks ÍIuWFNgAopen Í\bhAfilename:=~ ÍťĚř) >i = Application.GetOpenFilename >i.worksheetusv()ÁÄōȢӥŞíŠçȢ Ďi Ş workbook^žĆľÄAApplication.GetOpenFilename ĚßčlÍworkbook^ĹÍȢB ßčlÍvariant^ČńžŻÇALZÉ false ÉČ鞯ĹAt@CŞIđłęĢęÎśńŞÔłęé Ąt@CŞIđłęÄÄŕśńŞzńĹA鞯 ťęÉAi Şworkbook^ĎČĚĹ set đtŻČ˘Ć_ i Ş variant^Ď ČçśńŠ false ŞA鞯Ĺbp workbook ĆľÄ̎;Ȣ i.worksheetusv() Á̤ĚŕAworksheetIuWFNgÍ ůÉJ˘Ä˘éubNĚV[gľŠwčoȢŠçAi ŞubNĆľÄI[vľÄČŤáR_ >i = Workbooks.Open(filename:= ApplicationGetOpenFilename) >i.worksheets() >ąęČçĹŤéÓĄŞíŠçȢ set i = Workbooks.Open(filename:= ApplicationGetOpenFilename) śáȢƎŠČ˘ć RÍOqĚƨč
433 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 00:32:01.43 ID:FrwGQASIx.net] >>419 Open\bhĚßčlÍpXĹÍČAWorkbookIuWFNgťĚŕĚž J˘Ä˘éubNĚWÜčĹ éWorkbooksRNVIuWFNgÉAřFilenameĹwčľ˝ubNđÇÁľÄAßčlƾĝĚubNťĚŕĚđÔˇž ˝ŠŞ{IɨᢾÄéžëN
434 źOFftHgĚźłľłń [2017/12/14(Ř) 00:33:36.37 ID:oVDd8Fug0.net] >>422 ¨OŞÜžíŠčâˇ˘Č ˝žľ ¨ę͡ĹÉJ˘Ä˘ét@CśáȢĆěōȢƊÍSmÁĢé IuWFNg^ĎĚOÉsetXe[ggđuąĆŕmÁĢé ÂÜč Application.GetOpenfilename t@CđJ˘˝ÍśńŞÔłęé workbook^ÉԚȢ̊H ŚÍpXtŤĚśńĹAÁÄé˝ßÉm[ž ąęŕmÁÄé Workbooks.Open filename:=Application.GetOpenfilename ąęŕmÁÄ˘é ľŠľĘĆľÄÍ t@CđIđĹJ˘˝pXtŤśńđJ Ƣ¤˝ßČ͸ ŻśpXtŤśńČĚÉworkbook^Éi[ōȢ̪ӥŞíŠçȢ
435 źOFftHgĚźłľłń [2017/12/14(Ř) 00:35:42.03 ID:oVDd8Fug0.net] >>423 ńHČńĹH msgboxĹ\ŚłęÄŕpXtŤÉČéćH
436 źOFftHgĚźłľłń [2017/12/14(Ř) 00:41:28.15 ID:oVDd8Fug0.net] Ü˝ŕÓĄsžČťŰŞNŤ˝ gŁqđwčľČŠÁ˝ĚÉJ˘˝ gŁqđwčľ˝çČşŠG[Şo˝ ČńĹžH https://i.imgur.com/lqUNtRU.jpg
437 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 00:42:52.81 ID:FrwGQASIx.net] >>420 IuWFNgÉÍAÁÉvpeBźđwčľČ˘ĹANZXˇéęÉADćIÉQĆłęévpeBŞßçęĢÄAťęđftHgvpeBĆÄÔ IuWFNg^ÉíȢf[^đăüľÄľÜ¤\śÉČÁĢéĆŤĹŕAf[^Ě^ŞftHgvpeBĚ^ÉKľÄ˘ęÎVBAÍftHgvpeBÖĚăüĆľÄđßľÄđóŻtŻé
438 źOFftHgĚźłľłń [2017/12/14(Ř) 00:44:33.92 ID:oVDd8Fug0.net] >>423 Workbooks.Open(filename:= ApplicationGetOpenFilename) ¨\C:````Ƣ¤śńŞÔłęé ApplicationGetOpenFilename ¨ąę௜ ČşOŇÍWorkbookĎÉi[ĹŤÄ ăŇÍōȢńžH
439 źOFftHgĚźłľłń [2017/12/14(Ř) 00:45:53.39 ID:oVDd8Fug0.net] >>427 ťńČŕńmÁÄéí RangeâcellsĚvalueÝ˝˘ČŕńžëH WorkbookIuWFNgĚftHgvpeBÍČńžH
440 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 00:48:20.20 ID:0XKK4N9O0.net] >>424 Ť˘ŻÇ>>412 ĚŤűśáŞŠÁÄéć¤ÉÍŠŚČ˘ set đtŻÄȢ_ĹąĚlÍŞŠÁÄȢńžČĆťfłęÄŕdűȢ ťľÄ >Application.GetOpenfilename t@CđJ˘˝ÍśńŞÔłęé ŕÔᢠApplication.GetOpenfilename ÍA ÜĹŕt@CĚpXîńđśń(˝˘Í false)ĹÔˇžŻĹ ŔŰÉubNđJŻéąĆ;Ȣ žŠçłmÉĆ Application.GetOpenfilename t@CđuIđľ˝vÍśńŞÔłęé Ƣ¤×ŤĹAťĚubNđJ˝ßÉworkbooks.open đp˘éKvŞ é
441 źOFftHgĚźłľłń [2017/12/14(Ř) 00:51:58.64 ID:oVDd8Fug0.net] >>430 set IuWFNgĎđăüˇéƹɾ¤Xe[gg
442 źOFftHgĚźłľłń [2017/12/14(Ř) 00:53:08.36 ID:oVDd8Fug0.net] >>430 t@CđJ˘˝Á̤ĚÍ Iđľ˝ÁÄÓĄČńžŞ IuWFNgĆOPEN]bgĹßÄJ ąńČĚmÁĢé
443 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 00:53:19.64 ID:0XKK4N9O0.net] >>430 ĹŕÜžsłmžÁ˝ ćčłmÉž¤Ć Application.GetOpenfilename uJŤ˝˘( é˘ÍÚŽARs[AüźAíČÇ˝çŠĚě𾽢)vt@CđuIđľ˝vÍśńŞÔłęé šË
444 źOFftHgĚźłľłń [2017/12/14(Ř) 00:55:08.87 ID:oVDd8Fug0.net] >>433 ńČŕńľÁÄéí LZłę˝çtFCX t@CđIđľ˝çpXśń
445 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 00:56:13.50 ID:0XKK4N9O0.net] >>432 ˘âAťęŞŞŠÁÄéČç˝đâčÉľÄéĚŠŞćŞŠçȢ ťęĆu]bgvśáČÄu\bhvË
446 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 00:56:39.81 ID:pIjJ7/MG0.net] ^ĘÚÉŚéńśáČÄ íčĆ^ĘÚÉŚéć¤É
447 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 00:58:18.78 ID:FrwGQASIx.net] >>420 żČÝÉworkbookIuWFNgĚftHgvpeB͜ݾȢ śÝľČ˘ŠçRAworkbook^ÉíȢf[^ÍăüōȢ
448 źOFftHgĚźłľłń [2017/12/14(Ř) 01:00:54.08 ID:oVDd8Fug0.net] >>437 śá ČńĹ workbook.openĚpXśńÍüéńšŠËŚ
449 źOF [] [ąąóęÄܡ]
450 źOFftHgĚźłľłń [2017/12/14(Ř) 01:01:13.61 ID:oVDd8Fug0.net] ąąÜĹŚČľžŞ NŕíŠçȢ̊H
451 źOFftHgĚźłľłń [2017/12/14(Ř) 01:01:34.43 ID:oVDd8Fug0.net] ¨ęĚżâÁÄVBAĚđ¢˝H
452 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 01:04:09.93 ID:0XKK4N9O0.net] żâĚÓĄŞíŠçȢńšćË ˝Ş^âČĚŠAĆŠ\ťđp˘¸ÉA set âČńŠŕČŞš¸ÉłľŽěˇéR[hĆ ŽěľČ˘RŞmč˝˘ŽŠČ˘R[hđ˘ÄÝÄŕçŚÜˇH
453 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 01:05:31.95 ID:FrwGQASIx.net] >>428 workbooksÍAworkbookNXĹÍȢ ĘĚIuWFNgĚNXž ťęŠçAłÁŤŕ˘˝ŞAOpen\bhĚßčlÍřĹwčłę˝pXđÂWorkbookIuWFNgČĚĹ ÁÄAOpen\bhÉćÁÄpXŠĚŞßÁÄéóĹÍȢ pXđÔľÄéApplicationNXĚGetOpenFilename\bhĆÍSŤŞá¤ vpeBâNXâřĚźOĹ˝ĆČbookĆŠfileĆŠtŻÎpXtĚWorkbookIuWFNgŞÔÁÄéŕĚĆŹŻľÄé椞ŞAŤżńĆćʾȢƢŻČ˘
454 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 01:13:20.35 ID:FrwGQASIx.net] >>438 Open\bhŞvˇéźOtŤřFilenameÉAGetOpenFilenameĹćžľ˝pXđÝčľÄAťĚĘVľJ˘˝WorkbookIuWFNgŞÔÁĢéŠçžć ąĚFilenameÍApplication.GetOpenFilename\bhĚßčlĹÍ éŻÇAWorkbooks.Open\bhĚßčlĹÍȢ Worksheets.Item(Index:=ActiveSheet.Name)Ý˝˘ČĆęžĆžŚÎľÍŞŠéŠH
455 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 01:13:59.17 ID:FrwGQASIx.net] >>440 ˢÄȢ T^IČSŇĚżâ
456 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 01:17:18.86 ID:LaUulqGP0.net] T^ĹÍČ˘Č áłČSŇĚżâ
457 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 01:22:45.67 ID:FrwGQASIx.net] ˝ÔńąĚżâŇÍARNVđmçȢ^CvžČA ťęŠçAŽÉÜÜęévpeBźâ\bhźđIuWFNgĚNXźĆŻęľÄ˘é^Cvžë¤
458 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 01:34:07.25 ID:n2gI2QxJ0.net] ˝ÔńnCp[NĹpXŞ\ťłę骽˘ĆąëŠçA pXŞśńĆÍŮČéf[^^đÂ˝ŠžĆ¨á˘ľÄ鞯śáȢĚH
459 źOFftHgĚźłľłń [2017/12/14(Ř) 07:32:56.86 ID:oVDd8Fug0.net] >>443 workbooks.open filename:=Application.GetOpenfilename ąĚęÍworkbooksIuWFNgÉIđľ˝pXśńŞi[łęéĚŠH žŠçworkbook^Éi[ĹŤéĚŠH
460 źOFftHgĚźłľłń [2017/12/14(Ř) 07:37:06.65 ID:oVDd8Fug0.net] >>446 ńH workbooks worksheets rows ąęÍRNVžëH RNVÍIuWFNgĚĹăĘ vpeBÍIuWFNgĚ˝H ]bgÍIuWFNgÉ˝ß á¤ŠH
461 źOFftHgĚźłľłń [2017/12/14(Ř) 07:40:17.60 ID:oVDd8Fug0.net] }WĹíŠčâˇ˘ŚŞČ˘
462 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 08:30:04.65 ID:mohvOYX1x.net] >>448 NĚž¤˘i[vÍARNVÖĚIuWFNgCX^XĚÇÁAvpeBlĚÝčAĎÖĚăüAřĚóŻnľŞ˛żá˛żáÉČÁĢéĆv¤ ܸAWorkbooksRNVÉAf[^ĚăüÍōȢ WorkbooksRNVÍWorkbookIuWFNgĚWÜčđvfÉÂRNVIuWFNgžŠç ťęŠçAWorkbooks.Open Filename:=Application.GetOpenFilenameƢ¤\śÍAWorkbook^ĚĎÉlđăüľÄ˘éíŻĹÍȢ FilenameƢ¤źOtŤĹč`łę˝Open\bhĚśń^ĚćęřÉlđnľÄ˘ÄAťĚĘĆľÄOpen\bhŞWorkbookIuWFNgđԾĢéíŻĹAIuWFNg^ĎÖĚăüĹÍȢ
463 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 08:45:33.01 ID:YV9D93CW0.net] >>449 RNVÍĹăĘśáȢ ęÔăÉ éĚÍIuWFNg
464 źOFftHgĚźłľłń [2017/12/14(Ř) 08:46:43.07 ID:QIiUylbtp.net] >>451 ˘âťńČĚľÁÄéńžŻÇ dim i string dim wb workbook application.Getopen filename:=ĹÚIĚt@CđJ ťľ˝çu¥:ÚIĚ[NubN.xlsxvŞśńĆľÄAÁÄé workbooks.open filename:=ÚIĚt@C ąęĹßÄÚIĚt@CŞJ ąąĹ{č ÇżçŕÚIĚt@CĚoXźŞÔÁčĢéĚÉ set wb = application.GetOpen filename žĆG[Ĺ set wb = workbooks.open (filename :=ÚIĚ[NubN.xlsx) ąęČçwbIuWFNg^ĎÉăüłęéÓĄŞíŠçȢ ąęđÍÁŤčŚë íŠčâˇČ
465 źOFftHgĚźłľłń [2017/12/14(Ř) 08:47:18.91 ID:QIiUylbtp.net] >>452 ęÔă Ť Ĺă ú{ęâčźľ˝Ů¤Ş˘˘
466 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 09:00:03.55 ID:n2gI2QxJ0.net] >>453 Set wb = Application.GetOpenFilename ÍAString^đWorkbook^Ě|C^Öăüľć¤ĆľÄG[f˘ÄéB Set wb = Workbooks.Open(Application.GetOpenFilename) Set wb = Workbooks.Open("ÚIĚ[NubN.xlsx") ÍAOpen\bhÉString^ĎđnľÄ˘éŠç@\ˇéB
467 źOFftHgĚźłľłń [2017/12/14(Ř) 09:02:02.66 ID:QIiUylbtp.net] >>455 workbook^Ě|C^ÁÄČÉH ąęŞíŠęΡÁŤč
468 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 09:02:04.79 ID:CHPwg0pDx.net] >>449 RNVÍIuWFNgĚĹăĘAƢ¤zŞťŕťŕÔᢠRNVÍqvfÉÇÁłęĢéf[^âIuWFNgÖĚANZXđńˇéAqvfŠçÍƧľ˝IuWFNgž XÉAWorkbooksRNVIuWFNgÍWorkbookIuWFNgĚÝđvfÉÂć¤É 犜ßĹKťłę˝KčĚRNVIuWFNg
469 źOFftHgĚźłľłń [2017/12/14(Ř) 09:05:19.87 ID:QIiUylbtp.net] >>455 WB^ĎÉśńăüÍs ]bgĚßčlĚăüÍÂ\ÁÄąĆH ČńĹH
470 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 09:05:51.56 ID:YV9D93CW0.net] >>454 ú{ꞯmÁÄÄŕžędlđłmÉྷéᄁńžć Rs
[^[ĆEĹÍuăĘvČÇĚžtÉÍÁĘČÓĄđ˝šéęŕ éľA ĆÉčŞhflžĆAžtĚÓĄŠçྷéĚŕĘ|žŠçA ŚÄăĘƢ¤PęÍđŻ˝ăĹ ČńĆČĘśÄꝤČuăvÁÄž˘űđľ˝ńžć ¨OĚÔxŞCÉüçȢŠçÜŻÁޞ Spc7ÍNGˇéí lÉ˝ŠżâˇéÍĹăÜĹĢˢȞtđgŚ
471 źOFftHgĚźłľłń [2017/12/14(Ř) 09:07:28.47 ID:QIiUylbtp.net] >>459 ¤ńą[¤ńą[
472 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 09:08:52.24 ID:CHPwg0pDx.net] >>453 ťŕťŕApplication.GetOpenFilenameÍubNđJ˘ÄubNÖĚQĆđÔˇ\bhśáČÄA[U[É_CAOćĘăĹIđłš˝t@CĚpXđÔˇ\bhČńžŞ \bhźĹŹľÄéžëN
473 źOFftHgĚźłľłń [2017/12/14(Ř) 09:11:20.55 ID:QIiUylbtp.net] >>461 ˘âľÁÄéŻÇ LZŞłę˝çtFCXžľ Iđľ˝çpXźŞÔÁÄé ˝ńžŚÎCŞˇŢńžć
474 źOFftHgĚźłľłń [2017/12/14(Ř) 09:12:47.30 ID:QIiUylbtp.net] Open]bgÍ˝žubNđJžŻžëH ˝žľ řđßčlƾĞçęé ÂÜč J˘˝t@CźŞOpen]bgŕÉ é ᤊ˘H˘˘ü˘ÁÄéH
475 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 09:13:02.91 ID:n2gI2QxJ0.net] >>458 ČńĹŕ˝ŕf[^^ŞęvˇéŠÇ¤ŠŞâčĹ ÁÄA\bhĚßčlĚ^ÍęvˇéÁÄžŻB ˝ÔńJavaScriptŠçnß˝š˘ĹFŻŞ¨ŠľČÁÄéńžë¤ŻÇA ĘÍf[^^ŞŮČéĎŻmĚăüÍoȢB
476 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 09:14:18.68 ID:CHPwg0pDx.net] ąĚżâŇÝ˝˘ČlŞžędlÉ¢Äv˘Ýâ¨á˘đľ˝Üܤp}NđgńžčˇéĆAďĐÉĆÁÄŔfČžŻČńžćČ ěÁ˝}NđźlƤLľČ˘ąĆđFéĚÝ
477 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 09:20:19.35 ID:CHPwg0pDx.net] >>462 ťę´ŞŤĚ¤ŕžľ˝ąĆžćËw IuWFNg^ĎÉGetOpenFilenameŠçÔÁ˝śń^f[^âf[^zńđÝčľć¤ĆľÄéĚŞ¨Šľ˘ńžŞw f[^^ĆŠęńwńžűŞÇ˘Ćv¤ć ťęŠçÖŤžŻÇAtF[XśáČÄAtHXAtH[XAt@XĚ˝ęŠĚ\LɾȢĆAFalse̹ƞĆđľÄŕçŚČ˘ąĆŞ˝˘Ćv¤ć
478 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 09:25:08.03 ID:CHPwg0pDx.net] >>463 řĚśńÍßčlÉČçȢ OpenĚßčlÍWorkbookIuWFNgĚŔĚž WorkbookIuWFNgĚŔĚĆpXśńÍCR[śáȢ ťęŠçA]bgśáČÄ\bhČ ńÜčÁĽIČžtĂŠ˘ľÄéĆ]bgNĆ tF[XNĆŠÄÎę˝čˇéŠŕľęȢŠçCđtŻČć
479 źOFftHgĚźłľłń [2017/12/14(Ř) 09:30:34.82 ID:QIiUylbtp.net] >>467 ŔĚĹČÉHÇąëÇąëĹ⍿âľËŚĆ˘ŻËŚĚŠć
480 źOFftHgĚźłľłń [2017/12/14(Ř) 09:31:25.92 ID:QIiUylbtp.net] >>464 ĎŻmH workbook^ ĆÍ˝H ąęŕ⍿â
481 źOFftHgĚźłľłń [2017/12/14(Ř) 09:32:51.20 ID:QIiUylbtp.net] >>466 f[^^ĚQly[WÍH ĹŕíŠéâÂ
482 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 12:17:27.13 ID:7XekaZVWx.net] >>470 ťĚž˘űÍÉξĸ瞟]bgN WordâPowerPointĚVBAĆáÁÄExcel͢Excel VBA f[^ ^vĹOOęÎ
éŮÇîńŞoÄéŠçADŤČy[WđÇńĹoźľÄŤ˝ç˘˘ł CX^XŕOOÁÄݽ碢ć
483 źOFźłľ mailto:sage [2017/12/14(Ř) 12:34:50.44 ID:DWbie50BM.net] >>468 WorkbookĚŔĚĆÍJ˘ÄŔsľÄ˘éGNZubN̹ƞćBubNÍVBAŞÇľÄ˘éăĚf[^ĹÍȢÁÄąĆBťąÉANZXˇé×ĚîńžŻŞWorkbook^ĎÉÍi[łęĢéB ąęČăÍOOÁ˝Ů¤Ş˘˘ČB]bgżáńÉÍžtžŻĹÍʜȢݽ˘žľB
484 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 12:36:44.73 ID:bra/P7/Ad.net] ǤlŚÄ๢ÂÍ^ŕś@ŕßčlŕ
485 źOFđĹŤÄȢžŻžë [] [ąąóęÄܡ]
486 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 12:45:31.15 ID:PlqHEg1vH.net] CX^XÍ¨ŠŻÄ3ŞĹŽŹˇéć (LEÖEM)b
487 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 13:37:10.14 ID:D0PQd/9/a.net] ĚnžÄ˝ŚŞŮľ˘ČçIuWFNgwü ˝čĚ{ÇńžűŞ˘˘ńśáËŚĚ łmÉÍIuWFNgwüśáȢŻÇNXĆCX^X(âťęÉÁ¢Äé\bhâvpeB)ĚÖWđđˇéÉÍťęŞÍâšží ąąÍłČśáȢŠç
488 źOFftHgĚźłľłń [2017/12/14(Ř) 14:17:01.84 ID:QIiUylbtp.net] ČńĹĎĎÁĆŚçęËŚĚHŞŤ˘ĚH
489 źOFftHgĚźłľłń [2017/12/14(Ř) 14:18:03.10 ID:QIiUylbtp.net] >>472 Ó[ń J˘ÄŠçi[ˇé ąęžŻžćËHlÜéÍ
490 źOFftHgĚźłľłń [2017/12/14(Ř) 14:27:22.00 ID:QIiUylbtp.net] Open\bhĹJŠČ˘Ć workbook^ÉüçȢ
491 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 14:28:58.06 ID:oiVEYMPnp.net] ťęÍĘÉߏȢ żáńĆ´öâüđłŚČ˘ĆÜ˝ŻśąĆĹlŢź
492 źOFftHgĚźłľłń [2017/12/14(Ř) 14:49:26.55 ID:QIiUylbtp.net] >>479 ťęđíŠč⡳ŚÄ ŮńĆÉíŠčâˇ
493 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 14:51:48.29 ID:/xE3TN/oa.net] >>480 łžć
494 źOFftHgĚźłľłń [2017/12/14(Ř) 15:05:19.17 ID:QIiUylbtp.net] >>481 ĘĚžtÉuŤˇŚę΢˘žëH
495 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 15:22:14.17 ID:yqG/N6/gM.net] ID:QIiUylbtpÍVBAČOĚžęmÁÄéĚH ťęĆŕExcel VBAĹßÄvO~OÉGęÜľ˝ÁÄlH ¨OĚwKxŞíŠçȢŠç¨OĹŕíŠéć¤ÉŕžĹŤČ˘ńž
496 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 15:43:20.73 ID:Sk339KZTa.net] ąąÉÍAŢĚ^âÉŚçęéć¤Čl͢ȢB ąńŇ㤽[ĚĹń°ńđ˘ęéĆǤľÄŚšéŞ¤˛ĚŠđšÂߢˇéĚÍŢ¸Šľ˘B ĹńŤÉͤĹńľÄéƍƤĹńľÄ˘Č˘ĆŤŞ éĚĹťęđč椾ĺëƢżđ×ÂĹŤéB şëƢżđ×ÂĹŤęÎÉľńˇ¤đč椾Ä...
497 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 17:51:08.32 ID:Gx1HQ3cua.net] ĺĚłŚÄŕ礧ęĚâÂŞĆéÔxśáȢŠçÜĆŕÉćčÁÄŕçŚéĆvÁÄé_ĹŞŞŤ˘
498 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 18:34:15.80 ID:Dm16MIru0.net] SŇČĚÉÔxŤ˘ŠçNGÉľ˝íB łŚÄŕç¤ÔxśáȢćËBqČçÜ [žžŻÇB
499 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 19:23:24.80 ID:IXGcMbV0a.net] ťŕťŕWorkbooksÉwčˇéĚÍGNZt@CźśáȢB ubNźžB J˘˝ubNĚubNźĆt@CźŞŻśÉČéŠç¨á˘ľÄézŕ˘éŠŕľęńŞB
500 źOFftHgĚźłľłń [2017/12/14(Ř) 19:24:50.30 ID:oezENCsV0.net] ŻśžÁ˝çt@CźĹŚŚâńw˝@§rľÄńĚHw
501 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 20:32:08.46 ID:g1PrWAQxx.net] >>487 °ç>>486 ÍWorkbooks.ItemĚřÉ¢ÄbľÄéńžë¤žŞANÉÍťĚ ˝čŞŞŠçńÝ˝˘žČ
502 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 20:33:08.02 ID:g1PrWAQxx.net] >>489 ŔżÔጽAąęÍ>>488 ś
503 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 21:01:41.06 ID:bra/P7/Ad.net] >>455 đŕĆÉlŚÄÝ˝ ¨ŕđüęéĆJbvÉW
[XŞŞęéŠĚ@đv˘Š×éńž Set wb = 'W
[XŞüéJbv Workbooks.Open( _'¨ŕđťĘľÄ{^ŞłęéĆW
[XđoˇńH Application.GetOpenFilename _'¨ŕ ) ¨¨ŕđüęÄ{^đľ˝çJbvÉW
[XŞŞęé Set wb = Application.GetOpenFilename ¨JbvÉźÚ¨ŕđüęÄůßȢƎ ٠ǤžIH
504 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 21:06:22.48 ID:zDxHi8mM0.net] >>453 ¨OoJžë ĎwbÍ˝žĚüę¨ workbook^ľŠüęçęȢüę¨ÉString^üęć¤ĆľÄńžźH ąęĹíŠçȢČ罞ĚoJžŠçńxĆéČ
505 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 21:25:56.75 ID:oezENCsV0.net] >>492 ¨ÜŚĚJA`ÍNĹŕóŻüęéĚÉwbÁÄÓOĆŢńžČ
506 źOFftHgĚźłľłń [2017/12/14(Ř) 21:27:02.90 ID:QIiUylbtp.net] >>492 ¤ń ťęÍľÁÄéć Ĺŕworkbooks.OpenĹ௜žćË śńAÁÄéćË
507 źOFftHgĚźłľłń [2017/12/14(Ř) 21:32:46.73 ID:QIiUylbtp.net] application.getOpenfilename ¨ .xlsxđIđ C:¥ .xlsx ŞAÁÄé workbooks.Open filename:=application.getOpenfilename(ÂÜčC:¥ .xlsx) ńHÇÁżŕpXtŤĚubNźśáËŚĚH ÁÄąĆđ˘ÁÄé
508 źOFźłľ mailto:sage [2017/12/14(Ř) 21:55:08.02 ID:5D+dY0yO0.net] >>495 śńĆľÄÔÁÄŤ˝Šçśń^ĆvÁÄéČçAęńworkbook^đEHb`ÉüęÄÝ˝çH c[`ŽĹIuWFNgĚAgŞŠęéŠçSRĘŕĚžĆíŠé͸
509 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 21:58:53.83 ID:zDxHi8mM0.net] >>494 o[Jw "C:\¤ńż.xlsx"Şworkbooks^ĚĎÉăüō骯Ȣžëw Ü ftHgvpeBČńÄŕĚŞßČńžŞ ÄŠAworkbooks^ĚftHgvpeBÁÄNamevpeBČńžČ(PathŠH) ÍśßÄmÁ˝íAgíńŠç
510 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 22:19:18.62 ID:cH/6/SdG0.net] Application.GetOpenFilename ¨ wčľ˝t@CĚpXyString^iłmÉÍVariantjzđćž Workbooks.Open ¨ filenameÉyString^Ĺt@CpXđwčzˇéĆ ťĚt@CđJ˘˝ĘĚyWorkbook^IuWFNgzđćž Dim str as String Dim wb as Workbook str = Application.GetOpenFilename ¨OK str = Workbooks.Open(Application.GetOpenFilename) ¨NG Set wb = Application.getOpenfilename ¨NG Set wb = Workbooks.Open(Application.GetOpenFilename) ¨OK IuWFNguEU[đŠéĆ×ÉČéć ťęźęAą¤ČÁĢé Class Application Function GetOpenFilename() Class Workbooks Function Open(Filename As String) As Workbook
511 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 23:32:44.97 ID:IXGcMbV0a.net] >>488 á¤B VKubNĚęÍt@CźśáȢžëB đoÄł˘zÉđoézüŻĚŕžđľÄŕĘÚžB ˝Ü˝ÜŻśÉČÁÄŕubNźÍt@Cźśáł˘B žŠçpXtŤžë¤ŞpXłľžë¤Şt@CÍt@CžĆlŚÄŕAťęĆÍÖWȢubNźÍá¤B C:¥abcd.xlsxƢ¤t@CĆubNźĆľÄĚabcd.xlsxĆÍ˝ĚÖAೢB ˝ć¤ÉŠŚéĚͽܽܞB žŠçC:¥abcd.xlsxÍubNźÉÍŹč椪ȢB >>495 Application.GetOpenFilenaneĹAÁÄéĚÍ"C:¥ .xlsx"Ƣ¤śžŻČB ExcelubNĆÍÖWȢt@CźžČB áŚÎ ĹKÉüÍľÄŰśľ˝t@CĹŕćÁÄąęéžëB ťęÉĘÉ"C:¥ .xlsx"ÍExcelśáȢĆJŻČ˘Ć˘¤íŻĹೢźB ťŕťŕ"C:¥ .xlsx"ÍApplication.GetOpenFilenaneĹćÁÄŤ˝Šçt@Cźžë¤ŻÇAćÁÄŤ˝ă̝̜ńÍ=t@CźĆÍŔçńB Dim wb As Workbook Dim strFile As String strFile=Application.GetOpenFilename ÁÄĚÍstrFileɽܽÜApplication.GetOpenFilenameÉćÁÄt@CźŞüÁ˝Ć˘¤ąĆĹA Set wb = Workbooks.Open(strFile) ĚstrFileŞt@CźŠÇ¤ŠÍŞŠçńB ąĚ[śÍApplication.GetOpenFilenameĚąĆČńŠmçńŠçČB ąĚ[śĚÓĄˇéĆąëÍstrFileđt@CźĆvÁÄJ˘ÄÝÄAJŻ˝çwbÉi[ˇéÁÄąĆB
512 źOFftHgĚźłľłń [2017/12/14(Ř) 23:34:29.57 ID:oVDd8Fug0.net] ZíŠčâˇÜĆßçęéâ¢ˌĚH ˘çVBAŞĹŤ˝ÁÄřŤpŹŞĹŤČ˘zÍł\ČńžŞ
513 źOFftHgĚźłľłń [2017/12/14(Ř) 23:41:16.00 ID:oVDd8Fug0.net] ´ŕ¸ÁĆROMÁÄ˝ŻÇ ą˘ÂçĚŕžÍ}WĹÓĄsžží ¨AǢüžÁÄńČ@ÁÄvÁ˝ç˘ŤČčJ^JięŞĹÄŤÄOOÁÄŕÓĄsž ą˘Âç}WŕńĚR~
ᡏÄCÂŤľŠČ˘ Iij[žÎÁŠĹŚŞČ˘ Apllcation.GetOpen ĹaaaÁ̤GNZđJ C:\aaa.xlsx@ŞÔÁÄé ľŠľWB(WorkbookIuWFNgĎɾĢéjĹÍwčōȢ Ĺŕ Workbooks.Open filename:=Apllcation.GetOpen ąęÍWorkBook^Éüé ÂÜéĆąëÇÁżŕC\aaa.xlsxÁÄśńđ
514 źOFÔľÄńśáËŚĚH˝Şż°ŚĚHÁÄąĆ ąę˘¤Ě10ńÚȢ˘Á¸wKľëCÂČ [] [ąąóęÄܡ]
515 źOFftHgĚźłľłń [2017/12/14(Ř) 23:44:38.82 ID:oVDd8Fug0.net] ą˘Âç̽ƌ qŞSđwłˇ uąęČÉHv ą˘Âç uąęͨżŞÜÜęÄÁ̤FfŞ ÁÄÔ˘AÂÜčh{ÍŞÓÜęÄ˘é żČÝÉťĚh{ÍÁĨżÉŕüÁĢévh@ ÁÄ´ś ŠÄÄJŠ瞾˝í
516 źOFftHgĚźłľłń [2017/12/14(Ř) 23:46:05.94 ID:oVDd8Fug0.net] ¨ęŞˇŤ˝˘ĚÍ ČńĹ[NubNXI[vĹwčľ˝t@CźśńžĆ[NubNĎÉi[ĹŤńžćÁÄb QbgI[vÍpXŞÂ˘Ä˘éŠçi[ōȢĚÍíŠÁ˝ íŠč⡌ë
517 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 23:55:54.24 ID:n2gI2QxJ0.net] Oɢ˝ÖźŮĚrľĆŻęl¨Čńžë¤ŻÇACÉŕżĺÁĆ׾čÄéĚŞÎŚéw
518 źOFftHgĚźłľłń mailto:sage [2017/12/14(Ř) 23:56:28.06 ID:qidVZ8HWa.net] >>503 łB RpÉRs
[^[Ƣ¤ŕĚŞžłęÄŠçĄúÜĹĚđjĆdgÝđྵȫáČçńŠçB ťľÄANÉťęđđo鞯Ě\ÍŞLéĆÍvŚČ˘ŠçB ĺďĚlÍSÄđđľÄ˘éíŻśáł˘ŞAŠŞĚpľÄ˘éÍÍŽç˘ÍđľÄ˘éB
519 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 00:06:16.08 ID:sv72SjNaa.net] >>501 ń? >Apllcation.GetOpenĹaaaÁ̤GNZđJ ąęÔá˘B JŠČ˘B t@Cźđ枡鞯B >ľŠľWB(WorkbookIuWFNgĎɾĢéjĹÍwčōȢ t@CźśáȢŠçČB ubNźđwčˇéKvŞ éB ˝Ü˝ÜôRt@CźĆŻśžŻÇpXtŤÍubNźĆÍá¤ČB >Workbooks.Open filename:=Apllcation.GetOpen ąęÍWorkBook^Éüé Workbook^ÉüÁÄéĚÍt@CźśáȢB Set WB=Workbooks.OpenĚÓĄˇéĆąëÍfilenameÉwčłę˝śńđt@CźĆЧÄÄubNđJŤAŕľźÉ^ćJąĆŞĹŤ˝çťĚubNđWBÉi[ˇéƢ¤ÓĄB
520 źOFftHgĚźłľłń [2017/12/15(ŕ) 00:18:22.73 ID:qta4Ddk+0.net] wčłę˝śńđt@CźĆЧÄÄubNđJŤ ąęŞÓĄsž GetOpenĹwčľ˝t@CźđÔˇńžëH śá ąęÍt@CźÉČéśáËŚĚŠH t@CđJŠČŠÁ˝ęÍt@XŞŠŚéąĆÍíŠé
521 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 00:22:57.61 ID:OGmesrFEa.net] >>507 GetOpenFilenameĚśĆWorkbooks.OpenĚśÍĘĚśžëB vOgŢzÍGetOpenFilenameĹćžľ˝ŕĚĆá¤ŕĚđüęéąĆŕoéB žŠçĘIÉüÁ˝ĚÍt@CźĹŕA Workbooks.OpenŠgÍťęđOńÉ;ȢžëB
522 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 00:25:39.28 ID:HZMi2rOwd.net] >>498 ąĚXĚęÔşŞíŠč⡢ńśáȢH
523 źOFftHgĚźłľłń [2017/12/15(ŕ) 00:26:48.82 ID:qta4Ddk+0.net] >>508 ú{ębľÄ hçń
524 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 00:26:50.88 ID:Ma3k2IENa.net] GetOpenFilenameÍ Ět@CźđćÁÄéąĆŕoéB WordĚt@CźđćÁÄéąĆŕoéB Workbooks.OpenĹJŻČ˘t@CźĆ˘¤ąĆŕLéľAWorkbooks.OpenĹJŻét@CźžĆľÄŕExcelĹJŠČŻęÎČçȢƢ¤ąĆೢB
525 źOFftHgĚźłľłń [2017/12/15(ŕ) 00:27:25.61 ID:qta4Ddk+0.net] >>509 IuWFNguEU[ĹÄČńžć íŠçËŚć
526 źOFftHgĚźłľłń [2017/12/15(ŕ) 00:28:29.79 ID:qta4Ddk+0.net] >>511 [ČńĆČíŠÁ˝ŠČ Open\bhĹJŻéGNZ^[NubN^Éi[Â\ ÁÄąĆH
527 źOFftHgĚźłľłń [2017/12/15(ŕ) 00:32:05.55 ID:qta4Ddk+0.net] >>498 ÂÜčž NŞž˘˝˘ĚÍ(vńľČ˘Ć_ČĚŠćAAA) application.GetOpenfilenamežĆśńĆľÄÔÁÄé workbook^ÉÍśńÍüçȢ ą¤˘¤ąĆŞž˘˝˘ĚËH
528 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 00:33:26.47 ID:JSBwNcqSa.net] >>510 ťęÍRs
[^[Ƣ¤ŕĚđÜéĹđoĢȢŠçť¤ČéB ľ§ÉÍ strFile = Application.GetOpenFilename ŞŔsłę˝ŠçstrFileÍt@CźžëĆRs
[^[ÉžÁÄŕARs
[^[Íá˘ÜˇAśńšBĆž¤B strFileÉüÁĢéśńĚt@CÍLéĚŠĆâŚÎALčܡBĆž¤B śá AstrFileÍt@CźśáËŚŠĆâŚÎAá˘ÜˇAśńšBĆž¤B Rs
|^[ÍlÔŞlŚéć¤ČÓĄđđľČ˘B č`Ę莞ŻB
529 źOFftHgĚźłľłń [2017/12/15(ŕ) 00:35:45.56 ID:qta4Ddk+0.net] >>515 Ü˝ńčǢž˘űľÄńČ
530 źOFŞŤ˘ĚŠ [] [ąąóęÄܡ]
531 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 00:39:33.42 ID:OGmesrFEa.net] >>514 ťĚđĹǢB
532 źOFftHgĚźłľłń [2017/12/15(ŕ) 00:41:12.92 ID:qta4Ddk+0.net] >>517 Ŋ繤žŚć nśáËŚĚH ŮńĆÉoJľŠ˘ËŚć đęéƢ¤ŠSzÉČÁÄé
533 źOFftHgĚźłľłń [2017/12/15(ŕ) 00:42:06.72 ID:qta4Ddk+0.net] ⍡éĆworkbook.OpenĹÔÁÄé(J)workbook^Ƣ¤ąĆË
534 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 00:42:07.75 ID:W4xtzKqva.net] >>516 NŞÇąÜĹŞŠÁÄł˘ĚŠAąÁżÍŞŠçȢńžB GXp[śáł˘ńžŠçB >>514 ĚbžÁÄ^ĆÍ˝ž?Ƣ¤ŕžŕľČŤáČçńĚŠ?ĆlŚęÎ>>515 Ěć¤ČbŕKvÉČÁÄéB
535 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 00:57:45.39 ID:2M4lhz74x.net] >>518 ĹŠçÝ[ńČť¤žÁÄéźw ć¤âŞŞÇ˘t˘ÄŤ˝ĚŠČH
536 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 01:03:08.36 ID:2M4lhz74x.net] ]bgNŕžńžńŠŞĚŞĚŤłđŠoľÄŤÄéÝ˝˘žľA ĆńúČŕÉÍp¸Šľ˘ĚÄäđcľÄÁŚé^˝ŠČ XŰśľ˝Šç˘ÂĹŕÄúoéŻÇČwww
537 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 01:23:44.47 ID:IJmI7Oq80.net] >>514 ,518 >>415 ĹÜÁłŤÉ^đđľëÁÄžÁÄńžŞ Ü ąąÜĹH˘şŞéŞŤÍFßéŻÇA˘˘Š°ńĹáŔÍŠŞĹ׾Äę
538 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 01:24:37.63 ID:JMZCHg3W0.net] ˝ŞExcel VBAüĺIČLđÇÝißęΡŽÉđĹŤ˝Ćv¤ńšŻÇ ×ĚißűŞşčťˇŹé
539 źOFftHgĚźłľłń [2017/12/15(ŕ) 09:26:34.27 ID:qta4Ddk+0.net] ĹAąĚ^đľÁŠčĆŕžľÄéĚÍÇąžH
540 źOFftHgĚźłľłń [2017/12/15(ŕ) 09:27:43.96 ID:qta4Ddk+0.net] URLĹŕČńĹŕ\ÁÄć
541 źOFftHgĚźłľłń [2017/12/15(ŕ) 10:46:54.06 ID:qta4Ddk+0.net] żČÝÉł VBAÁÄČńĹeiXŞ˘éĚH R[hđźÚMéíŻśáȢŠçoOČńÄĹȢĆv¤ŻÇ
542 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 11:01:21.94 ID:sRcKW4ZTM.net] Äß[ĚńŚľ˝R[hG[oÜčoOÎÁŠśáË[Š
543 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 11:23:22.68 ID:HChVIO9E0.net] R[hÍĎíçČÄŕWindowsĆŠExcelĆŠĆądlĆŠAÜíčŞĎíÁĢ
544 źOFftHgĚźłľłń [2017/12/15(ŕ) 11:26:16.78 ID:qta4Ddk+0.net] VBAÍyľ˘ź ´Ímos }X^[žŞVBA͢ÁłńmçńŠÁ˝ ĹIÚWĆľÄÍÓĄsžČ´ĄGČR[hđLqľ ¨ęŞŤß˝ăÍNŕΪōȢƢ¤Dz´đĄí˘˝˘ ťľÄVBEđžľÄJ`J`ľÄépŞČńĆŕmIĹŠÁą˘˘ Ůńƹꞯ̍ÁŠŻŞmŻÉÂČŞÁÄs
545 źOFftHgĚźłľłń [2017/12/15(ŕ) 11:36:34.77 ID:yfj2Ro7Gd.net] ĄÇŤVBAÉVKQüŇŞ˘éÁŤ
546 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 11:48:05.70 ID:HChVIO9E0.net] >>530 >>500
547 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 12:00:52.51 ID:IqUBh/zH0.net] >>530 ťęÍ\ÍĚá˘zĚž¤žtB \ÍĚ ézͨOŞŤßÄŕÎĹŤéć¤ÉLqˇéB
548 źOFźłľ mailto:sage [2017/12/15(ŕ) 12:08:15.31 ID:aoP9DSfXM.net] >>530 ˘âA¸ÁĆŻśżâľÄéÓčąęÁŰÁżŕmŻŞŚÄ˘éć¤ÉŠŚČ˘ńžŞ ťľÄu[É
549 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 12:11:37.98 ID:IqUBh/zH0.net] >>523 ťąđ ÁłčđoȢŠçąąÜĹÔ§|ŠÁÄéB ŢĚŞŠÁÄȢÍÝńČŞť¤˘¤ŕńžĆ ÁłčiŢĹŠŞSĹlŚéąĆB Rs
[^[ŞŠŞĆŻść¤ÉlŚÄęéĆvÁÄéB Auâ}VęĚsŠRȢEĹŠŞĆŻść¤ÉÍlŚÄęȢƢ¤ąĆđv˘mÁ˝űŞÇ˘B
550 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 12:26:43.87 ID:SvHkecGU0.net] ŕĚŚĄGĹźlĚđŞyÎČ
551 źOF˘ć¤ČR[hĚŞÚWČçA ȨłçNĚŻŕŘč¸ÉĆwĹßĢ̪dvČńžćČB lbgĹőľÄČPɊŠéć¤Čîńˇç˝ęȢcŞÚwˇŕĚśáȢćËB [] [ąąóęÄܡ]
552 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 12:27:05.72 ID:JZsZmqT4r.net] >>499 ˘âČńŠÜ˝@§rľżáÁÄéŻÇłXŻśÁÄžÁ˝Ě¨OžŠçČw ČńĹfźÉubNźĆt@CźÍá¤ÁÄžŚČ˘ńžćw ǤšşčťČŕžČńžŠçłľÄZIIÉž¨¤ĆˇńČw
553 źOFftHgĚźłľłń [2017/12/15(ŕ) 12:27:38.94 ID:qta4Ddk+0.net] >>535 ą˘ÂçĚIij[ÓŠČńÄęŘQlÉš¸ŠČđľ˝ńžŞH Wrokbook^ĎuąęÍśńžŠç´ĚűÉÍÍÜçȢćv = _ Application.GetOpenFilenameuˇÜńA´Í˝žIđłę˝t@CĚśńđÔˇžŻČńžćv Workbook^Ďu¨AWorkbooksIuWFĚOpen\bhĹJ˘ĆéâńBi[ĹŤéćv= _ Workbooks.Open (Filename:=Application.GetOpenfilename)u´ÍJ˘˝śńđt@CźĆľÄÔˇËv ąęĹǤHNĹŕíŠč⡢Ćv¤ŻÇH ŞŤˇŹËHN˝ż
554 źOFftHgĚźłľłń [2017/12/15(ŕ) 13:00:25.68 ID:yfj2Ro7Gd.net] ČńŠ 1 + 1 =2 đ u1É1đÁŚéĆ2ÉČév Ć\ťľÄé´śžČ
555 źOFźłľ mailto:sage [2017/12/15(ŕ) 13:01:13.53 ID:aoP9DSfXM.net] ŕ¤ËÁÜȢźI ̨qlǤź
556 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 13:03:33.01 ID:SvHkecGU0.net] >>539 ťŕťŕWorkbooks.Open\bhÍt@CźđԳȢŠçA u1+1 Í 2 śáȢźB´˝żÍ 1 + 1Ĺ200žB10{žź10{vÝ˝˘ČŕńB
557 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 13:34:09.09 ID:8rowC9ysa.net] >>538 íŠÁ˝INÍvOśáČÄú{ęĚ׊çnßć¤
558 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 13:34:59.69 ID:8rowC9ysa.net] ďb`ŽÉľÄęȢĆđōȢƢÁÄęęÎNŠćŁÁ˝ŠŕËw
559 źOFftHgĚźłľłń [2017/12/15(ŕ) 13:57:32.57 ID:qta4Ddk+0.net] >>541 ͢͢ubNźË ÇÁżĹࢢžëAz
560 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 14:06:04.35 ID:SvHkecGU0.net] >>544 ubNźŕԳȢćB ˝ÉšćWorkbooks.Open\bhŞźOđÔľ˝ç Set WB = Workbooks.Open(Application.GetOpenFilename) ŞŹ§ľČ˘ŠçB
561 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 14:12:36.10 ID:sRcKW4ZTM.net] ˘˘ŠçMSDNĚt@XÇńĹą˘ć
562 źOFftHgĚźłľłń [2017/12/15(ŕ) 14:42:08.62 ID:qta4Ddk+0.net] >>545 ͢͢ workbookIuWFNgđÔˇĚË Í˘Í˘ËË
563 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 14:44:22.53 ID:IqUBh/zH0.net] >>538 ťęASůÉžÁÄ˝Šçw ¨OÍÝńČŞˇńČ誊éĆąëđąęžŻˇÁ˝ŕńžľÄâÁĆŞŠÁ˝žŻB ąęÜĹĚâčĆ誳ŠÁ˝çAťęťĚÜńÜžÁÄŕđoÄł˘B ťŕťŕAoJŞÇ¤ľÄoJČĚŠČńÄąÁżÍđoȢB ¨OĆÍᤊçČB
564 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 14:47:50.40 ID:xyZ0U828M.net] \bhĚÔčlƾĽĚ^ĚÇńČIuWFNgŞÔÁÄéąĆđÓŻˇédvłŞ÷oŕíŠÁÄȢĚĹą˘ÂĚVBAXLÍąąĹĹż~ßžČ
565 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 15:09:10.26 ID:vqijPR8bp.net] Č~ÍX[ľć¤
566 źOFftHgĚźłľłń [2017/12/15(ŕ) 15:21:09.44 ID:yfj2Ro7Gd.net] Ž + ŽĚßčlŞŽČĚÉŽ / ŽĚßčlŞŽśáȢRŞíŠçȢAsžAĆ ĘXđąËélÔŕ˘éńžŠçľĺ¤ŞČ˘
567 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 19:31:32.21 ID:lmKJ5VLWa.net] ˘ĚÉÍą¤˘¤{¨ĚoJŕ˘éńžČ Ć×ÉČÁ˝ć
568 źOFftHgĚźłľłń [2017/12/15(ŕ) 19:39:48.70 ID:IAZ3SurN0.net] íčĆťąŠľąÉéŻÇČA{¨ĚoJ ĐŤąŕčŠH¨ÜŚw
569 źOFftHgĚźłľłń [2017/12/15(ŕ) 21:40:28.03 ID:qta4Ddk+0.net] >>549 ÜžnßÄ2TÔÁÄbľÄČŠÁ˝H żČMOSGLXp[gŇË
570 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 21:49:11.45 ID:SvHkecGU0.net] >>421 Šçŕ¤ńTÔŕoÁ˝ĚŠBŞoÂĚ͢ČB
571 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 22:06:37.13 ID:5LKBHQ7A0.net] >>554 > żČMOSGLXp[gŇË ąąAΤƹšŠH
572 źOFftHgĚźłľłń mailto:sage [2017/12/15(ŕ) 22:06:40.33 ID:sA/nQpBXa.net] MOSGLXp[g? ˝ťęüĄľ˘Ě? ĚAuSŇžŠçdlŞČ˘ŻÇłvĆŕłľ˝čŞĄńNާíľÄéžęĚGLXp[gÁÄ˝ŻÇłB
573 źOFftHgĚźłľłń mailto:sage [2017/12/16(y) 04:53:25.79 ID:kSf4Qz7z0.net] ćúAAutoFilterĆValidationĚsďĹżâľ˝ŕĚšB iÜžđľÄ˘ÜšńŞAAj Ü˝V˝ČsďÉYÜłęĢܡB ąĚć¤ČęAÇąÉńˇęÎMSĚÚÉĆÜčܡŠËH ྯęÂŤĚŠ˝¨çęÜľ˝çÄťeXgľÄ˘˝žŻéĆ čŞ˝˘ĹˇB [ÂŤ] Microsoft Office Home and Business 2013 o[W: 15.0.4989.1000 (2017/12) Excel2013 Win10 64bit Core i7 Mem8GB [č] ČşĚčĹŔsˇéĆV[gSelectŞsŽSČóÔÉČéB @Trigger: ĘV[gĚ\tćĚOnAction @¨PopupMenuĚOnAction @¨ÄŃołę˝ProcŕĹASheetSelect @@ąŻÄAutofilterŔ{@iźÚĚ´öĹÍȢj iťĚQÖj
574 źOFftHgĚźłľłń mailto:sage [2017/12/16(y) 04:53:47.87 ID:kSf4Qz7z0.net] >>558 iťĚQj [ťŰ] @EFiteringŹ÷ľÄ˘éć¤ÉŠŚéŞAń\ŚZÉJ[\ڎōľܤB @EZlĚíŞřŠČ˘BiAŽCxgŞŽŠ¸A{ťŰÉCĂj @EÍÍRs[\čtŻŞłľsíęȢB @EZđRs[[hÉľÄŕAIđÍÍŞjüé`ÉČçȢB @@¨Čńư뾢ąĆÉAěĚÎŰŞťÝŠŚÄ˘éActiveCellĹÍČA @@@ÄołćĚ éV[gĚŻęÔnÉÎľÄsíęĢélqB @@@jüé`ŕłV[gđJ˘˝çťąÉ Á˝B @@@íŕłV[gÉÎľÄsíęéB @@@Xe[^Xo[ĚZlJEgŕAťÝŠŚÄ˘éV[gĹÍČAÄołĚîńđÔˇlqB @@@ActiveCell.Address(External:=True)ÍŔŰÉŠŚÄ˘éÚŽćV[gđŚľÄ˘éĚÉAAA [śđĚÄŘ] @EĘV[gĚć.OnAction¨Popup.OnActionĹßÄŹ§B @Eć.OnActionŠçźÚProcŔs(SheetIđAAutofilterŔ{)ĹÍÄťš¸B @EAlt+F8ŠçĚPopupN_ơéĆÄťš¸B @EPopup.OnActionđüęqÉľÄŕÄťš¸B @E{^đTableĆŻśV[gÉzuľ˝ęÍÄťš¸B @EOffice2010ĹÍÄťš¸B iťĚRÖj
575 źOFftHgĚźłľłń mailto:sage [2017/12/16(y) 04:54:06.08 ID:kSf4Qz7z0.net] >>558 iťĚRj [ąÉp˘˝R[h] 1) e[uĆÍĘV[gÉ éćđIđľÄAImmediateŠçOnActiono^B Selection.OnAction = "mkPop" 2) PopupśŹ Sub mkPop() @With CommandBars.Add(Position:=msoBarPopup) @@With .Controls.Add @@@@.Caption = "Filter" @@@@.OnAction = "DoFilter" @@End With @@.ShowPopup @@.Delete @End With End Sub 3) FilterlingŔ{ Sub DoFilter() Sheets("List").Select Sheets("List").Range("$A$1:$C$5").AutoFilter Field:=1, Criteria1:="TEST" Debug.Print ActiveCell.Address(external:=True) 'mFp End Sub ** ŔŰÉÍ@ŢćĚPropertyŠçÇÝńžśńĹtB^OB ** ĄńÍAutoFilterÍłŔĹV[gIđĚsSŔsŞťŰĚTvĆÝĢܡB
576 źOFftHgĚźłľłń mailto:sage [2017/12/16(y) 04:56:00.08 ID:kSf4Qz7z0.net] >>558 ÂŤîńŞ˛ŻÄ˘Üľ˝B Win10 o[W 1703 (OS rh 15063.786)
577 źOFftHgĚźłľłń mailto:sage [2017/12/16(y) 05:17:34.49 ID:kSf4Qz7z0.net] >>558 iťĚSj ńđĚ˝ßĚtbV
čđYęĨčÜľ˝B [řĘŞ étbV
ě] @' ČşAÜ˝ÍčŽÉćéV[gŘÖiScreenupdating=FalseřЏAżçÂŞAA) @'-------------------------------- @Application.SendKeys "^{PgDn}":Application.SendKeys "^{PgUp}" @' Popup\ŚOÉSheetÚŽľÄľÜ¤B(CancelLłÉŠŠíç¸ÚŽľÄľÜ¤ŞAAj @'-------------------------------- @Application.ScreenUpdating = False: Sheets("List").Select @.ShowPopup [řʪȢŕĚ] @' FilteringźOĚAutoFilterÄÝu @ActiveSheet.Range("$A$1:$C$5").AutoFilter @' ćĘÄ`ć @Application.ScreenUpdating = False: Application.ScreenUpdating = True @' ťĚźAȺ𾽪NG @Application.EnableEvents = True @Application.DisplayFullScreen = True: Application.DisplayFullScreen = False @Application.CalculateFull @Application.CalculateFullRebuild @AppActivate (Application.Caption) @Worksheets("List").Activate @Application.StatusBar = "aaaaaa":@Application.StatusBar = False @MsgBox "OK"
578 źOFźłľ mailto:sage [2017/12/16(y) 05:26:07.46 ID:j6rMoAMF0.net] ť¤˘¤ĆŤÍAdoeventsâwaitŕľÄÝé׾ Ąp\Rł˘ŠçˇÉŞČ˘
579 źOFftHgĚźłľłń mailto:sage [2017/12/16(y) 05:36:15.74 ID:kSf4Qz7z0.net] >>563 ť¤˘ŚÎDoEvents;ܾ˝B ĘřĘÍČASendKeysđłřťľÄťŰńđŕĹŤČČéƢ¤třĘŕmFľÜľ˝B WaitÍÇąÉüęéĆřĘIšŠËB ÔÉStopđüęÄęâ~ľ˝čÍľÄÝÜľ˝ŻÇAAA
580 źOFftHgĚźłľłń mailto:sage [2017/12/16(y) 05:45:39.73 ID:kSf4Qz7z0.net] >>563 ĄńĚÍ ÜčŇżvfÍȢƊĢܡŞAČşĚRJÉ2bŮÇüęÄÝÜľ˝B @EV[gŘÖĚOăA.ShowPopupĚźO ÄťľÄľÜ˘Üľ˝B
581 źOFftHgĚźłľłń mailto:sage [2017/12/16(y) 18:57:10.19 ID:9cn7Nun80.net] ťÝvbađlbgĹךŞĐŕgÁÄ׾ć¤ĆvÁĢܡ vO~OSŇŞvbađwÔĚɨŠßĚĐđłŚÄ˘˝žŻÜšńŠH
582 źOFftHgĚźłľłń [2017/12/16(y) 20:17:51.76 ID:7KC6Lrbda.net] VBAĹĐÍŕ̳ʞć ĹÍ}NĚL^đŠéĚĆlbgĹŽŽęÎĺďĚąĆÍĹŤéć
583 źOFftHgĚźłľłń mailto:sage [2017/12/16(y) 20:36:50.77 ID:IU5B3eEvp.net] f[^ĚüÍKĽÉJ}ćŘčĚsčĚ1-9ĚĚÝđeľ˝˘ĚšŞAǤˇęÎć˘ĹˇŠH łK\ťžĆAąńČ´śĹˇB /^([1-9]+,)*([1-9]+)$/ regexpgÁÄVBAĹ`FbNˇéű@ČçâčűŞŞŠéĚšŞAZĚf[^üÍKĽĹÝčˇéű@ŞŞŠčÜšńB
584 źOFftHgĚźłľłń mailto:sage [2017/12/16(y) 20:57:31.30 ID:yaHEvAoH0.net] >>568 V[gĚChangeCxg ˝čÉ ťĚR[hđdńŨĚÍ˘ŠŞĹľĺ¤Š _ČęÍG[bZ[WoľÄAZĚlđÁľżáŚÎ üÍKĽ`bNÉČéŠĆ
585 źOFftHgĚźłľłń mailto:sage [2017/12/16(y) 21:10:04.55 ID:yaHEvAoH0.net] >>566 {iIÉâ轢ČçAVBAĆÖWȢć¤ÉvŚéŻÇ uXbLíŠéJavavV[YđIXXľ˝˘B ŠŞĚęAVBA{ĹÍłÁĎčžÁ˝ŻÇAąĚ{ĹÚoß˝B IuWFNgwüĚđŕÍAVBAĚđÉŕŠČčđ§ÂB vO~OžęÍŞ˛ÍŻśĹAűžÝ˝˘ČŕńČĚĹ źĚžęÉŕˇńČčüÁĢŻéć¤ÉČéB âęéąĆŞ˝ČéćB
586 źOFftHgĚźłľłń [2017/12/16(y) 21:57:56.42 ID:0LU2hdfpp.net] IuWFNgwüđVBAnßÄ1TÔžŞđľÄÝ˝ ܸ ĎÍ˝ŠĚ^Éüęé ¨O͹꾊ōˌć Á̤ ťľÄ ťĚ^ĚĚłçÉ^ĚĚ˝ßÍČÉH Ć@čş°Äs ąęŞIuWFNgwü
587 źOFftHgĚźłľłń [2017/12/16(y) 22:19:01.15 ID:vwwP6eCQd.net] >>571 ᤯ÇCɾȢŢ˘ć ľ§ČČč`ȢŠç
588 źOFftHgĚźłľłń [2017/12/16(y) 22:21:35.33 ID:6cm/hyEb0.net] ĆęŕƢ¤ĆąëžČAŔÉIVCĆžÁčठľŠľnßÄ1TÔĹťąÜĹIuWFNgwüĚ^ÉéĆÍĺľ˝ŕĚž °ëľ˘zŞťę˝ŕńžAąęʹऊ¤ŠľÄçęńČ
589 źOFftHgĚźłľłń [2017/12/16(y) 22:26:05.73 ID:vwwP6eCQd.net] ČéŮÇ ´ŞÔáÁĢ˝ć¤ž
590 źOFftHgĚźłľłń [2017/12/16(y) 23:09:21.00 ID:9T+lJsLD0.net] ¨A¨Ł
591 źOFftHgĚźłľłń mailto:sage [2017/12/16(y) 23:16:38.47 ID:jWdcz3p90.net] Access žĆA¸˘ÔńOŠç SendKeys Íg¤Č@ÁÄĚŞľ˘Ş Excel žĆťđČńŠH@˘˘ńŠH
592 źOFftHgĚźłľłń mailto:sage [2017/12/16(y) 23:32:07.04 ID:oxEVVuR00.net] >>558 iťĚTj ćNŞOt@CÉ éęÍSendKeysŕđÉ˝˝Č˘ć¤ĹˇB ČńŠ˘˘ńđôȢšŠËH
593 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 01:01:58.50 ID:ZCl426tV0.net] ˝ńÉActiveCellĚV[gŞvÁÄéŕĚśáȢžŻĚCŞˇéČ ťĚR[hǹɢÄéńžć
594 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 01:39:41.36 ID:F05u2uwp0.net] NŞIuWFNgpCâËńI(LEÖEM)b
595 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 04:46:14.88 ID:Hjh32hjm0.net] >>578 ÇäąĆH áŚÎšËAźBookÉ éćđNbNľÄťąÉPopupŞ\ŚłęAtB^đIŃܡB ĹAtH[JXÍÎŰe[uĚ éubNEV[gÉJÚľÄAtB^OÉŹ÷ľÜˇB SDIČĚĹćĘăÍÄołubNĆe[upubNŞQÂŔńŨčܡB ąąĹScriptÍŽšˇéíŻĹˇŞAÇÁĚěđˇé˝ßÉAJÚćV[gđžŚIÉIđB žçŠÉŠŞÍťĚÚIĚV[gđIńŢܡB ąąĹImmediateŠçAActiveCell.Address(external:=True)đ˝˝ĆžçŠÉĄGÁĢéZĚÔnŞABookźAV[gźAZÔnźĚtpXĹßčܡB ąąĹJgZĚ éÍÍđIđ˝]ľÄCopyěđs¤ĆAÄołubNĚŻśZÔnŞRs[[hĚjüé`ÉŠíéńšB J[\ĹşÖXN[ˇéĆAÄołV[gŕRĹěľÄ˘éÝ˝˘ÉęÉXN[ˇéńšB íěŕAAAAŻęt@CĹěľÄ˘éÍCĂŠČŠÁ˝ĹˇŞAĘt@CŠçs¤ĆŚ˘ŃÁčČrW
AŞWJłęܡB žçŠÉ "ActiveCell" Ƣ¤óľŞ\Ć ÉŞŁłę˝ć¤ČóÔÉČéńšB ŻśubNđWin7+Excel2010Ĺěľ˝ęÍNŤÜšńB Št@CžĆSendKeysĹŚ°çęéńšŞAOt@CŠçV[gŘÖľÄŕÄołŞŘčÖíÁÄľÜÁÄAA e[u¤ubNŞL[ěĹV[gŘÖłęȢƹĚóÔŞđłęȢݽ˘ĹˇB
596 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 05:09:02.50 ID:/bdPdb8E0.net] >>580 Ćč Ś¸ActiveSheetĆŠSelectionĆŠgíȢű@ĹŔˇéĚÍ_ČĚH ĆŻÉŔsłęé}NÍSÄŻśubNÉüęĨ׍žĆv¤ćB
597 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 06:51:48.24 ID:Hjh32hjm0.net] >>581 iťĚUj DebugpĆâčńđĚ˝ßÉActiveCellđLqľÄ˘ÜˇŞAŔŰĚR[hĹÍgpľÄ˘ÜšńB >>560 ĚSelectionÍR[hĚÉLqľÄ˘éíŻĹÍČAŘpĚć{^đo^ˇéčĆľÄImmediateŠçŔsľÄ˘éžŻĹˇBÉÍBackEndŠçěˇéhšB ŔŰĚ^pBookĹÍÉÍŻęt@CÉMacrođWßĢܡB MacroŠĚÍdđŽSÉS¤ˇéĚšŞAAAťĚ ĆV[gĚóÔŞ¨ŠľČéƢ¤ťŰšB óÔđđÁˇéÉÍAÄoćĚBookĹV[gŘÖđs¤ű@ĚÝB ĹAzđĎŚÄAuOŠç§äōȢŠvĆlŚÜľ˝B VBEŕÉVBSScriptđLqľAuĚOvŠçV[gIđľÄÝć¤ĆB ĘNGAÄťľÄľÜ˘Üľ˝B śá A{ÉOŠç§äˇęÎǤŠČHĆv˘AăLĚVBScriptđŻętH_Éu˘ÄÄŃoˇěíÉB
598 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 06:52:33.95 ID:Hjh32hjm0.net] >>581 iťĚVj -------------------------------- [PopupŠçÄŃoˇProc] Sub DoFilter() @Sheets("List").Select @Sheets("List").Range("$A$1:$C$5").AutoFilter Field:=1, Criteria1:="TEST" @Call = Shell("wscript " & ThisWorkbook.Path & "\SelectSheet.vbs", vbHide) End Sub -------------------------------- [SelectSheet.vbsĚg] call SheetSelect_fromVBS Sub SheetSelect_fromVBS() @Dim xlApp: Set xlApp = GetObject(, "Excel.Application") @With xlApp @@.Workbooks("ListBook.xlsm").Activate @@.Worksheets("List").Select @End With @Set xlApp = Nothing End Sub -------------------------------- ČńĆąęŞ÷đtľAActiveSheetĚHĚŁEóԊ粯oˇąĆŞĹŤÜľ˝B V[gŘÖŕsvÉBąęĹę渽°ť¤ĹˇŞAMSÉÍsďÎľÄŕ碽˘ĹˇB Rg˘˝ž˘˝űXA čŞĆ¤˛´˘Üľ˝B
599 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 06:55:18.78 ID:Hjh32hjm0.net] >>583 ęAęŤÔáŚÜľ˝BŔŰÍAA @Call Shell("wscript " & ThisWorkbook.Path & "\SelectSheet.vbs", vbHide)
600 źOFftHgĚźłľłń [2017/12/17(ú) 10:32:12.89 ID:e1NNF66l0.net] ÂÜčąąĹÍ ČńĚ^ÉÍßéĚŠH ˝ßÍHóÔÍH žëH ĹŕCellsÁÄvpeBžëHČńĹęĹóÔŠçüéńžH
601 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 11:20:01.90 ID:ZjZyIyTi0.net] >>585 CellsÍIuWFNgž ťľÄWorksheetIuWFNgâCellsIuWFNgĚvpeBĹŕ é ĆAć¤âÔŞĹŤ˝ŠçWorkbookIuWFNgđVariantÉăüľć¤Ćľ˝çR̲ĆuIuWFNgÍAąĚvpeBÜ˝Í\bhđT|[gľÄ˘ÜšńBvÉČÁ˝B ęĚ˝đľÄpXŞ]XČńÄbŞoÄŤ˝ńžë¤B Dim V As Variant V = Workbooks(1) ¨ăüs Set V = Workbooks(1) ¨VÍVariant/Object/ThisWorkbook^ ˛×ÄÝÄŕWorkbook^ÉftHgvpeBÍÝčľÄČłť¤B
602 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 11:21:03.68 ID:ZjZyIyTi0.net] >>586 ůł CellsÍRangeIuWFNgž ťľÄWorksheetIuWFNgâRangeIuWFNgĚCellsvpeBĹŕ é
603 źOFftHgĚźłľłń [2017/12/17(ú) 11:26:43.28 ID:e1NNF66l0.net] >>587 cellsÍrangeH ÓĄíŠçȢ vpeBĹIuWFNgÁÄČÉH ŕÁƤÜŕžľÄńËH
604 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 11:27:13.71 ID:gZkjaYao0.net] >>586 ŠŞpęđg¤ÇąëŠR[hŕłmÉRsyĹŤÄȢŠçťĚÜÜŔsľÄŕłĘžź GXp[ÍđSÍĹŠšÄ@ľÄ °Č˘ŔčńľÄŕl|ŞÔÁÄé
605 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 11:37:53.28 ID:ZJu/+/V0x.net] >>585 ]bgNAvpeBžŠçóÔƢ¤ĚÍÔáŚâˇ˘lŚűžŠçąĚŰĚÄÁ˝űŞÇ˘ vpeBÍÄŃoľłvOÉÎľÄIuWFNgĚNXŕÖĚĎÖĚANZXđńˇéŕĚĹAANZXćĚĎĚf[^^Ív~eBuČlĹ éąĆŕ ęÎA˝çŠĚIuWFNgĹ éęŕ é Ƣ¤ŠAIuWFNgŽĚrĹoÄévpeBÍSÄIuWFNgÖĚQĆđńˇévpeBž CellsĚęÍRange^ĚIuWFNgÖĚANZXđńˇévpeBžŞAGrobalĚovpeBžŠçăĘIuWFNgŽđ
606 źOFČŞľÄŻéíŻ [] [ąąóęÄܡ]
607 źOFftHgĚźłľłń [2017/12/17(ú) 11:46:44.41 ID:gC8RO3PCp.net] >>590 J^J^g¤Č
608 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 11:53:12.87 ID:ZjZyIyTi0.net] >>589 ť¤žćČEE ŠŞĹNXěÁÄÝęÎęĹđĹŤť¤ČŕĚžŞEE
609 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 11:59:28.64 ID:R4ec2g2Bx.net] >>592 ĚżâŇŞŠŞĹNXđěęéć¤ÉČéĚÁÄ˝NŠćĚbžë¤Č
610 źOFftHgĚźłľłń [2017/12/17(ú) 12:11:00.98 ID:gC8RO3PCp.net] NXH IuWFNgÉKvČvfđSßŢâžëH ŕ¤ĹŤéćH ĹŕnewNXĚg˘űŞÓĄŞíŠçȢ ŻśNXĹ(g௜)ČçěéӥȢńśáËŚĚH
611 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 12:19:09.45 ID:ZjZyIyTi0.net] mŠÉąęĹÍ˝NŕćĚbÉČ蝤ž
612 źOFftHgĚźłľłń [2017/12/17(ú) 12:31:47.04 ID:gC8RO3PCp.net] ˘ÜANXđÝÄÝ˝ ťľ˝çworkbookĚÉworksheetsŞvpeBƾĢ˝ Ǥ˘¤ąĆžH ´ÍVBAĚÓ_đ¢˝ŠH
613 źOFftHgĚźłľłń [2017/12/17(ú) 12:40:07.47 ID:gC8RO3PCp.net] m衏˝ŠH
614 źOFftHgĚźłľłń [2017/12/17(ú) 12:51:28.57 ID:gC8RO3PCp.net] dim i as long For i = 2 To i.Cells(.Rows.Count, 1).End(xlUp).Row ąĚi.cellsĚÓĄŞíŠçȢ łŚÄę
615 źOFftHgĚźłľłń [2017/12/17(ú) 13:07:40.63 ID:+CY9tzJPd.net] vpeBÍŕĎÖĚANZXÉŔ縢ëńČąĆoéľAĹłÁĎčđĹŤČŠÁ˝B ÜłŠ˝žĚV^bNXV
K[žČńÄzľÄČŠÁ˝ŠçČB
616 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 13:23:13.67 ID:R4ec2g2Bx.net] >>598 ąĚR[hÍâÎÉRpCĘçȢź For i = 2 To i.Cells(.Rows.Count, 1).End(xlUp).RowĚÓĄČńÄąÁżŞm轢碞
617 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 13:26:02.12 ID:R4ec2g2Bx.net] >>596 WorksheetIuWFNgĚoĚAWorksheetsRNVÉANZXˇévpeBśáń ˝ŞsvcČĚH
618 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 13:27:44.67 ID:R4ec2g2Bx.net] NewoÄȢĚÎŚé NXW
[đ}üĹŤ˝žŻĹNXgŚéć¤ÉČÁÄËĽśáń
619 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 13:51:38.17 ID:5yg/jtY20.net] ¨ťç{EvO}śáČąĚřŚťĹVBAÉčoľ˝ńĹľĺH ǤšĐčÔČçvO~OKŤłłť¤žŠç¨ĆČľRsyĹĎܡ̪łďžĆv¤ ˝ÔńivÉđoȢć
620 źOFftHgĚźłľłń [2017/12/17(ú) 14:08:08.04 ID:gC8RO3PCp.net] >>600 łľ˘ĚÍČÉH https://i.imgur.com/rE2ZahI.jpg
621 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 14:15:19.48 ID:R4ec2g2Bx.net] >>604 ŠŞĹlŚëćANXěęéńžëHw
622 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 14:17:42.01 ID:KxwCW4kM0.net] ĹßIuWFNgwüĚ{ÇńĹÝ˝ńžŻÇ ąęÜĹěÁÄŤ˝tŮČXpQeBR[hđąĚŰŤźľÄÝ˝ČÁ˝
623 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 14:25:27.85 ID:R4ec2g2Bx.net] >>603 ąĚlŞśáȢľAÜłžë¤Č fźÉźlĚśÍâR[hŞÇ߸AŠŞĚžę´ožŻĹłîÂŻć¤ĆˇéžŻĚzÍťŕťŕvO~OÉü˘ÄȢ
624 źOFźłľ mailto:sage [2017/12/17(ú) 19:27:22.86 ID:ZjZyIyTi0.net] >>606 ĄŤźľÄŕAľÎçˇéĆÜ˝ŠŻŞŚÄŤźľ˝Č鞯âĹ
625 źOFftHgĚźłľłń [2017/12/17(ú) 19:31:24.74 ID:SRQ89yzu0.net] >>606 âßĆŤAŕ¤ęÂtŮČXpQeBR[hđě鞯âĹw šÉÂż˝SŇÇŕÍťęđt@N^OĆÄńĹé羢ŞČw
626 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 19:52:14.28 ID:/bdPdb8E0.net] >>607 ]bgNÍ>>573 ĚŠĚĘčAuŞoéČńÄŚ˘cžvÁÄ˝Ş~ľ˘žŻĹľĺB ťĚ˝Ş~ľ˘žŻžŠç{üęÄסéÂŕčŕȢńžë¤ľA ŢĚzĚĹÍAŠŞÍuŚ˘cvĹ čAťęÉ˝ˇéüÍÍuŚČ˘cvČĚĹŠşľÄ˘éB ŠşľÄ˘ézçĆ
627 źOFŠŞĚÓŠŞÔŠÁ˝çŠŞĚűŞŚ˘ĚĹŠŞŞłľ˘BžŠçŠŞĚlŚÉšˇéB vˇéÉqJĚéĆŠnCL
[ĆŠ{[[ĆŠĚĺlöÝ˝˘ČWJđĎzľÄńžëB ÇńČ˝đľÄŕŢĚĎzÉtŤíłę鞯žľAĎzŞŰĹŤČČéĆËËž¤žŻÉČéŠç\¤žŻłĘB [] [ąąóęÄܡ]
628 źOFftHgĚźłľłń mailto:sage [2017/12/17(ú) 20:35:35.89 ID:oSmkXHksa.net] >>607 vO~OžŻśáČ čĆ çäéąĆÉü˘ÄȢžë¤Č íŠçńĚÍdűȢŻÇAĹáŔĚÔxŞČÁÄȢ lbgžŠçČÉâÁÄࢢAÁÄlŚĚâÂ͢¸ęAĹŕÚëŞoéí
629 źOFftHgĚźłľłń mailto:sage [2017/12/18() 00:39:13.70 ID:mfb75Iey0.net] vV[WÉconstފč`ľÄ ÁÄąęÜĹ˝ŕâčČŽ˘ÄŤ˝ łÁŤťĚčĚęÂđ=22Šç=23ÉĎXľ˝ç 莪KvšAĚG[Şoé ǤÝÄŕ˝ŕâčȢć¤ÉÝŚÄŞŠçȢ ÜłŠĆv˘Â 'Const sht_right As Integer = 23 Const sht_right As Integer = 23 ąĚć¤ÉâčĚNŤ˝sđRgsĆľÄ ˇŽşÉŤźľ˝çG[ŞĹČČÁ˝ ą¤˘¤ĚÁÄ éŕńH
630 źOFftHgĚźłľłń mailto:sage [2017/12/18() 02:00:09.91 ID:rupxZ3Ov0.net] >>612 ăĚzA{ĚR[hžĆSpXy[XüÁÄČË
631 źOFftHgĚźłľłń [2017/12/18() 02:32:05.22 ID:m7yapXyd0.net] >>604 i.cells śáČÄ ws.cells łçÉAwith ws ŞLéĚĹ ws ŞČŞĹŤéŠç .cells ĹǢ
632 źOFftHgĚźłľłń mailto:sage [2017/12/18() 03:17:17.83 ID:7TDAIkSx0.net] >>612 99%ÍPČé^Cv~X tHgĹXy[XŞžŚĹŤéeLXgGfB^ÉRsyľÄÝé
633 źOFftHgĚźłľłń mailto:sage [2017/12/18() 06:23:46.35 ID:TbHEuMcS0.net] ÇąŠŠçARsyľ˝śńÉAŠŚČ˘§äśŞüÁĢéĆŠH
634 źOFźłľ mailto:sage [2017/12/18() 07:46:18.89 ID:fX+okHt3M.net] >>612 ťĚáÍŠ˝ąĆȢŻÇA[žĚ˘ŠČ˘G[Şo˝ĆŤÍAĆč Ś¸GNZÄNŽ
635 źOFftHgĚźłľłń mailto:sage [2017/12/18() 07:59:26.09 ID:mfb75Iey0.net] >>613 >>615 >>616 Ć´ŕvÁ˝ ńĹ˝xŕĹżźľÄÝ˝ żČÝÉăÉ\Á˝ĚÍťĚÜÜRsyľ˝ŕĚ 2đ3Éľ˝žŻČńĹËAćíŠçń >>617 ÄNŽľČŠÁ˝ŠŕľęȢńĹÜ˝NŤ˝çâÁÄÝéí RgsÉľ˝ŕĆŕĆĚsÍíľżáÁ˝ńĹŔąĹŤČġÜń
636 źOFftHgĚźłľłń mailto:sage [2017/12/18() 08:01:30.70 ID:aXpCltYZ0.net] ConstĹG[oľ˝ Á˝ŻÇAEndđŔsľÄŠçâÁ˝çĄÁ˝ąĆ éČB lŞL^łę˝ÜÜžÁ˝ĆŠśáËB
637 źOFftHgĚźłľłń mailto:sage [2017/12/18() 10:33:59.62 ID:ueSdYdZDa.net] >>612 ČńŠAEnumĹŕťńȹƪ˝ÜÉNąéć VBEĚoO羢ŻÇ
638 źOFftHgĚźłľłń [2017/12/18() 13:34:10.63 ID:NqlVCppnp.net] VBAÁÄǤâÁ˝çăBľÜˇŠH GNZÖÍBlš GNZÖÝ˝˘ÉľęžŻśáłĹˇŠË
639 źOFftHgĚźłľłń mailto:sage [2017/12/18() 13:43:31.23 ID:IKrWJ0B8a.net] >>621 Javađ׾˝çvbaŕăBˇéć
640 źOFftHgĚźłľłń [2017/12/18() 13:47:42.85 ID:NqlVCppnp.net] >>622 JAVAľłńąńÉżí
641 źOFftHgĚźłľłń mailto:sage [2017/12/18() 14:03:31.64 ID:yddZnfruM.net] JavaľÍĆ੼̾ęđwÔĚÍVBAĚăBÉŕŔŰŠČčđ§Â
642 źOFftHgĚźłľłń mailto:sage [2017/12/18() 14:45:58.67 ID:c1zJrPAZp.net] (Ü˝]bgńžćc)
643 źOFftHgĚźłľłń mailto:sage [2017/12/18() 16:14:09.20 ID:D45Nh6pha.net] >>623 WeB[ĚbľÍľÄȢńžA˛ßńČ
644 źOFftHgĚźłľłń [2017/12/18() 16:30:46.07 ID:NqlVCppnp.net] VBAžŻâę΢˘ javaÍÂŤŞĺĎž ľ˝˘ąĆŕȢľ
645 źOFftHgĚźłľłń mailto:sage [2017/12/18() 16:48:04.05 ID:D45Nh6pha.net] vOĚăBÉšÍȢńžćČ Ć˘¤ŠAńčÉvŚéąĆŞšžÁ˝čˇé ĆAŠúĚÓđßÄ Ç¤ľÄŕGNZĆß˝˘ČçCňĹࢢŻÇČ
646 źOFftHgĚźłľłń [2017/12/18() 16:49:17.57 ID:7XOqOvzzd.net] ĄĚ¤żÉPythonđwÔ www.publickey1.jp/blog/17/excelpython.html
647 źOFftHgĚźłľłń mailto:sage [2017/12/18() 17:57:32.74 ID:pW3jV0rpa.net] ϢťńÁÄAJĹÍŕÁĆŕW[ČXNvgžęČńžÁŻ
648 źOFftHgĚźłľłń mailto:sage [2017/12/18() 18:15:03.66 ID:fX+okHt3M.net] ˝ĚÉPythonŠĆvÁ˝çGNZÉPythongÝŢÁÄbŞoÄéńžČBסéŠd
649 źOFftHgĚźłľłń [2017/12/18() 19:14:05.94 ID:/veb4c2e0.net] >>628 ŠČ]żžĆť¤´śéĚŠŕľęȢŻÇ ĹŤézÍĹŠçĹŤéľAōȢz͢ÂÜĹ˝ÁÄŕōȢ vOÁÄť¤˘¤ŕń
650 źOFftHgĚźłľłń mailto:sage [2017/12/18() 19:34:37.55 ID:pW3jV0rpa.net] >>632 ťčá lÉćÁżáᤪAťęÍË\Ş éŠçĹßšľć¤ĆľÄť¤ČÁÄéóśáȢžë íŠńȢąĆŞ Á˝çĘĚŘčűŠçUßéĆž¤Ěŕ čśáȢĚ
651 źOFftHgĚźłľłń mailto:sage [2017/12/18() 19:45:01.61 ID:au4G9Tq20.net] VBAerłń¢ÉIíéĚŠ PythonÉěłężá¤Ë
652 źOFftHgĚźłľłń [2017/12/18() 19:45:05.21 ID:/veb4c2e0.net] >>633 ȢĆÍžÁÄČ˘ć ´Şž˘˝˘ĚÍAĘĚŘčűŠçUß椪ߚľć¤Ş ůmĚâčĚđôÍmŻĆľÄgÉÂŞ ˘mĚâčÉΡéđ\ÍÍă°éąĆŞĹŤČ˘ÁÄ ÂÜčăBĆŠÓŻľČ˘ĹyČâčűΊčIÔzŞ˘ÂžÁÄęÔŤ˘
653 źOFftHgĚźłľłń mailto:sage [2017/12/18() 19:51:30.63 ID:pW3jV0rpa.net] >>635 VËĚlÍęɾȢžŻĹżáńĆšÍĘÁÄéć
654 źOFftHgĚźłľłń [2017/12/18() 19:54:37.06 ID:/veb4c2e0.net] >>636 ˝đž˘˝˘ĚŠćíŠçńŞťŕťŕ´ŞžÁÄéĚÍVË̹ƜáȢ PÉvOŞĹŤézĆōȢzĚbČńžŞ
655 źOFftHgĚźłľłń mailto:sage [2017/12/18() 19:57:32.60 ID:pW3jV0rpa.net] >>637 iqȢĆ_ČĚÍvOÉŔçńľ Ü X`žŠçŢUˇéí
656 źOFftHgĚźłľłń [2017/12/18() 20:01:42.20 ID:/veb4c2e0.net] >>638 ˘âžŠçIQĆŠĚbśáȢÁÄÎ ÚĚOĚâčđ čĚÜÜÉóŻüęéŞĹŤézĆ ůÉŠŞĚÉ\złę˝mŻÉÄÍßȢĆđßōȢzĚᢞÁÄ
657 źOFftHgĚźłľłń mailto:sage [2017/12/18() 23:11:06.58 ID:aXpCltYZ0.net] >>634 źÉĚpłęÄFŞPythonGéć¤ÉČÁ˝çAĄxÍPythoniÎjÁÄľ˘łęé˘ŞŠŚéíB iDÂŻžŻĹâÁÄéz窲ŻÄAAIĆŠěÁÄé^ÁČĚŞ]íQđ󯝤B žęÍęˇéćčŕAťęđľ¤[U[wÉŞŻ˝űŞ˘˘B
658 źOFftHgĚźłľłń mailto:sage [2017/12/19(Î) 12:28:53.96 ID:/mb664F4a.net] >>618 ´ŕ˝ć¤ČĚŠ˝ąĆŞ éB ĹŕřŤ¸éć¤ČâčśáłŠÁ˝Ćv¤B ExcelÄNŽŠPCÄNŽĹźéńśáË?
659 źOFftHgĚźłľłń mailto:sage [2017/12/19(Î) 12:37:10.24 ID:pfZPHd/La.net] >>635 tžĆv¤ŞB ˘mĚâčÉÎľÄĚđ\ÍÍă°éąĆŞĹŤéB yČâčűđIÔzÍă°çęȢžŻB ľ§É͢mČâčƢÁÄŕůmĚâčĆSá¤íŻśáȢB
660 źOFftHgĚźłľłń [2017/12/19(Î) 16:48:29.82 ID:mNLh8c+i0.net] ąąĚâÂçŞ ńÜWoWo˘¤ŠçřÁŁčoľÄ
˝í Ćč Ś¸R[hÍŔsš¸ÉpÇÝľć¤Ćv¤ https://i.imgur.com/peDAurF.jpg
661 źOFftHgĚźłľłń mailto:sage [2017/12/19(Î) 17:01:17.86 ID:Bngslooy0.net] >>643 uí[AbNXÁÄéČńġ˛[˘Iv uŚHąńČĚ
662 źOFĘžćBÁÄȢƊv Ý˝˘ČWJÉČéđúŇľÄéńžë¤ŻÇrvĚüęűŞłâčߏÄ΢ľŠoĹȢ {ÍĂŽĹÁ˝Ý˝˘žľA ÜčÉ࿎͎ߏÄŢľëiđş°Äéć¤ÉľŠŠŚČ˘ńžŞB [] [ąąóęÄܡ]
663 źOFftHgĚźłľłń [2017/12/19(Î) 18:14:51.58 ID:J+VWEpvK0.net] >>642 ¤ńžŠçĹÉžÁ˝ńžŻÇŠČ]żžĆť¤´śéńžÁÄÎ
664 źOFftHgĚźłľłń [2017/12/19(Î) 19:02:39.42 ID:mNLh8c+i0.net] JAVAĚ{ĹíŠÁ˝ąĆ ĎĚéžĆŻÉlđüęéąĆđúťĆ˘¤ ĎĚlŞĎíçȢąĆđčƢ¤ ˘Ü10y[WÚžŻÇąń碞í
665 źOFftHgĚźłľłń mailto:sage [2017/12/19(Î) 19:57:29.94 ID:9tP52mqX0.net] >>646 ĎĚlŞĎíçȢąĆđčƢ¤ ąęÍżĺÁĆá¤ĚĹÍH
666 źOFftHgĚźłľłń mailto:sage [2017/12/19(Î) 20:25:43.13 ID:fLKwjLgZa.net] >>645 ¨OĚŠČ]żŞť¤´śÄ鞯žëw ˝ŠŠŞÍvOŻéCÉČÁÄé椞ŻÇw
667 źOFftHgĚźłľłń mailto:sage [2017/12/19(Î) 21:14:28.27 ID:4AWSTK/ra.net] ĎĚúŠŕČńŠŢ¸Ţ¸ˇéđžČ
668 źOFftHgĚźłľłń mailto:sage [2017/12/19(Î) 21:15:04.92 ID:4AWSTK/ra.net] AĹŕŢÍWeB[ĚbđľÄéĚŠ ČçíŠçńĹŕȢ
669 źOFftHgĚźłľłń [2017/12/19(Î) 21:26:16.08 ID:mNLh8c+i0.net] javaĚpXŞĘçČÄŔsōȢ ŻÄę
670 źOFftHgĚźłľłń mailto:sage [2017/12/19(Î) 23:45:33.30 ID:jfHXMkXp0.net] Java ÍÂŤ\zŞďľ˘ŠçASŇÉÍł paiza.IO, codepad ČÇĚTCgĹAuEUŠçŔsľë
671 źOFftHgĚźłľłń mailto:sage [2017/12/20(
) 00:20:41.41 ID:USwfdD4Y0.net] ĘÉJavaŞďľ˘Ć´ś˝ąĆÍȢČB ˇÁ°ŚĚÉŠśÁ˝žŻžŠçĄĆČÁÄÍSŇČşžŻÇB ˘âAŕSŇžÁ˝ŻÇB
672 źOFftHgĚźłľłń mailto:sage [2017/12/20(
) 00:28:51.85 ID:USwfdD4Y0.net] RpCŕJavaĹoÄéŠçJavaŔsÂŤĹRpCŽŠľÄAťĚRpCÖĚřÉGfB^ĹŇWĚeLXgđęt@CÉľ˝ŕĚđnľÄ˝ČB ťĚGfB^ŕJavaĹNŠŞěÁ˝ŕĚđ@\gŁľ˝âžÁ˝ČB
673 źOFftHgĚźłľłń [2017/12/20(
) 00:40:50.45 ID:xfg3gakwa.net] R}hCŞ~˘ČçeclipseĹâę ~˘ÂÁÄŕÂŤĎÝčľÄťąÉpXʡžŻžŞČ
674 źOFftHgĚźłľłń [2017/12/20(
) 01:00:50.98 ID:sohN4awK0.net] javaÁÄřŚŤˇŹžë eLXgGfB^ĹŇW Ť źOÂŻÄŰś Ť R}hvvgĹR[hüÍ Ť Ŕs ÇńžŻÔŠŠéńžć
675 źOFftHgĚźłľłń mailto:sage [2017/12/20(
) 08:24:00.28 ID:TZHE5kKsa.net] ˘âeclipsegŚć
676 źOFftHgĚźłľłń mailto:sage [2017/12/20(
) 09:28:33.38 ID:FRuTBLwYp.net] ąęČăÍXá˘ČĚĹJavaXĹǤź
677 źOFftHgĚźłľłń mailto:sage [2017/12/20(
) 09:36:49.97 ID:GPFg9WZwx.net] eclipseŕmçȢĹčŽĹRpCľČŞçu`LÄéĚzľÄ^ šÍ˘Ë
678 źOFftHgĚźłľłń mailto:sage [2017/12/20(
) 12:25:53.38 ID:Vi8ViNgtd.net] X`
679 źOFftHgĚźłľłń mailto:sage [2017/12/20(
) 12:41:32.07 ID:/dU/ndoRa.net] ¨OçÇŠÁ˝Č EXCELĹPythonŞgŚéć¤ÉČéŠŕmęȢńžÁÄH ęÍObjectwüĚŹęđgŢÖ^đÚwľÄ˘éĆąëĚžęÁ̤ŠçâčŞ˘Í éćË ´ŕVB.NetâC#ÍâÁ˝ŻÇ EXCELÉÚéąĆŞmčľ˝çąęŠçPythonoŚéí Ü\˘ťžęŠçObjectwü^žęÉÚsľ˝ĆŤ ßżáżáęJľ˝ŻÇ ĄńŕęJˇéńžë¤Č
680 źOFftHgĚźłľłń mailto:sage [2017/12/20(
) 13:38:58.93 ID:/fbzm/vOa.net] PythonÍłçÁĆTvŠ˝Žç˘žŻÇĘť¤žË Ü excelÉĚçČÄŕ׾ĚÉÍČçńžë¤Č
681 źOFftHgĚźłľłń [2017/12/20(
) 15:31:22.90 ID:EAMpcVD20.net] KvȢŕń׾˝ÁÄÔĚ_žÁÂ[Ě ^ĚG
682 źOFNZ}N[žÁ˝ç}NĚÉpC\ľŠgŚČČÁ˝ÉKĹOOę [] [ąąóęÄܡ]
683 źOFftHgĚźłľłń [2017/12/20(
) 16:07:26.91 ID:/h7jUJynd.net] ĄĚÜÜĹŕÖ^Ĺoéçľ˘Ş https://qiita.com/matumoto_onga/items/7adfd4cf48288c477901
684 źOFftHgĚźłľłń mailto:sage [2017/12/20(
) 18:29:06.12 ID:khkAeR460.net] PythonÍIuWFNgwüŕÖ^ŕSătŻÁÄ´śĹCPÄËŚ F#ɾƯÁÄ ĹŕąńČĚÍvO}ČOŞGéŕĚžŠçľĺ¤ŞČ˘ĚŠŕČ
685 źOFftHgĚźłľłń mailto:sage [2017/12/20(
) 19:00:00.85 ID:sxNo8wqUa.net] >>665 F#ÁÄÜžśŤÄńĚŠI
686 źOFftHgĚźłľłń [2017/12/20(
) 19:51:25.83 ID:7WhairgWd.net] śŤÄéľAÉgíęÄéć \[XÍȢ
687 źOFftHgĚźłľłń mailto:sage [2017/12/20(
) 20:52:44.38 ID:EAMpcVD20.net] \[XÍȢ\[XÍć
688 źOFftHgĚźłľłń [2017/12/21(Ř) 23:06:47.24 ID:1PuX0k7mM.net] 100ńŽç˘ąvZGNZŞ é Ťľ˝čř˘˝čˇéžŻĚGNZB ËHVBAÉōȢŕĚŠ
689 źOFftHgĚźłľłń mailto:sage [2017/12/22(ŕ) 02:00:09.18 ID:T3zOnX2zx.net] >>669 vZGNZÁ̤\ťŞÓĄsžžŞvÍvZpĚ[NV[g̹ƊH ĺďĚęA[NV[gÖĆe[u@\đgÝíšÄ˝ĆЎéűŞVBAg¤ćčyžź ÔÖĚÄžđľÄŕľĺ¤ŞČ˘ŠçČ
690 źOFftHgĚźłľłń mailto:sage [2017/12/22(ŕ) 04:21:53.41 ID:0EXQoFbJ0.net] żâšB Excel¤ŠçVBEăĚwčĚvV[WLqÉWvˇéŽěđVBAĹLqĹŤé ž夊H âčűŞíŠç¸Ćč Ś¸SendKeysđgÝíšÄŽěˇéć¤ÉČÁ˝ĚĹˇŞ sśĚĚŞNŤť¤Ĺ|˘ĹˇB VBEĚIuWFNgfÉÁ˝ANZXű@Ş ęÎłŚÄ˘˝žŻČ˘Ĺľĺ¤ŠB
691 źOFftHgĚźłľłń [2017/12/22(ŕ) 07:49:35.63 ID:BCzwPGy5d.net] >>671 VBEăĹJ[\ĚĘuđRg[ˇéÁÄąĆH
692 źOFftHgĚźłľłń mailto:sage [2017/12/22(ŕ) 11:50:10.85 ID:7Q1lZFEo0.net] >>672 eĚ˝ßÉActiveBookŠçSProcĚXgđVKSheetÉo͡é ProceduređpÓľ˝ĚšŞAProcźŠçVBEăĚYProcÉWv ľ˝AEClickEventÉWv@\đčÄÜľ˝B łľ˘ANZXű@ŞíŠçȢĚĹAŮÚSendKesyĚÝĹLqľÄ˘é ĚšŞAóľÉćčÓ}ľČ˘ŽđľÜˇB VBEđJŽěÍ "^{F11}"ĚăíčÉ @Application.CommandBars.FindControl(ID:=1695).Execute ŞgŚť¤ČąĆÍíŠÁ˝ĚšŞAAA VBEăĹPÂŕModuleŞJŠęĢȊÁ˝čAJŠęĢéModuleĆAc[ ¤ĚIđłęĢéModuleŞŮČÁ˝čˇéĆA"^F"ŞřŠČ˘ć¤ĹˇB FrontEndŠçĹÍČAObjectModelÉÁ˝BackEndŠçĚěŞ m轢ĚšŞA¤ÜîńđŠÂŻçęȢƹëšB
693 źOFftHgĚźłľłń mailto:sage [2017/12/22(ŕ) 12:58:52.19 ID:7Q1lZFEo0.net] >>671 ŠČđľÜľ˝B L[[hđpęÉŘčÖŚÄGGÁ˝çAStackOverFlowĹˇŽŠÂŠčÜľ˝B .CodePane.GetSelection .CodePane.SetSelection ˝čĹČńĆŠČ蝤šB¨ŞšľÜľ˝B
694 źOFftHgĚźłľłń mailto:sage [2017/12/22(ŕ) 17:40:48.08 ID:3J82DkVga.net] VBAâčÍśßÄONŽç˘žŻÇAFor EachĹĘĚzńŕ[vĹŤéĚĄúmÁ˝í RNVžŻžĆvÁÄ˝
695 źOFftHgĚźłľłń [2017/12/22(ŕ) 18:05:37.66 ID:/KqbyaeQd.net] >>675 lĚćžžŻĹÝčÍōȢŻÇË[
696 źOFftHgĚźłľłń mailto:sage [2017/12/22(ŕ) 18:16:05.21 ID:3J82DkVga.net] >>676 NXĚľ˘ŞĺŞĎíéĚć í´í´Ce[^ŠěľÄ˝í
697 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 00:05:26.91 ID:/nzAEvVba.net] >>674 ĹŤéńžŻÇZL
eBIÉâ螊稊߾ȢB .netŢ˝űŞÇ˘źB ĹŕVBEđěˇéR[hŞŻęÎA.netăĹŕwÇŻśR[hŢŻéŠç׾ĆĆǢŠČB [] [ąąóęÄܡ]
699 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 06:34:44.47 ID:F3cHZlpp0.net] sheet1Éu˘˝{^đľÄŠçsheet1ŕĚZđNbNˇéĆANbNľ˝ZÉuąąv Ć͢éć¤Éľ˝˘ĹˇBŔŰě轢ŕĚÍŕÁĆĄGšŞAĆč Ś¸B ťąĹAsheet1ĚV[gW
[ÉČşĚLqđľÜľ˝ ľŠľAǤâçOńNbNľÄ˘˝ęđoŚÄ˘ÄAťĚęÉuąąvĆüÁľܢܡ đ@Í čܡŠH Private Declare PtrSafe Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Integer Private Sub CommandButton1_Click() Do If GetAsyncKeyState(VK_LBUTTON) Then ActiveCell.Value = "ąą" Exit Do End If Loop End Sub
700 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 06:43:21.92 ID:F3cHZlpp0.net] >>679 ĹŤYę WW
[ĚéžÉ Public Const VK_LBUTTON = &H1 ĚLqŕľÄ čܡB
701 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 07:46:11.28 ID:8SavP0Th0.net] >>679 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count = 1 Then Target.Value = "ąą" End Sub NbNľ˝ęÉüę鞯ČçSheet1W
[ÉąęĹĎŢŻÇAR[`ŞKvƢ¤Č窊çńB ˘¸ęÉľÄŕActiveCellĆŠActiveSheetĆŠÍđŻÄÝvˇ×ŤB
702 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 07:56:20.90 ID:F3cHZlpp0.net] >>681 ŠŞŕOOÁÄ˝Çč¢˝ćŞťęžÁ˝ńšćË ĹŕíÉŽľÄéóÔžĆâÁĎč˘éńšć ęapplication.enableevent đgÁÄâ~ľÄ¨ąĆŕĹŤéć¤ČĚĹA ĘíÍâ~ľÄ¨ąĆŕlŚÄ͢ܡ Ýuľ˝{^đľ˝ĆŤžŻ@\ˇéć¤ÉľÄ¨ŻÎ˘˘ĚŠČAĆB Worksheet_SelectionChangeg¤ČOű@ŞČŻęÎť¤ˇéľŠČ˘ĹˇŞ łřÉľÄéÔÍCxgŞęŘ˝ľČČéƢ¤ČĚĹA CxgtŤĚźĚubNđšpˇéć¤ČP[XĹâčŞNŤť¤ĹŔÁÄܡ
703 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 08:00:18.36 ID:8SavP0Th0.net] >>682 Čç If ToggleButton1.Value Then ĆŠÁŚÄ¨ŻÎ˘˘žŻĹÍH
704 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 08:11:12.55 ID:F3cHZlpp0.net] >>683 ¨EEąęÍ˘Żť¤Ĺˇ ą¤˘¤g˘űŞ éńšËEEE ěĆđćÉißçꝤš čŞĆ¤˛´˘Üľ˝
705 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 10:35:36.95 ID:oVsH3Gmz0.net] tH[Rg[{^ĚśĚFđĎŚ˝˘ńžŻÇ ZNgľČ˘ű@ÍȢĚšŠH Sub test01() @n = Worksheets("Sheet1").Shapes("Button 1").Name @Worksheets("Sheet1").Shapes(n).Select @Selection.Font.ColorIndex = 3 End Sub
706 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 10:51:51.14 ID:YCHexesv0.net] tH[Rg[{^ĚśĚFđĎŚ˝˘ńžŻÇ ZNgľČ˘ű@ÍȢĚšŠH Set n = Worksheets("Sheet1").Shapes("Button 1") @n.Font.ColorIndex = 3 Ý˝˘ČH
707 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 13:25:10.14 ID:Zcbsqwvta.net] V[găĚ{^ČçtoggleÉľČÄŕW
[xĚNbNtOĎĹÇĹŤË[ŠH
708 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 13:35:38.33 ID:8SavP0Th0.net] >>687 o˘ĚŕĚđAí´í´ńđˇé_ÍH
709 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 15:32:28.22 ID:tRk+L7lt0.net] >>688 ˘âAĹR}h{^žÁ˝ŠçR}hĚűŞ˘˘ĚŠČÁÄvÁ˝žŻ ĘÉKvł˘ČçKvł˘Ĺ˘˘ľ
710 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 18:23:21.18 ID:3q2JAS6ba.net] >>686 tÉ˝ĹZNgľČŤáČçńĚŠŞŞŠçńB ĘZNgČńľȢžëB
711 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 18:24:04.16 ID:3q2JAS6ba.net] ˇÜńB >>685 üŻËB
712 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 19:38:10.94 ID:DrTFst260.net] >>685 Worksheets("Sheet1").Shapes("Button 1").TextFrame.Characters.Font.Color = vbRed Ü˝Í Worksheets("Sheet1").Buttons("Button 1").Font.Color = vbRed SelectˇéĆButtons("Button 1")đIuWFNgĆľÄSelectionÉÂĚĹ Selection.Font.Color = vbRed@ŢŻé ęűAShapesÍFontIuWFNgđŕÁĢȢĚĹ FontIuWFNgđÁĢécÜĹ@čş°ÄŠČŻęÎ_ Ƣ¤ąĆžĆv¤B
713 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 19:53:54.32 ID:AF0984djx.net] >>692 ź´IČŕžžŞAIuWFNgŞIuWFNgđÂƢ¤\ťÍÔᢠIuWFNgŞÂĚÍ ÜĹ\bhĆvpeBŠçČéoĹA˘íäéşĘIuWFNgÉÍođîľÄANZXľÄ鞯žŠçČ
714 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 20:15:31.85 ID:oVsH3Gmz0.net] >>692 }NĚL^ĹâÁÄ˝ĚĹB1sĹÂ\ČĚšËB TextFrame.Characters.Font.ColorĹOOÁ˝çoÄŤÜľ˝B čŞĆ¤˛´˘Üľ˝B
715 źOFftHgĚźłľłń mailto:sage [2017/12/23(y) 20:55:59.08 ID:afY4COyy0.net] żČÝÉButtonsĆŠCheckBoxesĆŠÍBľvpeB wvÉŕĹĹȢŠçČ ČńĹBľÄ éĚŠËĽ
716 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 00:26:44.47 ID:oSJcOqyea.net] >>694 ŞŠéćB ť¤˘¤lŞĆÄརŠçB ĹŕAwÇĚÍZNgłľĹŻéB ÂlIÉÍZNgłľĹŻČ˘ęĹŕ˝ĆŠZNgš¸ÉŻČ˘ŠđlŚéB
717 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 00:45:00.70 ID:BN72T8jr0.net] Ü Aĺ˝ĚprĹÍžçęébgŞČˇŹÄSelectđÁˇÓĄÍ˘ŻÇČ
718 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 01:23:50.46 ID:2PxYmIQzx.net] IuWFNgĚvpeBÉANZXˇéĹSelect\bhÍČé×gíȢ R[hĚŔsÉfobOěĆđsÁ˝ĆŤČÇÉ\úľČ˘IuWFNgŞIđłęÄAANZXľ˝˘vpeBÉANZXo¸G[ÉČéąĆŞć éŠçË RangeIuWFNgđwčľÄ˘˝Í¸ŞShapeIuWFNgâOLEObjectIuWFNgđIńŢ˝čĆŠ
719 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 01:43:15.08 ID:O2udkTbW0.net] SelectÍK¸ăÖčiŞ éŠçAÍÍIđľÄ[U[ÉÓđŁˇĆŠĹČŻčáSelectg¤É^âđÁ˝űŞ˘˘B
720 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 06:22:03.30 ID:ZKd7S1fn0.net] NŽĚIEŠçłçÉĘĹJŠęétH[üÍpĚIEIuWFNgđćžľÄěľ˝˘ĆlŚÄ˘éĚšŞA Function hoge() As WebBrowser Dim tmp As Variant For Each tmp In CreateObject("Shell.Application").Windows If TypeName(tmp.document) = "HTMLDocument" Then Set hoge = tmp Exit Function End If Next tmp End Function Ěć¤ÉShellđgÁÄŕIEIuWFNgđćžĹŤČĢÁĢܡ Set objIE = MAGIC(hWnd) Ěć¤Č`ĹAnhŠçIEIuWFNgđ枡éű@Íł˘Ĺľĺ¤Š źÉű@Ş ęÎAnhŠç枡éű@ÉąžíčÜšń ˝žľAîÉćčOŠçCuđ_E[hľÄŤÄgpˇéAƢÁ˝ąĆÍōȢš
721 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 08:15:14.57 ID:BN72T8jr0.net] >>700 ʊǤŠĚťčŞ˛ŻÄé LocationNameĆŠLocationURL ˝čđ˛×ȢĆ
722 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 11:59:50.98 ID:uwQxUsVy0.net] IEŞĄ éŠŕľęȢĚɊŠÁ˝ç˛Żżá¤R[hĹ˝Š¨Šľ˘Ć´śČ˘Ě?
723 źOFftHgĚźłľłń [2017/12/24(ú) 15:06:20.77 ID:6Phr71Y20.net] Dim u As Long Range("A1", "I5").Value = u u = Round(u, 4) lĚÜüľ˝˘ĚÉS[ÉČéI
724 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 15:18:15.83 ID:CcW1Sn5Aa.net] >>703 uÉÍ˝ŞüéĚH
725 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 15:18:38.84 ID:CcW1Sn5Aa.net] ÄŠAťčá[ÉČéžëw
726 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 15:27:49.11 ID:dho/ilxra.net] ˝ŠŞtĹ^B
727 źOFftHgĚźłľłń [2017/12/24(ú) 15:36:05.76 ID:6Phr71Y20.net] >>704 A1ŠçI5ĚZđ
wčľ˝˘ńžB Ǥˇę΢˘ŠłŚÄę
728 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 15:53:02.16 ID:sjlc/tcta.net] >>707 A1ŠçI5ĚÍÍÉúťľ˝ÎŠčĚu(=0)đüęÄéB üęéĚÍtĹAüę˝ăĹ
ĎXľÄߡKvŕ éB ĹŠçuđgí¸ÉŠŞŠgÉ
ĎXľ˝ŠŞđüęéűŞĘŠČB ťŕťŕŠ˝ÚžŻ
wčˇéűŞęĘIžĆv¤ŞB
729 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 15:54:56.74 ID:CcW1Sn5Aa.net]
wčľ˝˘Čçexcel vba ŽÝč ĹOOčČł˘
730 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 15:56:16.29 ID:CBEBXlX2a.net] Ƣ¤ŠAlŞĄ(zń)žŠçęޯȢžëB
731 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 15:56:53.27 ID:JTJf6bSC0.net] ťęźęĚsĚBńŠçCńđřŤ˝˘ĚšŞAşĚR[hžĆ ˇ×ÄB2-C2ĆČÁľܢܡB ǤˇęÎćëľ˘Š˛łŚžł˘B Dim i As Long Dim Lrow As Long Lrow = Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To Lrow Cells(i, "D").Formula = "=B2-C2" Next
732 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 16:09:57.86 ID:U3mSSLWjx.net] >>711 ŽŤńĹé[vŕĚĚEÓđ "=$B" & i & "-" & "$C" & i ɡ鞯 ÜpsCfbNXđiĹwčľÄ[vńľÄéńžŠçgíČ˘Ć ąĚöx̹ƞÁ˝çVBAgíČÄŕgÝÝĚe[u@\ĹŔťĹŤéŻÇË
733 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 16:11:04.02 ID:O2udkTbW0.net] >>711 Sub foo() Cells(2, 4).Formula = "= B2 - C2" Cells(2, 4).Copy Lrow = Cells(Rows.Count, 1).End(xlUp).Row Range(Cells(2, 4), Cells(Lrow, 4)).PasteSpecial End Sub
734 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 16:13:21.90 ID:JTJf6bSC0.net] >>712 >>713 čŞĆ¤˛´˘Üľ˝B
735 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 17:56:35.14 ID:ZKd7S1fn0.net] >>701-702 R[hÍ ÜĹŕáĹAŔŰÍURLâśŕĚśńŠçťčľÄ˘Üˇ ĄńâčČĚÍACreateObject("Shell.Application").WindowsđFor EachĹSvfđ˛×ÄŕAvfÉťŕťŕÜÜęĢȢ_š IEĚqƾĜݾĨčA^XN}l[W[Ų×éĆvZXŕśÝˇéĚÉAIEIuWFNgđćžĹŤÜšń ľŠľAWindowsAPIĚFindWindowđp˘éĆnhĚćžÍÂ\žÁ˝ĚĹA Set objIE = MAGIC(hWnd)Ěć¤Č`ĹnhŠçIEIuWFNgđ枡éÖđěęČ˘ŠżâłšÄ˘˝žŤÜľ˝
736 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 19:48:46.67 ID:TDjZS1ex0.net] Excel2010š ČşĚR[hđŔsˇéĆA"$A$2"Ş\ŚłęܡB ZÍÍÉY0đtŻ˝ęAZÍÍĚćŞZŞQĆłęé iąĚęB2jĆv˘ń޽̚ŞAĚëčž夊H MsgBox(worksheets(1).range("B2:C3")(0).address)
737 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 21:16:40.55 ID:ODr8GH0o0.net] 0@śáČ@1
738 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 22:01:25.06 ID:TDjZS1ex0.net] >>717 čŞĆ¤˛´˘Üˇ OffSet()žĆ´_Ş[ČĚĹ ť¤˘¤ĚĆŹŻľÄ˘˝ŠŕmęÜšń
739 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 22:44:17.96 ID:4FfGU/eI0.net] Dim FSO As Object Set FSO = CreateObject("scripting.filesystemobject") Dim folder As Object Set folder = FSO.getfolder(t@CpX) Dim f As Object @For Each f In folder.Files @@If f.Name Like "*" & Month(Date) & "*" Then @@@fąąĹt@CźđÉĎŚÄRs[đ쏾˝˘ @@End If @Next t@CźÍuAAAZZBBBvĹę(ABÍśńĹZZÍđń
\Ś) oĹŤ˝Ąt@CđRs[ľÄźOĚZZđÉĎXľ˝ŕĚ(t@C)đŻtH_ŕÉ쏾˝˘Ĺˇ Rs[łt@CźđpłľÄꞯĎXˇéǢű@ފŠçČŠÁ˝ĚĹłŚÄžł˘
740 źOFftHgĚźłľłń mailto:sage [2017/12/24(ú) 23:29:24.13 ID:XB6s5ekxa.net] >>714 ťĚZSĚRangeÉÎľÄ"=B2-C2"ŢŻéB
741 źOFftHgĚźłľłń mailto:sage [2017/12/25() 00:16:31.32 ID:2KDGjSox0.net] >>719 Sub foo(FolderPath As String) Dim FSO As New FileSystemObject Dim c As New Collection Dim Folder As Folder Dim File As File FindWord = "*" & Month(Date) & "*" Set Folder = FSO.GetFolder(FolderPath) For Each File In Folder.Files If File.Name Like FindWord Then Exit For Next If File Is Nothing Then Exit Sub s = Split(File.Path, "\") For i = LBound(s) To UBound(s) If s(i) Like FindWord Then e = Split(s(i), ".") s(i) = Month(DateAdd("m", 1, Date)) & s(1) End If FilePath = FilePath & s(i) If i < UBound(s) Then FilePath = FilePath & "\" Next FSO.CopyFile File.Path, FilePath End Sub ľÄȢŻÇąńČ´śŠČB
742 źOFftHgĚźłľłń mailto:sage [2017/12/25() 08:06:21.04 ID:fMKsEfdQa.net] >>719 fileName = Replace(fileName,,~~)
743 źOFftHgĚźłľłń mailto:sage [2017/12/25() 08:07:54.57 ID:fMKsEfdQa.net] AAAAĆBBBɪȢOńśáȢĆ_žČ
744 źOF717 mailto:sage [2017/12/25() 12:59:33.91 ID:5/ecyLcnM.net] >>721 >>722ń čŞĆ¤˛´˘Üˇ ÜžšÄ˘ÜšńŞ AAABBBśáČÄ AAABBBÉľ˝ęाČPÉLqoܡŠËH żČÝÉABÉÍÜÜęÄȢš
745 źOFftHgĚźłľłń [2017/12/25() 16:18:43.87 ID:dIh/hlW50.net] ńńńń
746 źOFftHgĚźłľłń mailto:sage [2017/12/25() 16:44:33.34 ID:DuOFgh3Va.net] Rs[ľÄt@CźuˇˇéžŻĹľĺH tH_ŕˇĹÉćžľÄéČç fso.copyfile file.Path,folder.Path & "\" & Replace(file.Name,"","~~") žŻĹsŻéńśáË
747 źOFftHgĚźłľłń mailto:sage [2017/12/25() 17:30:49.11 ID:1470x9yD0.net] UserFormÉuÖvĚ{^đÂčĄĚUserFormđXĆoRˇéąĆĹÎbŽÉlđ枾ĢŤ˝˘ĆvÁĢܡ ëÁ˝IđđľÄľÜÁ˝ęÉőŚAßé{^ŕěéƾܡ UserForm1ĚuÖv{^ĚNbNCxgÉČşĚć¤ÉLqľÜľ˝ Me.Hide UserForm2.Show ťľÄUserForm2Ěußév{^ĚNbNCxgÉÍČşĚć¤É Me.Hide UserForm1.Show ¤Ü˘Á˝Ćv˘ŤâAęxPÉßÁÄŠçŕ¤ęxUserForm2đÄ\ŚłšéĆ UserForm2Ěinitializeɢ˝ŞŔsłęÜšńB dűŞł˘ĚĹPĚÖÉ UserForm2.Show Unload Me ƢÄÝéĆAĄxÍQŠçßéÉAutH[ÍůÉ\ŚłęĢܡB[_É\ŚĹŤÜšńvĆoܡ QĚußévÉÍăɢ˝ć¤ÉMe.HideŞ éÉŕÖí縹ĚG[\Ś đ@Í čܡŠH
748 źOFftHgĚźłľłń mailto:sage [2017/12/25() 17:46:45.39 ID:DuOFgh3Va.net] >>727 [U[tH[ĚsŤÍßńÇł˘ľXpQeBÉČ調žŠçâß˝űŞ˘˘Ćv¤ Ƣ¤ĚͳĨŤAinitialiześáČÄactivateCxgÉľÄÝ˝çǤŠË
749 źOFftHgĚźłľłń mailto:sage [2017/12/25() 17:48:18.57 ID:1470x9yD0.net] ˘â˘â˝ŠÔáŚÄé Cł dűŞł˘ĚĹQĚußévÉ UserForm1.Show Unload Me ƢÄÝéĆAĄxÍPŠçQÉŕ¤ęxsą¤ĆˇéĆAutH[ÍůÉ\ŚłęĢܡB[_É\ŚĹŤÜšńvĆoܡ ¢ĹÉĆÉŠhideÍđŻÄˇ×ÄunloadÉľÄŕâÍčQ¨PĚiKĹŻśA[g đ@Í čܡŠH
750 źOFftHgĚźłľłń mailto:sage [2017/12/25() 17:48:59.15 ID:1470x9yD0.net] >>728 čŞĆ¤˛´˘Üˇ ˛×ÄÝܡ ŞŠçČŠÁ˝çÜ˝ŤÜˇĚŨ袾ܡEEE
751 źOFftHgĚźłľłń mailto:sage [2017/12/25() 18:01:10.24 ID:1470x9yD0.net] >>728 ¤Ü˘Á˝ć¤Ĺˇ 3ÔŮÇđ@ŞŠÂŠç¸ŞřŚÄÜľ˝ ´Óš
752 źOFftHgĚźłľłń mailto:sage [2017/12/25() 22:53:06.92 ID:S4ukHgvI0.net] sub test() '}NNŽp
753 źOFGNZŞ étH_ŕĚtH_źĚćž Dim strPattern As String Dim strFolder As String strPattern = "C:\xxxxx" strFolder = Dir(strPattern, vbDirectory) Do While Len(strFolder) > 0 If GetAttr(strPattern & strFolder) And vbDirectory Then If strFolder <> "." And strFolder <> ".." Then 'ifśnÜč 'etH_ŕÉ éGNZt@CźĚćž Dim FSO As Object Set FSO = CreateObject("scripting.filesystemobject") Dim folder As Object Set folder = FSO.getfolder(strPattern & strFolder) Dim f As Object For Each f In folder.Files If f.Name Like "*" & Month(Date) & "*" Then 't@CpXÉĄŞÜÜęĢéę FSO.copyfile f.Path, folder.Path & "\" & Replace(f.Name, Month(Date), Month(DateAdd("m", 1, Date))) Debug.Print f.Name End If Next End If 'ifśIíč End If strFolder = Dir() Loop End Sub 717šŞăĚLqĹęúŇĘčĚŽěđľÄęÜľ˝ Fłń čŞĆ¤˛´˘Üľ˝ ˝žąęžĆt@CźÉP`PQĚđgŚČŠÁ˝čGNZČOŕćžĹŤéĚĹÜžüÇŞKvť¤Ĺˇ [] [ąąóęÄܡ]
754 źOFftHgĚźłľłń mailto:sage [2017/12/25() 23:30:15.25 ID:63usksBrx.net] >>732 t@CĚíŢÉÖľÄÍA[vĚ`ŞĹFSO.GetExtensionName(f.Path)Ěßčlđ˛×ÄđŞňłšéć¤ÉˇęÎA_Á˝íŢĚt@CžŻđĹŤéć¤ÉČéĆv¤ć
755 źOFftHgĚźłľłń [2017/12/25() 23:37:14.60 ID:aEhB4dZD0.net] OOÁ˝ĚšŞÇ¤ľÄŕíŠçȢĚĹłŚÄžł˘ yÂŤzWindows10AExcel2010 ysďÇózVKR[hĚ쏪ōȢ VKbookđ쏾AVBEđNŽľ˝ŰAĘíÍvWFNgEBhEÉ uSheet1-3vŞ\ŚłęéŠĆv˘ÜˇŞA^ÁČÜÜ˝ŕ\ŚłęȢóÔšB j
[Ěu}üvđNbNľÄŕAWW
[ŞOCAEgÉČÁľܢA VKR[hĚ쏪sŚČ˘óÔšB ITÉkľÄŕßÄĚáĆĚąĆĹíŠčÜšńĹľ˝B RplŠçĚofficeĚCŕs˘Üľ˝ŞüPłęÜšńB }NĚZL
eBÍuSÄLřvĹÝčłęĢܡB xlsm`ŽĹŰśŕľÄÝÜľ˝Ş_Ĺľ˝B PCÄNŽŕľÄÝÜľ˝B ŻęPCĹAůśěŹ}NĚŔsÍsŚÜˇB ůś}NĚVBEđNŽľ˝ŰAvWFNgEBhEâR[hEBhEÍ ĘÉŠŚÜˇŞAR[hEBhEĹ1śĹŕŇWˇéĆAF5ŔsÉ ut@CފŠčÜšńvĆĚG[ŞoܡBXebvŔsĹ௜šB ŇWÍáŚRgsĹ௜G[ŞoܡB VKěŹÍSÄɨ˘ÄsšB ŠŽL^đľć¤ĆˇéĆu}NŞL^ĹŤÜšńĹľ˝vĆG[ŞoܡB }NĚěŹ{^͚ܡŞAľÄŕR[hEBhEŞNŽľÜšńB VKěŹĆŇWާŔłęĢéć¤ČĚšŞAÇąŠçĎXˇéĚŠŞ Ç¤ľÄŕíŠčÜšńĹľ˝BŕľíŠéű˘çľ˝çłŚÄ˘˝žŻČ˘Ĺľĺ¤ŠH X`Ĺ ęÎAYXbhÉUąľÄ˘˝žŻéĆŠčܡB ć뾨袾ܡB
756 źOFftHgĚźłľłń mailto:sage [2017/12/26(Î) 01:59:52.47 ID:fIC/1lmja.net] >>734 GNZĚWXgíľÄÝÄŕ_H
757 źOFftHgĚźłľłń mailto:sage [2017/12/26(Î) 06:55:25.36 ID:cWcYrW8d0.net] >>734 ťĚ}VÉVK[U[ÂÁĝ۪śˇéH e|âçÁľ˝çźéŠŕľęń ĆZL
eBÎô\tgŘÁġƊ
758 źOFftHgĚźłľłń mailto:sage [2017/12/26(Î) 06:58:32.09 ID:gkP6o6Ks0.net] >>719 u01vƢ¤t@CźĚRs[ŞAu02vĆľÄAŻśtH_ÉüęéĚŠ tH_ŕÉAu01vu02vŞ éĆľÄA ąĚóÔĹAŕ¤ęxAŻśđˇéČćIw ÝvĆľÄAŻśtH_ÉüęéĚÍ¨Šľ˘B ŮČétH_Éüęé׍ íŠč⡢ć¤ÉeˇéÍAźOÉA717 ĆüęÄę
759 źOFftHgĚźłľłń mailto:sage [2017/12/26(Î) 07:54:39.17 ID:6qOsufVw0.net] >>735 >>736 732šAX čŞĆ¤˛´˘ÜˇB ĹŤAofficeĚÄCXg[ŕoĺľÄ˘ÜˇB WXgŠŕHĆÍITÉÍžíęÜľ˝ŞEEEE VK[U[ÍÜžľÄ˘ÜšńB ZL
eBÎô\tgÍITĚÇČĚĹAŘęéŠÇ¤ŠsžĹˇŞ ˇ˘ÄÝܡB ążçĚŤÝÍŠîŠçČĚĹAĚXŞxČéŠŕľęÜšńB ć뾨袾ܡB
760 źOFftHgĚźłľłń mailto:sage [2017/12/26(Î) 08:20:51.65 ID:upqov7ALa.net] >>737 ^pĚbÜĹÍÇOśáË ĆÍŠŞĹlŚčᢢć
761 źOFftHgĚźłľłń [2017/12/27(
) 09:27:07.83 ID:58xyBvha0.net] >>721 ĆŠ>>732 ĆŠĚR[hĹÓĄíŠńȢƹ몢Š é iR[hŞÔáÁÄéÁÄÓĄśáČÄAąÁżĚmŻŞŤčČÄđŞÇ˘tŠČ˘ÁÄӥšj ܸ>>721 Í ČńĹRNVđéžľÄéĚŠH ľŠŕČşéžľ˝ĚÉgíȢ̊H Ďeͽ̽ßÉgÁÄéĚŠH t@CĚpXđsplitĹŞľÄéŻÇA t@CźžÁ˝çinstrrevĹ\đTľ˝Ů¤ŞbŞ˘ńśáȢŠH X >>732 Í [vĚĹdimg¤ĚÍĺävČĚH Ąńéžľ˝çG[ÉČ蝤 ăAęÔm轢̪ If strFolder <> "." And strFolder <> ".." Then ąęAǤ˘¤ÓĄČĚŠđŕđ¨č˘ľ˝˘ i˘Äél˝żÉP`ÂŻÄéńśáČÄA{ÉŞçȢđłŚÄ~ľ˘žŻĹˇj ÇČ˝ŠłŚÄžł˘Ać뾨袾ܡ
762 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 09:45:06.41 ID:fOQst04i0.net] >>740 R}hvvgĹ cd .. ÁÄĹÁÄÝ˝çťé@ c:>test>test1> cd .. efBNgÉÚŽˇéBÂÜčetH_Ě u.v@Íu.v@JgtH_Ě
763 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 10:22:00.13 ID:fOQst04i0.net] QگĢĽŠçßżáżážČ^^; c:\test\test1> Ƣ¤tH_Ş Á˝ĆľÄťąĹ c:\test\test1>cd .. ĆĹÄÎ c:\test> ĆefBNgitH_jÉÚŽˇé
764 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 10:45:52.46 ID:90Vjgj1Fa.net] >>740 [vŕĹDimľÄŕG[ÉÍČçČ˘ć ťĚsxŞčÄçę鞯śáȢŠČ tH_źĚ"."Ć".."ÍÎpXśáČŠÁ˝ŠČ ęÂăĆńÂăĚetH_žÁ˝Ćv¤ ÔáÁÄéŠŕľęȢŠç˛×ÄË
765 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 10:46:46.56 ID:90Vjgj1Fa.net] AÔáÁÄ˝w .ŞJgtH_Ĺ..ŞĐĆÂăĚetH_Ë ˇńÜšńČ
766 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 10:48:05.37 ID:90Vjgj1Fa.net] ĆsplitĚâčÉÖľÄÍÇÝ⡳ƊŤâˇłśáË ´ŕćâé yžŠçË
767 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 12:51:59.50 ID:u0gTyM9V0.net] beforeStr = " 12˘" afterStr = beforeStr.sub(/\d\d/) do |matched| month = matched.to_i + 1 month = 1 if month == 13 sprintf("%02d", month) end puts afterStr #=> 01˘ Ruby ĹAśńđuˇľ˝B ą¤˘¤ÍARuby ŞÇ˘B PowerShell ĹŕěÁÄÝ˝ŞAČPČuˇű@ŞČŠÁ˝B uˇÉAR[obNÖđćęéAsub Ěć¤ČÖŞłŠÁ˝ íŠč⡢ć¤ÉżâŇŞeˇéÍAźOÉA717 ĆüęÄę
768 źOF744 mailto:sage [2017/12/27(
) 12:58:13.04 ID:u0gTyM9V0.net] ÔáÁĢ˝ĚĹACłľ˝ beforeStr = " 12˘" afterStr = beforeStr.sub(/(\d\d)/) do |matched| month = $1.to_i + 1 month = 1 if month == 13 sprintf("%02d", month) + '' end puts afterStr #=> 01˘
769 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 13:38:32.87 ID:lJNZ7xHQ0.net] VBA׾nßÄÔŕȢÉgńž}NÉ replaceƢ¤źOĚvV[WđěčÜľ˝ ťĚąĆ͡ÁŠčYęĽ̚ŞAĹßÉČÁÄťĚ}NđčźľˇéKvŞ ÁÄ ťĚĹReplaceÖđg¨¤Ćľ˝çG[Şoé ¨Šľ˘ČĆv˘˛×ÄÝ˝çSub replace()@đŠ vV[WĚźOđĎŚ˝çĺävŠĆv˘ŤâČşŠÇąŠÉ˝ŠŞcÁĢéć¤ĹG[ŞĹé ęUťĚW
[đđúľ˝çReplaceÖÍgŚéć¤ÉÍČčÜľ˝ ľŠľAČşŠReplaceĆĹÁÄŕreplaceĆČé replaceĆĹÁÄŕťĚÜÜreplace replaceđReplaceÖĆFŻľÄęÄ͢éŕĚĚAÇąŠÉ˝ŠŞcÁÄ˘é źĚubNĹÍNŤČ˘ĚĹÜťęŮÇxáÍȢŕĚĚAྪŠéű˘çÁľáÁ˝ç Ǥˇę΢˘ŠłŚÄžł˘
770 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 13:47:19.08 ID:fCTi8N3va.net] ReplaceĹĎéžľÄÝ
771 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 15:20:29.55 ID:DW1nj5RcM.net] >>748 圏śÍAťÝJ˘ÄéR[hSĚĹęłęľܤŠçČB ĎĹŕvV[WĹࢢŠçAč`ľźˇĆŕĹoŚÄé圏śŞăŤłęéŰ ąĚdlĚš˘ĹAźl̢˝ubNJ˘˝ÜÜCłŰśˇéƢÂĚÜÉŠĎíÁÄ˝čˇéB ˇéĆWinMergeĆŠĹDIFFľ˝ĆŤÉCb ĆčžĹľ˝
772 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 18:43:06.62 ID:8Kp24ZKYM.net] vV[WOɢ˝IuWFNgĚő˝Í˘ÂÜĹČĚž夊H O[oĎÉIuWFNgđŰśľÄťęđfunctionĹÔˇVOgIuWFNgđěÁ˝ĚšŞA vOŞęxIšľÄÄxNŽľ˝ŰŕIuWFNgŞcÁĨčAS~f[^ĹG[ŞNŤÄ˘ÜˇB ęxt@CđSÄÂśéÜĹÍcéŕĚČĚž夊H
773 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 18:55:21.26 ID:K6GLaCg8a.net] >>751 O[oĎČçG[Ĺ~ÜéŠubNŞśŤÄéŔčÍśŤÄéńśáË
774 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 19:03:21.38 ID:4eyrVwN9H.net] >>751 ĆEndĹ~ßéĆĘ
775 źOFftHgĚźłľłń [2017/12/27(
) 20:23:28.17 ID:ry3vSREld.net] >>753 End Č AšßÄ Class_Terminate()ľÄ~ľŠÁ˝
776 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 20:40:54.92 ID:RyDVOJzS0.net] >>734 @šB officeĚÄCXg[ľÄÝÜľ˝Ş sďđÁš¸Ĺľ˝EEEEłO K˘ůś}NÍŽĚĹAVKěŹĆŔsÍ źĚPCĹâéąĆɾܾ˝B sďÍExcelžŻĹAAccessĹÍÁÉâč čÜšńĹľ˝B ę˛ńÜĹB
777 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 20:55:52.26 ID:K6GLaCg8a.net] >>754 ÄŠA}NIíÁ˝çúťˇčáćËH ōȢdlČĚH
778 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 21:08:27.21 ID:CubzVxEy0.net] >>756 }NIíÁ˝çNŞúťˇéńH
779 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 23:24:01.01 ID:TIhBPqs40.net] >>755 }NĚL^ŠçěđL^ˇéĆ WW
[쏳ęéH
780 źOFftHgĚźłľłń mailto:sage [2017/12/27(
) 23:29:35.39 ID:0b7v1yOK0.net] >>753 EndžĆČɪܸ˘Ěž夊
781 źOFftHgĚźłľłń mailto:sage [2017/12/28(Ř) 02:02:28.11 ID:uSnaEunu0.net] >>759 GlobalĹ۾ĢéĆzčľÄ˘˝ĎŞ˘ÂĚÜÉŠNAłęĢÄzčOĚŽě𨹾ɢÚÉ Á˝ąĆŞ čܡB ˛×ÄÝ˝çAG[śÜ˝ÍEndĘßÉGlobalĎĚő˝ŞsŤéć¤ĹAA ťęČAGlobalĎŕEnd StatementŕđŻÄ˘ÜˇB LŻŞKvČęÍACelllâValidationlÜ˝ÍDocumentPropertyđg¤ć¤ÉČčÜľ˝B
782 źOFftHgĚźłľłń mailto:sage [2017/12/28(Ř) 02:45:31.50 ID:m7DZbaKUH.net] VBASŇš 2ÂĚZŞCR[ÉČéć¤ÉĘĚZĚlđĎťłšéƢ¤VBA\ođ쏾˝˘ĚšŞAG[ΊčĹSiÝÜšńEEE ťÝÍ7sÚŠç10sÚÜĹ\śG[ŞoĢܡB ÇČ˝Š˛ł
783 źOFöč˘ÜˇEEE Sub Solver() i = 1 Do Until i = 313 '------------------------------------------- Application.DisplayAlerts = False SolverOk SetCell:="K" & i, ByChange:="J" & i SolverAdd cellRef:=Range("K1:K313"), _ Relation:=2, _ FormulaText:=Range("L1:L313"), _ Application.DisplayAlerts = True '--------------------------------------------- SolverSolve i = i + 1 Loop End Sub [] [ąąóęÄܡ]
784 źOFftHgĚźłľłń mailto:sage [2017/12/28(Ř) 05:04:43.84 ID:BF7frMSQ0.net] >>749 >>750 čŞĆ¤˛´˘Üľ˝B
785 źOFftHgĚźłľłń mailto:sage [2017/12/28(Ř) 08:06:18.47 ID:VokPBxMja.net] >>757 }NIíÁ˝çIuWFNgjüˇéńśá_ČĚŠĆž¤ąĆžŞ Ü _ČgpČńžë¤ŻÇ
786 źOFftHgĚźłľłń [2017/12/28(Ř) 08:14:47.46 ID:ezpQ52SId.net] C~fBGCgEBhEÉ éIuWFNg̹ƞćË
787 źOFftHgĚźłľłń mailto:sage [2017/12/28(Ř) 17:26:42.52 ID:GeC01ME+0.net] >>751 ,760 ťŕťŕvOŞIšÁÄǤ˘¤đłľÄéH zgÉvOŞIšˇęÎAˇ×ÄĚĎĚŕe͸íęéć ˝ńÉŔsˇéR[hŞłČÁ˝žŻĹÍvOÍIšľÄ˘Č˘ EndÍvOđIšłšéŻÇAG[o˝žŻĹÍIšˇéĆÍŔçȢ fobOĹÄŔsâĎŠ˝čĹŤéĚÍvOÍfľ˝ŻÇIšľÄȢŠç
788 źOF753 mailto:sage [2017/12/28(Ř) 23:10:38.77 ID:lWNTZScR0.net] >>758 753šB }NĚL^ťĚŕ̪ōȢĚšB L^ľć¤ĆˇéĆu}NĚL^ŞĹŤÜšńĹľ˝vĆ G[ŞoľܢܡB VKěŹĆŇWŞSħŔłęĢéć¤ĹˇB ZL
eBÍuˇ×ÄLřvĹÝčľÄ¨čA ťąĹĚâčÍł˘Ćv¤ĚšŞEEEE
789 źOFftHgĚźłľłń mailto:sage [2017/12/29(ŕ) 04:00:07.55 ID:G/qmS2zk0.net] >>761 "_"@ÍĚsđÂȰé˝ßÉÂŻ˝Ěžë¤ŻÇ Application.DisplayAlearts = True ĚOĚsÉŕ "_" Şt˘Ä˘éŠç ˝Š\čtŻYęŠAÔáÁÄíľÄľÜÁ˝ŕĚŞ éĚĹÍ
790 źOFftHgĚźłľłń mailto:sage [2017/12/29(ŕ) 04:08:47.98 ID:G/qmS2zk0.net] ZL
eB[xęÔ˘Ć_ČńśáË
791 źOFftHgĚźłľłń mailto:sage [2017/12/29(ŕ) 07:22:34.45 ID:b/Z/hzqU0.net] >>734 [AĚťńČŰÉ˝Á˝ąĆ éć ´öÍŻśŠÇ¤ŠÍŞŠçńŻÇ ´ĚęĆńĹŕČ[˘KwĚtH_Éu˘Ä˝ç VBEĚV[gW
[ŞÂ\ŚłęÄR[hŞěŹĹŤČČÁ˝ ťĚt@CAĆč Ś¸ó˘KwĚtH_â ÇąŠĚT[oÉu˘Ä˘éČç NCAg¤ÉRs[ľÄŕemFoéH
792 źOFftHgĚźłľłń mailto:sage [2017/12/29(ŕ) 08:53:00.31 ID:JNsjSKSN0.net] 732A753š FlX čŞĆ¤˛´˘ÜˇB ěŹĚsďÍASĚVKBookĹŕNąčܡB ůś}NĚęÍAR[hĚ\ŚĆŔsÍsŚÜˇŞ ŇWާŔłęĢܡB â誜ľÄŠçAźĚPCĹVK쏾˝}Nđ YPCĹŔsľć¤ĆľÜľ˝ŞAťęÍR[hĚ\ڎç ĹŤÜšńĹľ˝Bt@CT[o[oRĆŠĹÍČ fXNgbvăÉu˘ÄŔsľÄ௜šB AccessĹÍÁÉâčȢĚĹAVBAťĚŕĚĹÍČA ExcelPĚĚ˝ŠžĆÍv¤ĚšŞAFÚŠŞÂŤÜšĘB
793 źOFftHgĚźłľłń mailto:sage [2017/12/29(ŕ) 10:57:41.44 ID:MXSoKJ1y0.net] >>767 >>761 š ęRsyľÄgÁ˝ĚĹ˝ŠÁľÄľÜÁ˝ĚŠŕľęÜšńEEE mFľÄÝܡA čŞĆ¤˛´˘ÜˇB
794 źOFftHgĚźłľłń mailto:sage [2017/12/30(y) 12:22:18.46 ID:cGzM6pFo0.net] CreateObject("System.Collections.ArrayList")ÁÄâÁ˝ç .NETĚArrayListŞVBAĹgŚÄľÜÁ˝ńĹˇŞ ąęBľ@\ĆŠśáČÄłŽÉgÁĢ˘ńšćËH
795 źOFftHgĚźłľłń mailto:sage [2017/12/30(y) 13:25:09.57 ID:dKM8JRI70.net] OÉŕbčÉăŞÁ˝ŻÇ .NETĚŮńĚęÍVBAŠçŕgŚé t@XÉŕ˘Ä Á˝ć¤ČCŞˇé źĹăÖĹŤéĚĹArrayListđí´í´g¤bgÍȢƢ¤ąĆĹ ťĚ
796 źOFĆŤÍIíÁ˝Ćv¤ [] [ąąóęÄܡ]
797 źOFftHgĚźłľłń mailto:sage [2017/12/30(y) 15:32:35.43 ID:cGzM6pFo0.net] >>773 QlɾܡB čŞĆ¤˛´˘Üľ˝
798 źOFftHgĚźłľłń mailto:sage [2017/12/30(y) 15:33:00.15 ID:xXJ5T9Ia0.net] >>772 .Net FrameworkĚ@\ĹRXgN^ÉřđnˇKvĚȢŕĚÍgŚé羢 >>773 ArrayListÍeí\bhŞľÁÄéŠçRNVćčg˘âˇ˘ńśáËHL[đgíȢČç ˝žx˘ĚŞ˝ÜÉ
799 źOFftHgĚźłľłń [2017/12/31(ú) 01:12:29.94 ID:z2hgHR3O8] tH_(C:\print)ŕĚĄĚPDFt@C(t@CźsKĽ)đAeX1ĹÚĚÝAąóüľ˝˘ĆvÁÄܡB VBAâR}hCSŇšŞAlbgŲ׽ƹëPDF xchange viewerĚR}hCĹ1ĹÚĚÝAąóüˇéű@ÍíŠčÜľ˝B ľŠľAşLĚć¤Éet@CÉ¢Ät@CźŕpXŕLھȢĆ_Čć¤Ĺľ˝B PDFXCview.exe /print:pages=1 C:\print\123.pdf C:\print\abc.pdf VBAĚűĹÍşLĚć¤É*.pdfĹt@CźKvČAąóüōܡŞĹwčĚdűŞŞŠčÜšńB /tđĆęÎóü_CAOJ˘ÄĹwčōܡŞA˘ż˘żSÄĚt@CÉ¢ÄwčľČ˘Ć˘ŻČ˘ĚĹ]čÓĄŞ čÜšńB ˝ŠÇ˘ű@ŞČ˘Ĺľĺ¤ŠB Sub pdfóü() Dim strPath As String Dim strFilename As String Dim myShell As Object Set myShell = CreateObject("WScript.Shell") strPath = "C:\print" strFilename = Dir(strPath & "\*.pdf") Do While strFilename <> "" myShell.Run ("AcroRd32 /t " & strPath & "\" & strFilename) strFilename = Dir Loop Set myShell = Nothing End Sub
800 źOFftHgĚźłľłń [2017/12/31(ú) 08:34:16.68 ID:5sx4VZ0k0.net] >>774 Windows APIžÁÄgŚéńžźH
801 źOFftHgĚźłľłń [2017/12/31(ú) 08:58:37.79 ID:TXRnAgcd0.net] VBAĚŰśű@ÉÂ˘Ä obNAbvǤľÄܡŠH VBAĚ}NžĆßétˇŠČ˘ľAoOÁġéĆ}NĚÂSÁŚżá¤ĚĹQÂç˘ĚobNAbvđĘt@CĹĆÁÄ éńšŻÇFłńÍǤľÄܡŠH ÜžflČĚĹvÁ˝ĚĆá¤ÉČÁÄßšČČéąĆŞľĺÁżă¤ éĚĹ obNAbvÍĺ
802 źOF775 [2017/12/31(ú) 09:02:17.31 ID:TXRnAgcd0.net] >>778 ßétÁÄÜé˘îóĚzË
803 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 09:09:26.61 ID:PwPBZUwb0.net] >>778 o[WÇVXeüęÄȢČ篜ÉČéĹľĺB ´ŕŻśĹt@Cź_Ver nnn.xlsmĆž¤Š˝żĹ3˘ăĘtH_ÉŰśľÄéŻÇ i˝ÜYę˝čˇé^^;
804 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 09:49:30.47 ID:aMifsa1T0.net] }NLčGNZt@CŠĚÉf[^đüęÄ^pˇéĚĆA f[^ÍĘGNZt@CÉľÄ}NLčGNZt@CĹf[^üčGNZt@CđěˇéĚĆA ÇÁżŞeiXľâˇ˘ěčűžë¤ŠH ˘ÂŕYńžܤ
805 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 09:52:29.70 ID:35C6Q16O0.net] AhC}Nɾܾĺ¤
806 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 11:06:17.25 ID:fsRyV04Q0.net] }NĚo[WÇÁÄǤâÁÄܡH C|[gt@C𪯡ŹéĆsÖČĚĹshareFanctionŠ˝˘ČC|[gt@CÉg˘ť¤ČÖSüęÄܡŞASŇČŕĚĹJÉÖĚřâßčlđĎŚ˝Čéć¤ČęĘŞ˝X č ĄÜĹĚshareFanctionĆݡŤŞŰÄČČčܡŞAřĆßčlđCłľ˝ÖČOĹoOđ׾˝ć¤ČÖÍĹVđgpľ˝˘ĹˇB ĄÍRsyĹÎľÄܡŞ
807 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 11:27:58.03 ID:rNrttlhS0.net] ÂlČĚŠdČĚŠŠČ˘ĆLřČXŞÂŠČ˘ĚĹÍȢŠČ
808 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 11:34:47.18 ID:fsRyV04Q0.net] >>784 Âlš ÂlĹJAÂlĹgp
809 źOFš [] [ąąóęÄܡ]
810 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 11:36:51.05 ID:rNrttlhS0.net] >>785 ČçGithubĆSourceTreeĹőKÉĹŤéńśáȢĚH ´ŕSRxČg˘ąČľĹŤÄȢŻÇyżńž
811 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 11:55:17.97 ID:fsRyV04Q0.net] >>786 čŞĆ¤˛´˘Üˇ ´ÁĆÝ˝´ś\[Xt@CĚo[WÇÍĹŤť¤ĹˇŞA áŚÎT[o[ é˘Í[J}VăÉťĚshareFanctionđgpľÄ˘éŞUľÄ¨˘Ä éęA ťęźęĚ}Nđ˛×ÄXVľ˝˘t@CđIđACłĹ}NđKpˇéA Ý˝˘Čg˘űÁÄĹŤéńšŠËH
812 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 11:57:21.02 ID:fsRyV04Q0.net] >>787 >>áŚÎT[o[ é˘Í[J}VăÉťĚshareFanctionđgpľÄ˘éŞUľÄ¨˘Ä éęA Cł shareFanctionđgpľÄ˘ét@CŞ
813 źOFftHgĚźłľłń [2017/12/31(ú) 12:53:47.48 ID:TXRnAgcd0.net] @[WÁÄdśáȢŠç˘ÂŠç˝ÜĹĹUPđÉľ˝ç˘˘ŠíŠçČń @\ĎXľ˝çK¸ŠŕľęȢŻÇAÂlpžĆâčČŞçĎXľÄ˘éŠço[WŞź[ȢąĆÉČéB
814 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 13:10:06.47 ID:sYPUhsnja.net] o[WÇÍĺĎžćČ CXg[[Ý˝˘ČĚÂÁÄǤɊľć¤ĆľÄ骤ÜsŠíŠçń
815 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 13:25:39.05 ID:pVPyHW7p0.net] >>789 > o[WŞź[ȢąĆÉČéB âčȢžĺ
816 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 13:31:04.61 ID:fsRyV04Q0.net] >>790 ępĚ\tgŞČŻęÎ1sheetđ}NÖÇpÉľÄeÖŕÉver x.y.z(xĎXĹݡŤłľAyĎXĹݡŤ čAzĎXÍݡŤ čoOCłÝ˝˘ÉľÄ) W
[đC|[gľ˝t@CđI[vÉACxgmĹčĚÇt@CđőAVľ˘o[WŞ ęΊŽĹĄÜĹĚW
[đđúAy,zo[WŞĹVĚt@CđC|[g Ý˝˘ÉˇęÎŔťÂ\ť¤ĹˇŞ\čÔŞŠŠčť¤Ĺc
817 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 13:56:42.14 ID:hllNi94Va.net] }NĹŻćB o[WÇB ZL
eBŞáşˇéŻÇČB
818 źOFftHgĚźłľłń [2017/12/31(ú) 18:06:59.07 ID:nOUozIFo0.net] ťŕťŕ_ĆľÄA˝ŠŞ}NĹo[WÇŞKvÉČéć¤ČÍě()ěéČćw L~˝żÍęĚGNZ}NĹ˝đzą¤ĆľÄ¨éĚŠËw
819 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 18:13:51.04 ID:2b4EaTgg0.net] dĹVBAľÁÄéĆFXČRŠçŹł˘}NĹŕo[WÇŞKvÉČÁÄéB
820 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 19:27:51.32 ID:rNrttlhS0.net] >>794 ŕeŞŽżáŽżáÉČÁ˝ç˘éŕĚÉÍo[WÇŞKvł Íě()ĹČÄŕÄ\zÍŠÁ˝é˘ŠçČ
821 źOFftHgĚźłľłń [2017/12/31(ú) 19:58:25.49 ID:nOUozIFo0.net] >>796 Íě()śáȢĚÉŽżáŽżáÉČéÁÄÇńžŻÄ¸ÁۤÉ}N˘Äńžćw
822 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 20:00:31.71 ID:pVPyHW7p0.net] ĐŕÉWJˇéĆŠĹT|[gŞKvČço[WÇŽç˘ÍK{žë >>794 ÍłmˇŹ
823 źOFftHgĚźłľłń [2017/12/31(ú) 20:24:53.68 ID:nOUozIFo0.net] >>798 mŠÉ¨ÜŚçĚlŚéÍŠŕŠńŻÇČw Ęɢ˘âł\vlÉžéČçČÄŕw
824 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 20:28:42.31 ID:1PdKj8Yj0.net] Ü˝]bgNŠB
825 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 20:42:44.41 ID:rRjJbr8wx.net] ]bgNÁÄľÍCĹˇŽŞŠéćË
826 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 20:54:32.08 ID:KnonKKai0.net] OLDtH_Ét@CźĚăÉútÂŻ˝t@CđRs[ľÄé
827 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 21:20:00.26 ID:A+5By6dM0.net] ̤ŠoCit@Cđo[WÇVXeÉo^ľ˝ĆąëĹ PČénńobNAbvÉľŠČçń¤ŚÉ V[gđXVľ˝žŻĹo[WŞĎíéŠçӥȢĚĹÍ
828 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 22:37:10.58 ID:rNrttlhS0.net] Íě2.0
829 źOFftHgĚźłľłń [2017/12/31(ú) 22:50:02.43 ID:InzisC8s0.net] YÝÍÝńČęČńžËB´Ío[WAbvÉYńĹAhCťľ˝Ş ąęÍąęĹYÜľ˘ĆąëŞ éńžČBV[gđúťiÂÜčClearĆŠClearContentsjˇé ĚÉŕć[lŚČ˘Ć\ëȢBAhCÍÇĚubNĹŕŔsoľܤŠçPCÉa˘cŞg¤ĚŕlŚéĆ ĘĚű@đlŚ˝űŞÇ˘ńžë¤ŠĆŠlŚÄéB
830 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 22:55:00.56 ID:rNrttlhS0.net] >>805 AhCÄxlamĚąĆH žÁ˝çťĚV[gÍęŘgÁżá_žć vOW
[žŻĚśÝɡé׍
831 źOFftHgĚźłľłń [2017/12/31(ú) 23:12:43.15 ID:InzisC8s0.net] >>806 ťč᪊ÁÄéÄĚBubNđwčˇéÍuActiveWorkBookvơ龊ȢißÂŻÍćȢŞj Šçć[lŚÄR[hđŠČ˘ĆëȢęŕ éÁÄbBg¤AĚ9Í}NÇąëŠV[gÖŕ mçȢć¤ČAČńžŠçB
832 źOFftHgĚźłľłń mailto:sage [2017/12/31(ú) 23:41:30.90 ID:rNrttlhS0.net] >>807 EđX^[gˇéFunction â SubÍAhC¤ÉÍȢBYBook¤É é EťĚFunction â SubŞAhC¤Ě@\đg¤ žĆˇéĆAhC¤ÉuActiveworkBookvČńÄKvÍČÄAÎŰĚSheetâRangeđ řĹóŻć鞯ÉČéĆv¤ńžŞË
833 źOFftHgĚźłľłń [2017/12/31(ú) 23:52:05.59 ID:InzisC8s0.net] >>808 ěơéBookÍxlsxČńžćB}NÍxlms¤É˘Ä éB ČńĹą¤ľ˝ŠĆ˘¤ĆAdżAubNÍnűŠĄĚÉńoˇéęŞ éŠçB ˝ĚŠíŠçȢžë¤ŠçिĺÁĆĆAŞĘf[^Ěě ČńžćB
834 źOF806 [2017/12/31(ú) 23:53:24.81 ID:InzisC8s0.net] xlmsśáËŚâAxlamžČB
835 źOFftHgĚźłľłń [2018/01/01() 04:27:25.57 ID:WDGj6QXoH.net] >>809 }NLřubNŠç }NłřubNđJ˘ÄľÄŰśľÄÂśé Ƣ¤ű@ŕLéĆv¤
836 źOFftHgĚźłľłń mailto:sage [2018/01/01() 09:37:05.14 ID:hnfikatx0.net] ŠŽľ˝˘Čç>>811 žë¤ľAěŇŞJ˘Ä˝Šľ˝˘Čçj
[ÉÇÁľĆŻÎ˘˘žŻžĆv¤ >>809 ÍłmČĚŠżĺÁƪŢńžë¤Č
837 źOFftHgĚźłľłń [2018/01/01() 13:40:19.53 ID:iV2QIiO7H.net] >>812 ěĆubN¤ÉR[hŻČ˘ńžćBmÁ˝ŠˇńČć{P
838 źOFftHgĚźłľłń mailto:sage [2018/01/01() 13:55:03.62 ID:7v1CUCWaM.net] >>813 ěĆubNÉR[hČńŠvçńžë w mçȢČçŮÁÄë ÄŠAAhCĹj
[ÇÁČńÄî{Ěî{žĆv¤Ş toshimana.hatenablog.com/entry/2014/01/26/204938
839 źOFftHgĚźłľłń mailto:sage [2018/01/01() 14:25:45.74 ID:7yffOGmB0.net] mçȢąĆđfźÉmçȢƞ˘Čł˘
840 źOF mailto:sage [2018/01/01() 14:27:07.60 ID:tZ/lpIQo0.net] ĄN͢˘NÉČéŠČ
841 źOFftHgĚźłľłń mailto:sage [2018/01/01() 14:29:26.10 ID:UomJiKNZ0.net] >>814 Workbook_AddinUninstall@ÄĚÍmçČŠÁ˝ČB Workbook_Open@ˇéĚĆřĘÍá¤ńžë¤ŠH
842 źOFftHgĚźłľłń mailto:sage [2018/01/01() 14:54:13.21 ID:ixsE+qrMx.net] Ü˝]bgNŞ\ęÄéČ ĚnŞoüčˇéć¤ÉČÁÄŠçrꡏ
843 źOFftHgĚźłľłń mailto:sage [2018/01/01() 15:45:18.49 ID:bzNinO0Ma.net] >>817 ćlŚëć
844 źOFftHgĚźłľłń mailto:sage [2018/01/01() 16:11:19.12 ID:PLRWaMeF0.net] >>819 ¨ÁĆA Workbook_AddinInstallđ Workbook_AddinUninstallĆŤÔጽ
845 źOFftHgĚźłľłń mailto:sage [2018/01/02(Î) 09:36:26.90 ID:nA397GZea.net] >>820 žĆľÄŕž CxgĚžtĚÓĄťĚÜÜžć ćlŚëć
846 źOFftHgĚźłľłń mailto:sage [2018/01/02(Î) 12:29:02.41 ID:MKa2S+Tjd.net] >>821 uÎŰĚAhCđQĆÝčľÄ˘éubNđJ˘˝vƢ¤CxgđzčľÄ˝ ť¤śáȢĚË
847 źOFftHgĚźłľłń mailto:sage [2018/01/03(
) 10:57:08.56 ID:rhTFyGx/0.net] >>806 ťńČąĆÍȢB ÝčlđŰśˇé˝ßĚinit@CĚăíčɡéĆŠAev[gĚăíčɡéĆŠAg˘šÍňR éB
848 źOFftHgĚźłľłń mailto:sage [2018/01/03(
) 11:46:24.84 ID:ZpYRfYyG0.net] AhCɡéÉľÄŕČńÉľÄŕ^pŞľÁŠčłęÄȢĆÓĄŞČ˘ t@CźâV[gźöxŞŰŘłęÄȢČç}NťČńÄúßë
849 źOFftHgĚźłľłń mailto:sage [2018/01/03(
) 11:59:35.70 ID:Uz65NhYa0.net] >>823 ÝčlđŰśˇéĚÍâ߽٤ŞÇ˘Ćv¤ČB o[WAbvľ˝ĆŤÉÝčlŞZbgłęľܤƊAGNZoOĚŞŤYŚĹubNjšĚëŻŤŞ éB ō鞯AhCÍÇÝćčępĹ^pˇé׍žĆv¤B ßÉŕV[gÉŰśˇéć¤ÉěÁÄâčŞNŤ˝ĚĹAo[WAbvÉxmlÉRo[głš˝Ş éí
850 źOFftHgĚźłľłń mailto:sage [2018/01/03(
) 12:49:50.09 ID:lLEkaf6s0.net] ¨OĚoOđŞÉłęÄŕČ
851 źOFftHgĚźłľłń mailto:sage [2018/01/03(
) 14:45:49.49 ID:hfgsKA7ma.net] Ü AÝčÍOoľÉˇéĚŞĘÉŔSôśáËH xlamĚV[gÍžçŠÉpľÄپȢÁ̤v˘Ş`íéěčČóžŠç
852 źOFftHgĚźłľłń mailto:sage [2018/01/03(
) 15:32:51.77 ID:00k1dN96d.net] pŇŞspÓÉZf[^đNAľÄťĚÜÜZ[uľÄŕŠoˇçľČ˘Šŕ
853 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 05:46:13.89 ID:UuI+tM4Q0.net] żâć뾨袾ܡB Ań,Bń,Cń,Dń Aa,111,bbb,20 Bb,111,aaa,30 Aa,222,bbb,10 Bb,111,aaa,10 Aa,111,bbb,15 ăLĚlČ\đşLĚlÉľ˝˘ĹˇB Ań,Bń,Cń,Dń Aa,111,bbb,35 Aa,222,bbb,10 Bb,111,aaa,40 A,B,CńĚlŞęvľ˝çDńđÁZľÄsđíˇéƢ¤ĹˇBf[^Íń1000söšB
854 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 06:37:20.49 ID:MFccPkO20.net] 1000söxČçSUMIFSĆŠĹĹŤéńśáȢĚ
855 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 06:55:39.59 ID:IcyEu6L/M.net] >>829 vÉćéŻÇť¤˘¤r
[đěę΢˘ńśáËH create view V as ( select Ań,Bń,Cń,sum(Dń) as Dń from \ group by Ań,Bń,Cń )
856 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 06:57:20.78 ID:IcyEu6L/M.net] ˇÜńAQÚŻÄÄSQLXƨᢾĽ... >>831 ÍČľĹ
857 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 07:39:39.14 ID:IGCyfMcU0.net] >>829 ŠéŠçÉf[^x[XüŻĚÄ WvˇéL[ĆČéńŞś[ęńAťĚEÉvÎŰĚlńƢ¤2ń`ŽČç f[^^uÉ éĹĹŤéńžŞ
858 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 08:01:11.56 ID:5mprgbRzp.net] >>830 ˇÝÜšńŕžsŤĹľ˝B L[ÚŞ1000íŢČă čAńCSVŠçÇÝńĹŠçđˇé×AOÉWorkSheetÖđěÁĨ̪ᄁóľĹˇB ˝ŠčÍ čܡŠH
859 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 10:15:47.38 ID:fF+rBx/60.net] f[^x[XnĚf[^ÍfźÉf[^x[X\tgĹÇľć¤ćEEEB ANZXĹâęÎ}EX
860 źOF잯ĹIíélČâčžćB [] [ąąóęÄܡ]
861 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 10:22:48.62 ID:d1LyNdol0.net] >>834 ADOĹcsvt@Cđf[^x[XĆľÄÚąľÄ >>831 ɰçę˝ SELECTśđŔsˇéAƢ¤čiŞĆęé
862 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 10:31:44.20 ID:no6Ylxj0a.net] sqlČçselectĆorder byžŻĹˇŢÄžČ đźÉvOgŢĆďÇË
863 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 10:38:07.48 ID:7zx5w2nrd.net] s{bgޢńśáË
864 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 11:56:10.93 ID:iFN99ve4d.net] LINQÁÄgŚČ˘ńžÁŻH
865 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 13:22:48.32 ID:Gj6t78kg0.net] >>829 qftB^[ŠŻÄ\[gľÄŠç ęvđ
866 źOFăŠçÝÄÁZĆÁ tB^[đYę¸É(˝Ş\[gźăɡŽ) [] [ąąóęÄܡ]
867 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 13:42:37.28 ID:hO93+Igl0.net] >>829 Ş ăŇśáȢ´ČńŠą¤˘¤ĚÝéĆ S2łzńÉÔżąńĹif˝pľÄłîâÁżá¤ńžŻÇ ť¤˘¤ĚÍžßČĚH
868 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 13:47:48.60 ID:cJgHrV+ta.net] >>841 žßśáȢľASŇČçłâčVBAĹgŢĚŕ×ÉČéć dĄĚł˘XgěéĚŞââĘ|Ƣ¤ŠAĎGÉČ調ČĆąëžČ GNZĚ@\gŚÎ˘˘Áżá˘˘ŻÇADÝśáȢČ
869 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 13:55:27.88 ID:hO93+Igl0.net] >>842 ¨ęą¤˘¤ĚłîâÁżá¤ĚĺDŤĹŽŹˇéĆ[Ŕ´ź[Ȣ ´ŞgŢ}NÁÄťńČĚÎŠčž î{SŇxĚmŻľŠgíȢĹâÁżá¤ńĹA ą¤˘¤żâđˇélÍAłîâéĆxČéĆŠĘĚRŞ Áġ˘ÄéĚŠČH ĆŠvÁżá¤
870 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 15:19:59.75 ID:kPmYITG+0.net] t@[1ĚÉAIvV{^Ş18 čAIuWFNgźđwOP_1x`wOP_18xĆľÄ{^1đľÄtH[2ÉŘčÖŚéÉIđłęÄéIvV{^ĚLvVđćžľÄĎTUR1Éü꽢ńšŻÇǤľ˝ç˘˘ĹˇŠH
871 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 16:20:08.23 ID:pGh8JphK0.net] >>844 For i = 1 To 18 With Me.Controls("OP_" & CStr(i)) If .Value = True Then TUR1 = .Caption Exit For End If End With Next
872 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 17:41:48.62 ID:uhyB+DSmd.net] SŇČńžŻÇČşĚć¤Č\ŠçÁčĚZÉüÍłę˝ęžŻAÁčĚZđJEgˇéű@ÁÄ čܡŠH AÍSÄ BÍIÎę˝ŕĚžŻAÝ˝˘Č AĚSÄđJEgˇéĚÍíŻČ˘ńžŻÇABĚIÎę˝ŕĚžŻđJEgˇéű@ŞíŠçȢ IFg¤ÉľÄŕ˝đwčˇę΢˘ĚĹľĺ¤H íŠčɊġ˘Üšń o.8ch.net/11r7r.png
873 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 17:54:54.38 ID:IwnGnNnba.net] >>843 ĘÉâčűŞíŠçȢńśáČ˘Ě >>846 cŞL[ÉČéČçdĄľČ˘cĚęđÂÁÄńłzńĹŕ\˘ĚĹࢢŻÇbŞtrueČçJEgˇéÁ̤Ɏę΢˘Ćv¤ ˝˘ČçDBĚĚŞžĆv¤ŻÇËAąĚčĚWvÍ
874 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 18:02:17.19 ID:HiTEnEcXd.net] >>845 čŞĆ¤˛´˘ÜˇI
875 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 18:13:43.61 ID:uhyB+DSmd.net] >>847 BŞtrueČçAƢ¤ĚÍǤâÁÄwčˇę΢˘ĹˇŠH ÍÍwčĹ
876 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 18:23:20.07 ID:uhyB+DSmd.net] ˇ˘ÜšńAÔáŚÄŤńžܢܾ˝ >>847 BŞtrueČçAƢ¤ĚÍǤâÁÄwčˇę΢˘ĹˇŠH ÍÍwčĹŞÁÂčâéĆAwčľ˝ÍÍÉęÂĹŕtrueŞ éĆJEgľÄľÜÁÄÇSđJEgľÄľÜ¤ńš
877 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 18:27:59.94 ID:iMxAIJokM.net] >>829 ˝ŕďľlŚČÄŕAEńÉ=A&B&CđüęÄAEńđsxÉľÄs{bge[uĹWvˇéžŻĹoéćB ABCńđŕÇľ˝˘ČçINDEX,MATCHĹřÁŁÁÄȢƢŻČ˘ŻÇŕAúXGNZgÁÄélČçčľę˝ŕĚžĆv¤BĆž¤ŠľęĨĆFXÖB Úľ˘đŕ˘éČçˇé
878 źOFftHgĚźłľłń mailto:sage [2018/01/04(Ř) 18:58:58.92 ID:IwnGnNnba.net] >>850 ęs¸Â[vľÄéńžćËH tOpÉĎpÓľÄéČçę[v˛ĆÉúťľźłČ˘Ćžßć ÁÄŠAĄÇńČR[hĹŽŠľÄ銢ÄęéĆâčŐ˘ńžŻÇ
879 źOFftHgĚźłľłń mailto:sage [2018/01/05(ŕ) 02:37:52.28 ID:Uixpo
] [ąąóęÄܡ]
880 źOFpG00.net mailto: tB^ĆCOUNTIFĹǢCŞˇéŞ Ç¤ľÄŕVBAĹâ轢̊H [] [ąąóęÄܡ]
881 źOFftHgĚźłľłń mailto:sage [2018/01/05(ŕ) 17:45:28.92 ID:Kfn/8I4m0.net] HTML\[XĹ <a href = URL1</a> <br />****@Š@4
ĚÁčĚŞüé <a href = URL2>\ń</a> <a href = URL3>[ćÁ]</a><br /><a href = URL4>[ůł]</a> ăLĚ4
ĚĆURLČOŻlĚ\[XŞSĹ10Â éy[WŞ čAC5ZÉ4
ĚđüęAťęÉÎľ˝URL3ĚNđNbNľ˝˘ĚšŞAǤˇęÎÂ\ž夊H IEĹťĚy[WÜĹňÔĚÍâčȢĚšŞAa^OĚCi[eLXgŞ4
ĚČO¤ĘČ˝ßForĆGetElementsByTagNameĆĚgÝíšĹNbNōȢĚĹ˝ŠčiŞ ęÎłŚÄ¸Ť˝˘ĹˇB
882 źOFftHgĚźłľłń mailto:sage [2018/01/05(ŕ) 21:06:25.46 ID:UyFZaUswa.net] >>829 ť¤˘¤žÁ˝ç\[gľÄŕâčłłť¤žŠç\[gľÄ[vĹǢńśáË? >>854 4
ĚČO¤ĘžĆǤľÄForĆGetElementsByTagnameĆĚgÝíšĹNbNoČ˘ĚŠŞŞŠçńB
883 źOF851 mailto:sage [2018/01/05(ŕ) 21:25:01.57 ID:Kfn/8I4m0.net] >>855 AmŠÉBŤÔáŚÜľ˝BşLĚR[hžĆ10ÂĚN̤żAęÔăÉ éâÂđNbNˇéĆv¤ĚšŞA C5ZÉüÍľ˝ÁčĚ4
ĚĚşÉ éNđNbNľ˝˘ĚšB For Each obj In objIE.Document.getElementsByTagName("a") If InStr(obj.innertext, "ćÁ") > 0 Then obj.Click Exit For End If Next
884 źOFftHgĚźłľłń mailto:sage [2018/01/05(ŕ) 22:16:41.06 ID:vO88ak3C0.net] DOMÉevfĆŠ×ĚvfđŠÄ˘Ě Á˝ćË ęĹKvČžŻÚŽłšę΢˘ńśáË
885 źOFftHgĚźłľłń mailto:sage [2018/01/05(ŕ) 22:20:08.87 ID:vO88ak3C0.net] >>829 đ >>836 Ěű@ĹćŁÁÄR[hÉľ˝ĚđŤÝ˝˘ńžŻÇ 403ÉČÁżá¤ĚćË ÖfĚR[hŞÜÜęĢéĚŠľç
886 źOFftHgĚźłľłń [2018/01/07(ú) 08:20:46.08 .net] >>846 VBAđgí¸ÉExcelĚvZŽĹĆą¤žćËB ECńŞu10vABńŞuvĚsđŚéČç =COUNTIFS($C$2:$C$6,10,$B$2:$B$6,"") ECńŞu10vABńŞóČOĚsđŚéČç =COUNTIF($C$2:$C$6,10)-COUNTIFS($A$2:$A$6,10,$B$2:$B$6,"") ąęđVBAĹŤ˝˘ČçAťĚÜÜ[NV[gÖđÄŃošÎ˘˘B ECńŞu10vABńŞuvĚsđŚéČç With Worksheets("Sheet1") dblCnt = WorksheetFunction.CountIfs(.Range("C2:C6"), 10, .Range("B2:B6"), "") End With ECńŞu10vABńŞóČOĚsđŚéČç With Worksheets("Sheet1") dblCnt = WorksheetFunction.CountIf(.Range("C2:C6"), 10) - WorksheetFunction.CountIfs(.Range("C2:C6"), 10, .Range("B2:B6"), "") End With FCOUNTIFSÖÍOffice 2007ĹÇÁłę˝ĚĹA2003ĆŠĹŕŽć¤ÉˇéÉÍ @vZŽČçzńŽđg¤Š_~[Ěń (á: FńÉ =B2&h:h&C2)đg¤KvŞ éľA @VBAČçŠOĹ1s¸Â[vˇéForśđKvŞ éB
887 źOFftHgĚźłľłń mailto:sage [2018/01/08() 01:12:41.23 ID:bgHHDE53D] >>856 ˇ˛˘@¨nČÔMĹ\ľóȢŻÇ C[WĆľÄܸA <a href = URL1</a> <br />****@Š@4
ĚÁčĚŞüé <a href = URL2>\ń</a> <a href = URL3>[ćÁ]</a><br /><a href = URL4>[ůł]</a> ĚŞŞy[WŕĹJčԾĥ éČçAąĚŞžŻđćčoˇđJčÔľÄ@splitČčĹÂđŚÄ@ˇéĆŠBićčoˇĘuÍAInStrĹćÁÄAIíčĘuđ@ĚJnĘuÉľÄj ťĚăĹAąĚŞÉC5ĆŻślŞ éČçNbNˇéĆŠB C5ĚlđĎaÉľÄAInStr(ćčoľ˝Ş, a) > 0ĹǢć¤ČB ˇ˘ÜšńBBČÔMĹB
888 źOFsage [2018/01/11(Ř) 23:28:08.34 ID:kwmxLljDv] łŚÄ˘˝žŤ˝˘ĹˇB éZĚÉÖľÄ oČşĆ12ČăÍA 6Čă12˘ÍB ťęČOÍȾƢ¤ŽđěéĆľ˝ç =if(or(Z<0,Z>=12),"A",if(6<Z=<12,"B"," ")) Ƣ¤ŽĹÍżáńĆÔÁÄŤÜšńB łľ˘Žđ˛łöč˘ÜˇB
889 źOFftHgĚźłľłń mailto:sage [2018/01/11(Ř) 12:40:04.91 ID:eKl5cJvJd.net] R{boxđgÁÄTWFXg@\Ý˝˘ČąĆđľ˝ÄěÁÄÝ˝ńžŻÇA1śÚͤܢńžŻÇ2śÚČ~ĹÂĆXgĚęÔăŞćÁÄŤÄg˘SnŞÇȢńžŻÇAǤľ˝ç˘˘ĹˇŠH R{boxĚXgĚÝđNAˇéâčűŕ˘Ü˘żíŠčÜšńB j=2 Tname.rist=array() set MstSht=worksheets(}X^[) str_word=controls(Tname&j).value for i=2toMstSht.cells(rows.count,6).end(xlup).row if instr(ucase(MstSht.cells(i,6).value),ucase(str_word))=1 then controls(Tname&j).additem MstSht.cells(i,6).value end if next
890 źOFftHgĚźłľłń mailto:sage [2018/01/11(Ř) 19:23:41.06 ID:WJjCr32Q0.net] GNZĚ2003šŞA Ŕ×Äärđgpľ˝ŰÉyAÉČÁĢéubNĆA ťĚubNĹ\ŚłęĢéV[gđ枡éÉÍ ÇĚć¤ÉLqˇę΢˘Ĺľĺ¤ŠB
891 źOFftHgĚźłľłń [2018/01/11(Ř) 21:16:23.66 ID:JbTpKTF6M.net] >>863 ˝đžÁĢéĚž夊H
892 źOFftHgĚźłľłń [2018/01/11(Ř) 21:25:37.65 ID:a2sLbYI50.net] ˘Ełt}Cgk[uĺ\Íú{ŠçX^[gv rio2016.5ch.net/test/read.cgi/2chse/1512813686/l50 y}Cgk[z@ÄÂđę@yPQOO~z https://medaka.5ch.net/test/read.cgi/eco/1515587891/l50
893 źOFftHgĚźłľłń mailto:sage [2018/01/12(ŕ) 01:30:55.27 ID:GWvM9lig0.net] >>863 Excel2003ÍT|[gŘęÄܡĚĹ Excel2007ÉĚ芌ܾĺ¤
894 źOFftHgĚźłľłń [2018/01/12(ŕ) 01:41:04.62 .net] >>866 Excel2007Čç>>863 ĹŤéńH(LEÖE`)
895 źOFftHgĚźłľłń mailto:sage [2018/01/12(ŕ) 15:56:41.55 ID:kdQVxAch0.net] 0ńÚÁÄ˝H
896 źOFftHgĚźłľłń mailto:sage [2018/01/12(ŕ) 19:59:42.26 ID:8L8z7qJh0.net] vbModelessĹJ˘˝UserFormăĚTextBoxÉSetFocusˇéć¤InitializeÉLqľÄŕřŤÜšń ąęÁÄłČńšŠËH vbModelessđŘéĆtH[JXŞżáńĆTextBoxÉÚéńšŻÇË
897 źOFftHgĚźłľłń mailto:sage [2018/01/12(ŕ) 23:20:03.95 ID:Ln5WwMFr0.net] úóÔĹtH[JXđÄ˝˘Čç UserForm.Show vbModeless UserForm.TextBox.SetFocus ĆtH[đÄńŢévV[W¤É tH[ĚCxgČçActivateĹÇ¤Ĺľĺ¤ ńtH[ŞANeBuÉČé˝ŃtH[JXľżá¤ŻÇ InitializeŞČşÍľçȢ̊ÍmçȢ
898 źOFftHgĚźłľłń mailto:sage [2018/01/12(ŕ) 23:44:10.99 ID:Ln5WwMFr0.net] ŔąľÄÝ˝çInitializeÍÄÎęÄéŻÇ SetFocusžŻŞžßÝ˝˘ źĚąĆÍĘÉĹŤé ČńĹľĺ¤Ë
899 źOFftHgĚźłľłń mailto:sage [2018/01/12(ŕ) 23:46:18.93 ID:WKndAwKhM.net] ˘âExsel 2007ŕT|[gŘęÄܡŞ
900 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 03:26:50.74 ID:0Hr8k8ED0.net] >>871 ŠŞĹŕ˘ë˘ëâÁÄÝ˝ńšŻÇâÁĎč_Ý˝˘ĹˇË čŞĆ¤˛´˘Üľ˝
901 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 09:26:06.50 ID:60QkmGs40.net] ľÄȢŻÇAvpeBĚTabIndexŕĘÚžÁ˝ĚH
902 źOFftHgĚźłľłń [2018/01/13(y) 10:05:22.76 ID:8yN0Kzpj0.net] ThisWorkbook.Application.HwndĹubNĚnhđćžľÄA SetLayeredWindowAttributesŧßđˇéA LWA_ALPHAĹÍâčȢĚÉA LWA_COLORKEYÉĎŚéĆAČşŠubNSĚĹÍČA V[găÉĹÉzuľ˝R}h{^ĚűÉëľÜˇB ľŠŕAŠŞĚPCĹÍâčȢĚÉAźlĚPCžĆëˇéƢ¤ÓĄsžłB nh޸ęéIČoOĹŕ éĚž夊?
903 źOFftHgĚźłľłń [2018/01/13(y) 10:12:39.30 .net] EBhE\ŚÉtH[JXÄ˝˘ńČçTabIndex=0ɡę΢˘ńžĆv¤ŻÇA ĆÍtOđgÁÄInitializeźăĚActivateCxgĹtH[JXđÄę΢˘ńśáËH Private mblnInitFlag As Boolean Private Sub UserForm_Activate() If mblnInitFlag Then TextBox2.SetFocus mblnInitFlag = False End If End Sub Private Sub UserForm_Initialize() mblnInitFlag = True End Sub
904 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 10:19:25.53 ID:WLDq+ue70.net] ęÂÚĚ\ A,B,C,D,E aaa,bb,cc,00,20 bbb,cc,dd,11,30 ńÂÚĚ\ G,H,I,J,K aaa,bb,cc,00,10 bbb,cc,dd,11,10 ăĚlČ\Ş čAęÂÚĚABCńĆńÂÚĚGHIńĚlŞęvˇęÎAńÂÚĚ\ĚĄÉEńŠçKńĚlđř˘˝lđ\Śľ˝˘B ęvˇéf[^ŞłŻęÎAęvf[^łľĆ\ŚB ăĚ\žĆ2ÂÚĚ\ĚEńÉAťęźę10,20Ć\ŚB f[^ĘÍ300~800öšB oéűAć뾨袾ܡB
905 źOFftHgĚźłľłń [2018/01/13(y) 10:29:13.82 .net] >>875 LWA_COLORKEYÍwčľ˝Fđ§žÉˇéńžŠçA ťĚźlĚPCĹExcelĚEBhEĚFŞá¤ńśáËH mçńŻÇ
906 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 10:31:29.99 ID:uYJANG/vd.net] ůśvOĹřŞ˝˘âÂđ¸çľ˝˘ńžŻÇǤˇę΢˘H ˝žO[oĎg¤ĆźĚAvP[VÉeżoéŠçgŚČ˘B ĄŠç\˘ťâNXɡéĚÍźOĎXŞĺĎť¤žľAŻś^Ĺ௜ŽěĹŕȢŠçÜĆßɢB
907 źOFftHgĚźłľłń [2018/01/13(y) 10:39:42.82 ID:8yN0Kzpj0.net] >>878 ťęŞAR}h{^ĆV[gĚFđŻśÉľÄŕA R}h{^ĚűžŻ§ßłęéńšB ľŠŕĹÉzuľ˝R}h{^žŻB 2ÂÚČ~ÍĎíç¸B §ßĚOăĹAnhĚlđfobOvgľÄŕϝȢšľB
908 źOFftHgĚźłľłń [2018/01/13(y) 10:49:24.82 .net] >>877 2007Č~ŔčĹćŻęÎLńÉvZŽßńśá¤ŻÇË =IF(COUNTIFS($A:$A,$G1,$B:$B,$H1,$C:$C,$I1)>0,SUMIFS($E:$E,$A:$A,$G1,$B:$B,$H1,$C:$C,$I1)-$K1,"ęvf[^łľ")
909 źOFftHgĚźłľłń [2018/01/13(y) 11:20:55.87 ID:8yN0Kzpj0.net] żČÝÉAąńČĚšB Sub test(ByVal Flg As Boolean) Dim Hwnd As Long: Hwnd = ThisWorkbook.Application.Hwnd Call SetWindowLong(Hwnd, -20, &H80000) If Flg Then Call SetLayeredWindowAttributes(Hwnd, 0, 200, 1)@'ŠŹ÷ Else Call SetLayeredWindowAttributes(Hwnd, 0, 200, 2)@'ŠR}h{^Éë End If End Sub όĢéĚÍĹăĚřžŻČńšŞB
910 źOFftHgĚźłľłń [2018/01/13(y) 11:27:43.02 .net] >>879 Sub test1() Dim args(5) As Variant Dim arg1 As String Dim arg2 As Long Dim arg3 As Variant Dim arg4 As Workbook Dim arg5 As Collection arg1 = "test" arg2 = 123 arg3 = ActiveSheet.Cells(1, 1) Set arg4 = ActiveWorkbook Set arg5 = New Collection arg5.Add New DataObject arg5.Item(1).SetText "sample" args(1) = arg1 args(2) = arg2 args(3) = arg3 Set args(4) = arg4 Set args(5) = arg5 Call test2(args) End Sub e \\ Sub test2(ByRef args As Variant) Dim arg1 As String Dim arg2 As Long Dim arg3 As Variant Dim arg4 As Workbook Dim arg5 As Collection arg1 = args(1) arg2 = args(2) arg3 = args(3) Set arg4 = args(4) Set arg5 = args(5) Debug.Print arg1 Debug.Print arg2 Debug.Print arg3 Debug.Print arg4.Name Debug.Print arg5.Item(1).GetText End Sub
911 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 13:04:46.60 ID:WLDq+ue70.net] >>881 ńĚ}üâíĚŞ éĚĹAŽžĆQĆYČÇŞNąÁľܤĚĹo˝çVBAĹľ˝˘ĆlŚÄ˘ÜˇB
912 źOF858 mailto:sage [2018/01/13(y) 13:29:13.07 ID:eGapce6A0.net] >>866 Excel2010đpӾܾ˝B >>864 GNZĹuBook1vuBook2vuBook3vđJ˘˝óÔĹA uBook1vuBook2vđŔ×ÄärľÄ˘éÉA yAÉČÁĢéuBook1vuBook2vđÁčˇéű@A ŕľÍuBook1vŞActiveWorkbookĚÉuBook2vđÁčˇéű@Şm轢ĚšB
913 źOFftHgĚźłľłń [2018/01/13(y) 13:42:21.62 .net] >>885 vZŽĹĹŤęÎVBAĹŕťĚÜÜĹŤéâń >>859 QĆ
914 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 13:47:55.56 ID:fyAvIt7m0.net] Ŕ×ÄärÁÄ lÔŞ˝ŠđŠä×ÄmFľÄ˘éíŻžŠç ťĚěĆÍlÔŞâéKvȢƨŕ¤ĚĹ SVBAĹobNOhšę΢˘ĚĹÍȢŠĆPÉvÁľܤ ĹăÉärľ˝ĘžŻ\ŚľÄ °é
915 źOFftHgĚźłľłń [2018/01/13(y) 15:21:57.51 ID:eGapce6A0.net] >>886 ärŠĚÍvZŽĹōܡŞA ärˇéÎŰđÁčˇéÍvZŽĹōȢCŞľÜˇB >>887 }üÉćÁÄärľ˝˘ÓŞBookPĆQĹŮČéÂ\ŤŞ é×A OÉärĚN_ĆČéÓđIđˇéKvŞ čܡB
916 źOFftHgĚźłľłń [2018/01/13(y) 16:53:07.70 .net] >>888 > ärˇéÎŰđÁčˇéÍvZŽĹōȢ ÓĄŞŠçń =IF(COUNTIFS($A:$A,$G1,$B:$B,$H1,$C:$C,$I1)>0,SUMIFS($E:$E,$A:$A,$G1,$B:$B,$H1,$C:$C,$I1)-$K1,"ęvf[^łľ") ąĚvZŽđPÉVBAÉuŤˇŚÄ With Worksheets("Sheet1") If WorksheetFunction.CountIfs(.Range(gA:Ah), .Range(gG1h), .Range(gB:Bh), .Range(gH1h), .Range(gC:Ch), .Range(gI1h)) Then .Range(gL1h) = WorksheetFunction.SumIfs(.Range(gE:Eh), .Range(gA:Ah), .Range(gG1h), .Range(gB:Bh), .Range(gH1h), .Range(gC:Ch), .Range(gI1h)) - .Range(gK1h) Else .Range(gL1h) = gęvf[^łľh EndIf End With sńđĎĹwčĹŤéć¤É.Rangeđ.Columnsâ.CellsÉuŤˇŚÄlĹwčĹŤéć¤ÉľÄ With Worksheets("Sheet1") If WorksheetFunction.CountIfs(.Columns(1), .Cells(1,7), .Columns(2), .Cells(1,8), .Columns(3), .Cells(1,9)) Then .Cells(1,12) = WorksheetFunction.SumIfs(.Columns(5), .Columns(1), .Cells(1,7), .Columns(2), .Cells(1,8), .Columns(3), .Cells(1,9)) - .Cells(1,11) Else .Cells(1,12) = gęvf[^łľh EndIf End With ĆÍKvČĆąëđĎťľÄ[vđńšÎ˘˘śáń Dim rngCell As Range Dim lngRow As Long e [vđńˇ˝ßsÔđĎť With Worksheets("Sheet1") Set rngCell = .Cells(1, 12) e \ĚÚ×dlŞŞŠçȢĚĹĆč Ś¸KńŞóśáȢŔč[vąs While rngCell.Offset(0, -1) <> gh lngRow = rngCell.Row If WorksheetFunction.CountIfs(.Columns(1), .Cells(lngRow,7), .Columns(2), .Cells(lngRow,8), .Columns(3), .Cells(lngRow,9)) Then rngCell = WorksheetFunction.SumIfs(.Columns(5), .Columns(1), .Cells(lngRow,7), .Columns(2), .Cells(lngRow,8), .Columns(3), .Cells(lngRow,9)) - .Cells(lngRow,11) Else rngCell = gęvf[^łľh EndIf Set rngCell = rngCell.Offset(1, 0) e Ěs Wend End With ńĚÇÁíŞ éƢ¤ąĆžÁ˝çńÔŕĎťˇę΢˘
917 źOFftHgĚźłľłń [2018/01/13(y) 17:00:25.96 ID:zzyV/8sb0.net] SŇĹ\ľó čÜšń ZÉüÍľ˝IčR[hđIčźÉuˇˇéć¤ČŽŤđłš˝˘ĚšŞÇ¤ˇéĆć˘Ĺľĺ¤Š ĘĚV[gÉIčźëÍpÓľÄ čAńÉIčR[hBńÉI蟪 čܡ
918 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 17:42:32.57 ID:8qhapkmN0.net] >>890 VBAvçń VLOOKUPĹOOę
919 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 17:48:09.64 ID:8qhapkmN0.net] ˇÜńuuˇvđŠĆľ˝ VBAÍvéČ WorksheetFunction.VLookup ĹâéČčA[vĹőˇéČčâę΢˘
920 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 17:50:29.11 ID:gLbKwyK9x.net] >>890 ĘÍZÉüÍłę˝IčR[hđí´í´VBAuˇˇéČńÄąĆ;ȢĹAVLOOKUPĚ[NV[gÖđŻÇË uˇěđVBAŊȍ᢯ȢRÍ éĚH
921 źOFftHgĚźłľłń [2018/01/13(y) 17:58:56.84 .net] >>890 >ZÉüÍľ˝IčR[hđIčźÉuˇˇéć¤ČŽŤđłš˝˘ ZÉIčR[hđüÍľÄAEnterđľ˝r[ÉIčźÉuŤˇíéć¤ČŽŤđłš˝˘ńžČHť¤ČńžČH
922 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 18:00:41.47 ID:gLbKwyK9x.net] >>892 őuˇĚ_CAOĹV[gŕĚIčR[hđęϡˇéAÝ˝˘ČčěĆĚĆąčđťĚÜÜ}Nťľć¤ĆľÄ˘éĚŠŕľęȢľAť¤˘¤ęÍťŕťŕV[gĚÝvâĆąčÉâčŞ éꪽ˘B ĹÉVLOOKUPgŚĆwEľ˝ ń˝Ě´oÍî{IÉÍłľ˘Ćv¤źB
923 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 18:06:27.84 ID:fyAvIt7m0.net] >>890 PČç[NV[gÖĹâÁ˝űŞČP VLOOKUPĹϡľ˝ĚđpӾƢĝęđ˛ťÁĆăŤˇé ˝ńŕâéČçAăLđ}NÉˇé ąĚç˘Čç}NĚL^Ĺࢯť¤ SVBAăĹâéű@ŕ éŻÇrMi[ÉÍĺĎĹľĺ¤ ąńČ´śĹ˘˘ńśáȊ뤊 Dim i i = X^[gˇés Do While Not Worksheets(1).Cells(i, 1) = "" Worksheets(1).Cells(i, 1) = WorksheetFunction.VLookup _ (Worksheets(1).Cells(i, 1), Worksheets(2).Range("źëÍÍ"), 2, 0) i = i + 1 Loop V[gĚCfbNXĆŠÍŤˇŚÄË ÓĄsžČç}NL^ŠłçČéCsđIXXˇé
924 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 18:07:34.63 ID:gLbKwyK9x.net] >>894 VBAÉľęÄélČçZlĚuˇĆˇ˘˝žŻĹ[NV[gXVCxgđg˘˝˘ĚŠČÁÄv˘ŞżžćČ ´ŕĹÍť¤vÁ˝í ĹŕżâŇĚżâŕe𪲍ĹfźÉÇŢĆť¤ĆÍŔçȢńžćČ
925 źOFftHgĚźłľłń [2018/01/13(y) 18:19:24.76 ID:zzyV/8sb0.net] >>893 g[igĚĘđü͡éć¤ÉČÁĢéĚšŞůÉńp[NV[gÍ éĚšŞüÍŞ˝Č衏ÄĹIIÉÍo[R[hÉćéüÍđÝć¤ĆľÄ˘Üˇ Ü˝AťĚńp[NV[gÍŽŞÜÁĨčŔ×ÖŚG[`FbNĚ}NŞůÉ éĚĹsđüę˝čľÄÖđ˘ęéΪōȢƢ¤óÔš >>894 üÍăÉ}NŔspĚ{^đľÄuˇˇéć¤ČzčĹľ˝ G^[đľ˝uÔĎíéŕĚĹŕĺävš
926 źOFftHgĚźłľłń [2018/01/13(y) 18:35:21.45 ID:zzyV/8sb0.net] >>892 >>896 čŞĆ¤˛´˘Üˇ ĆÉAčćľÄÝܡ >>895 ĄÜĹÍ[NV[gŕŠçÎíIčĚźOđTľÄŤÄRs[Ahy[XgĹξĢ˝ĚšŞQÁŇŞNXŚÄŤÄiĄNĚŠÝÍńçlĘjǢtŠČČÁÄŤ˝˝ßÉŹxüăđÚIƾĢܡ
927 źOF858 mailto:sage [2018/01/13(y) 18:44:45.15 ID:eGapce6A0.net] >>889 VBAÉLqĚ éWorksheets("Sheet1") ĚÓđA Ŕ×ÄärĹyAɾĢéV[gÉÁčˇéű@Şv˘ÂŠČ˘ĚšB
928 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 19:03:27.44 ID:rZTV+Qsta.net] >>900 t@CźĆŠV[gźŞ_ĹȢČç ĹčlśáȢĚH ÇńČt@CźŠŞŠçȢAV[gźŠŞŠçȢÁÄČçsxü͡龊ȢČB f[^`ŽĹÁčˇéąĆŕĹŤéŻÇA łĘČěĆÉľŠvŚČ˘B
929 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 19:18:42.64 ID:gLbKwyK9x.net] >>898 ąńČ´śČçǤŠČ ČşÍAŔsˇéĆńpV[gŕÉÜÜęéIčR[hSÄđęCÉuˇˇé ĄĚIčR[hđÜŢęŕęĹuˇĹŤé͸ źëÉÍR[hĚŞóĚsŞČAźëV[gĚA2ZČşÉIčR[hŞüÍłęĢéŕĚĆźčľÄé(A1Í\Šoľ) ZlĚęŞIčR[hĆęvˇéęŕuˇłęľܤĚĹAR[hĚÝŞüÍłęĢéZĚlžŻđmŔÉuˇľ˝˘ęAReplace\bhĚřĚLookAt:=xlPart đLookAt:=xlWholeÉĎXľÄę Sub ReplaceCode Dim sh_list As WorkSheet 'IčźëV[g Dim sh_report As WorkSheet 'ńpV[g Dim i As Long Set sh_list = WorkSheets("IčźëV[g") Set sh_report = WorkSheets("ńpV[g") For i = 2 To sh_list.Range("A2").End("xlDown").Row sh_report.Cells.Replace What:=sh_list.Cells(i, 1).Value, Replacement:=sh_list.Cells(i, 2).Value, LookAt:=xlPart Next i End Sub
930 źOF858 mailto:sage [2018/01/13(y) 19:32:04.47 ID:eGapce6A0.net] >>901 t@CĚtH[}bgŞĄ éĚĹA OÉt@CźĆV[gźđKčōȢĚšB ČĚĹAšßÄyAÉľ˝t@CŻmŞÁčĹŤęÎA t@CĆV[gđIđˇéčÔŞČŻéĆvÁ˝ĚšŞEEE RÂČăJŻČČéŻÇAworkbooksŠç}NubNđOľ˝ćŞQÂđärˇéű@ĹlŚÄÝܡB
931 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 19:36:48.93 ID:6HVsHBKb0.net] >>903 ťęÍ^pđĎŚć¤B@BIɡéČçlÔ¤ŞíšéKvŞ éB čŽĹ˝źKĽÉ¤ŠA˝źŠĚđŠŽIÉľÄlÔŞÓŻľČ˘ć¤ÉˇéŠB
932 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 23:03:28.12 ID:aJN0Dby50.net] GNZ2010ĹCSVt@CđJ˘˝ęA UTF8âshiftjisđŠŽĹťčľÄ\ŚľÄęܡŞA ąĚÉťčłę˝śR[hđ枡éű@Í čܡŠB prÍAOf[^ĚćčÝĹCSVđJŤČ¨ˇ˝ßĚśR[hĚÁčšB
933 źOFftHgĚźłľłń [2018/01/13(y) 23:14:29.83 ID:odSwvUdp0.net] >>905 application.nkf
934 źOFftHgĚźłľłń mailto:sage [2018/01/13(y) 23:28:32.80 ID:aJN0Dby50.net] >>906 čŞĆ¤˛´˘ÜˇB ľÄÝܡB
935 źOFftHgĚźłľłń mailto:sage [2018/01/14(ú) 06:58:25.18 ID:UVUQYwWb0.net] >>907 ˘˘ÁÄąĆć(LEÖEM)b
936 źOFftHgĚźłľłń [2018/01/15() 01:08:16.65 ID:Zqan8uZj0.net] >>902 ŔsG[13 ^ŞęvľÜšńĆČÁÄ˘Ä For~ĚsĹG[đoľÄ˘Ä~ÜéÝ˝˘Ĺˇ ĆńV[gŞIčĚłĘÉĄÉŞŠęĢéĚĹˇŞĄIčR[hĚüÍľ˝V[giÂÜč˘ÜJ˘Ä˘é}NŔspĚ{^đľ˝V[gj𾽢Ƣ¤ęǤˇéĆć˘ĚŠłŚÄ˘˝žŻéĆŠčܡ
937 źOF897 mailto:sage [2018/01/15() 01:48:08.96 ID:ubg4QImpx.net] >>909 G[Ěo˝R[hđ]ھĊšÄŕçŚÜšńŠHążçĚÂŤĹͤ܎˘Ä˘éńšŞAŞR[hđ]Úľ˝ĆŤÉ~X𾽊ŕľęȢĚĹ ťęŠçAR[hÍ{^}N({^ź_ClickĚć¤ČźOĚvV[W)ĆľÄeV[gĚV[gW
[ɢĢéńž夊H
938 źOFftHgĚźłľłń [2018/01/15() 11:28:57.27 ID:thpu0oBS0.net] >>910 Sub ReplaceCode() Dim sh_list As Worksheet 'IčźëV[g Dim sh_report As Worksheet 'ńpV[g Dim i As Long Set sh_list = Worksheets("Ičźë") Set sh_report = Worksheets("ÎíĘ\_A") For i = 2 To sh_list.Range("A2").End("xlDown").Row sh_report.Cells.Replace What:=sh_list.Cells(i, 1).Value, Replacement:=sh_list.Cells(i, 2).Value, LookAt:=xlPart Next i End Sub V[gěŹpĚR[hŞůÉ éĚĹˇŞťĚĚR[hđŹpľÄeV[gÉŔspĚ{^đuvćĹľ˝ ActiveSheet.Buttons.Add(2, 1.5, 125, 18.75).Select Selection.OnAction = "CSV_SAVE" Selection.Characters.Text = Worksheets(2).Cells(1, 1).Text & "ĚCSVt@CěŹ" With Selection.Characters(Start:=1, Length:=15).Font .Name = "lr oSVbN" .FontStyle = "W" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone End With ąęĚCSV_SAVEđReplaceCodeÉľÄ{^ĚźOĆęđŠŚéÂŕčĹľ˝Ş ÜčćȢű@ČĚž夊 KvĹ ęÎůÉ éR[hđoľÜˇĚĹłŚÄžł˘
939 źOFftHgĚźłľłń [2018/01/15() 11:58:16.00 ID:Vljo7f2q0.net] >>908 application.nkf IuWFNgފŠčÜšńĹľ˝B şLĚapplicationIuWFNgŕÉŕAnkfvpeBފŠčÜšńB https://msdn.microsoft.com/ja-jp/vba/excel-vba/articles/application-object-excel IuWFNgĚQĆű@Şá¤Ěž夊B
940 źOF897 mailto:sage [2018/01/15() 23:02:33.00 ID:JvjYqsKWx.net] >>911 \ľóȢAFor
941 źOFĚsĹEnd("xlDown")ĆČÁÄéĚAŠŞĚ]L~XĹľ˝ G[Ě´öŕąęĹľĺ¤ ńdřpČľĹEnd(xlDown)ĆŤźľÄŽŠľÄÝÄžł˘ [] [ąąóęÄܡ]
942 źOFftHgĚźłľłń mailto:sage [2018/01/16(Î) 12:17:16.43 ID:SelV7zwId.net] żâšB \o[ĹĘÍÚIZđrangeČÇĹwčľÜˇŞAV[gĚZÉANZXš¸AvbaŕĚĎđźÚ\o[ÉŠŻÄvbaྯŮľ˝˘ĚšŞAű@ éž夊H
943 źOFftHgĚźłľłń [2018/01/17(
) 02:18:24.01 ID:x8yvrTsd0.net] >>913 ¤Ü˘ŤÜľ˝ čŞĆ¤˛ł˘Üˇ
944 źOFftHgĚźłľłń mailto:sage [2018/01/20(y) 12:24:27.92 ID:sSjH/Vu40.net] ZĚAńÉ éśńđR{boxÉaddš×Äüę˝ăÉAęśü͡éxÉóâŞiçęÄÁÄoܡH R[hłŚÄŕçŚČ˘ĹˇŠH
945 źOFftHgĚźłľłń mailto:sage [2018/01/20(y) 12:31:05.83 ID:TVDu7Qf0r.net] ęśü͡éxÉR{{bNXĚóâđię΢˘ńƿᤊH mçńŻÇ
946 źOFftHgĚźłľłń mailto:sage [2018/01/20(y) 13:28:17.12 ID:uuergXrf0.net] ĐŕÉi\Ş ÁÄAdĄľÄ˘éźOđȢÄiíŢęĚ\đěë¤ĆvÁÄܡB ElWM5 ElWM5 EibgM5 EibgM5 Ť ElWM5 EibgM5 Ƣ¤C[WšB ŠŞČčÉşLĚ}NđgńĹÝÜľ˝B Dim row As Long, col As Long, D As Range col = 1 row = 1 Do Until Cells(row, col) = "" If Not Cells(row, col) = Cells(row + 1, col) Then If D Is Nothing Then Set D = Cells(row, col) Else Set D = Union(D, Cells(row, col)) End If End If row = row + 1 Loop ąĚăWDđRsyˇé}NšB iĚíŢŞ100ĆŠ200Č玢ÄęܡŞA{20,000´ĚiĚíŢŞ čAążçđˇéĆt[YľÜˇB fobNĚEBhEÍjIĚĆąëđwčľÄŤÄéńšŞAjIÉÍÜĆßçęéĘĚŔEČÇŞ éĚž夊H
947 źOFftHgĚźłľłń mailto:sage [2018/01/20(y) 13:33:34.73 ID:wJgnfOTG0.net] >>918 AccessĹâęB
948 źOFftHgĚźłľłń mailto:sage [2018/01/20(y) 13:41:46.63 ID:CFAgCrzx0.net] >>918 \[gľÄdĄđíśá_ČĚŠH
949 źOFftHgĚźłľłń [2018/01/20(y) 15:03:19.74 ID:Fb/tMd6M0.net] >>918 Excel VBAĹâÁÄࢢŻÇARANGEIuWFNgÉßŢâčűćčÍAfźÉĘV[gÉlđRs[AłçÉťęđőľÄĘĚlŞoÄŤ˝çĘV[gÉRs[ޢńśáȢ̊H ťŕťŕExcelĚtB^ÖAĚ@\ĹŕĹŤéŠçVBAđg¤RŞíŠçȢB
950 źOFftHgĚźłľłń mailto:sage [2018/01/20(y) 15:06:48.01 ID:iefRLv2cp.net] >>918 dictionaryƊŞߊČH
951 źOFftHgĚźłľłń [2018/01/20(y) 17:40:00.19 ID:91x3kJT10.net] DBMSŞR\[ČńŠÉÔľ˝Ęđ ExcelZÉăč\čtŻéű@ÁÄ é?
952 źOFftHgĚźłľłń mailto:sage [2018/01/20(y) 19:41:33.47 ID:wJgnfOTG0.net] >>923 Ú×Y꽯ÇăüˇéĹAťĚÜÜ\čtŻçęé\bhŞ Á˝Í¸B
953 źOFftHgĚźłľłń [2018/01/20(y) 20:44:55.78 ID:Y9eKqT4m0.net] ˝ÍęçńŻÇ éÓĄGXp[ĆžÁĨą¤w
954 źOFftHgĚźłľłń mailto:sage [2018/01/21(ú) 13:18:30.88 ID:+2jqUeqC0.net] >>918 ADOČçęuĹIíé ˘ë˘ëËÁÜęĢéć¤ÉAĘĚű@ĚŞČPžĆv¤ŻÇ V[gźâçńźÍÇÝŠŚÄË Dim adocon As Object, adors As Object Set adocon = CreateObject("ADODB.Connection") Set adors = CreateObject("ADODB.Recordset") With adocon .Provider = "Microsoft.ACE.OLEDB.12.0" .Properties("Extended Properties") = "Excel 12.0" .Open ThisWorkbook.Path & "\" & ThisWorkbook.Name End With Set adors = adocon.Execute("SELECT DISTINCT iź FROM [i\$]") Worksheets("iíŢę").Range("a1").CopyFromRecordset adors adocon.Close
955 źOFftHgĚźłľłń mailto:sage [2018/01/21(ú) 15:03:53.81 ID:pRI5Eg/X0.net] >>862 žęŠąęíŠél˘ÜšńH
956 źOFftHgĚźłľłń mailto:sage [2018/01/21(ú) 16:45:39.61 ID:WhYlNzfJM.net] >>918 şčÉ}NgŢćčExcelĚW@\ĚdĄíđgŚB VBAĆÍáÁÄŔńĹŤéŠçŹxŞiá˘
957 źOFftHgĚźłľłń mailto:sage [2018/01/21(ú) 18:35:28.14 ID:7nwc0luUa.net] dĄČľXg͢ë˘ëâčű éŻÇAW@\g¤ŠadoĹâ銪X}[gžë¤Ë dictionaryŕ 螯ÇAfsoĚâÂÍČńŠćčńľŞ˘Ü˘żśáË
958 źOFftHgĚźłľłń [2018/01/21(ú) 18:40:31.69 ID:nVuQLEta0.net] ąąSŇXŠĆvÁÄX^CŠČ¨ľÄľÜÁ˝íw IČOSŇľŠ¨çńâńw
959 źOFftHgĚźłľłń mailto:sage [2018/01/21(ú) 18:41:57.84 ID:EcNkRoqM0.net] ]bgNÜ˝âľČÁÄżáÁ˝ĚŠ
960 źOFftHgĚźłľłń mailto:sage [2018/01/21(ú) 18:57:02.81 ID:7nwc0luUa.net] .netframeworkĚlistÁÄdĄí@\ČŠÁ˝ÁŻH
961 źOFftHgĚźłľłń mailto:sage [2018/01/21(ú) 20:07:47.89 ID:+2jqUeqC0.net] >>932 XgÉ éŠČ˘ŠÍíŠéÝ˝˘ ąęČçzńÉËÁńĹ˝čľÄ˘ĚĆĎíçČť¤ ÇÝâˇÍČéŻÇ Dim partsList As Object Set partsList = CreateObject("System.Collections.ArrayList") Dim partsData Set partsData = Range("f[^Ěń") Dim parts For Each parts In partsData @If Not partsList.Contains(parts.Value) Then @@partsList.Add parts.Value @End If Next oÍČŞ
962 źOFftHgĚźłľłń mailto:sage [2018/01/21(ú) 20:16:12.20 ID:rQmHQ7OM0.net] >>929 > dictionaryŕ 螯ÇAfsoĚâÂÍČńŠćčńľŞ˘Ü˘żśáË ÓĄsž DictionaryĆfsoÉČńĚÖWŞ éńžH
963 źOFftHgĚźłľłń mailto:sage [2018/01/21(ú) 21:00:25.33 ID:xouI7cQH0.net] >>918 ĆčÜAUnionÖÍx˘ŠçâÎÉg¤ČAťęžŻ ZŞżĺÁĆŚéĆČPÉt[Yˇé ĘÉzńĆŠÉüęÄÁ˝űŞ˘˘
964 źOFftHgĚźłľłń [2018/01/21(ú) 21:12:55.02 ID:nVuQLEta0.net] >>935 ĆčÜAČńŢŤČčťę𞢞ľ˝ĚŠćŞŠçńŞ x˘ĚͨOĚvOŞşčłČžŻ ŹĚȢşčłŠ˛ë¤łń
965 źOFftHgĚźłľłń mailto:sage [2018/01/21(ú) 21:38:18.50 ID:Ycn/1JW20.net] require 'set' File.readlines("t@Cź").to_set.map { |item| puts item } Ruby ĚWđg¤ĆAČşĚć¤ČsćŘčĚt@CđA ˘ ¤ ˘ ČşĚć¤ČĘÉĹŤéB ˝žľAWÉÍftHgĹAÔÍł˘ĚĹA ÔŞKvČçA¨DÝĚîĹ\[gˇé ˘ ¤
966 źOFftHgĚźłľłń mailto:sage [2018/01/21(ú) 21:51:29.18 ID:EcNkRoqM0.net] xv¤ńžŞARubyÁÄźžęĚXÉÜĹzłľÉČŤáČçȢŮÇslCČĚŠH
967 źOFftHgĚźłľłń mailto:sage [2018/01/21(ú) 22:19:18.53 ID:Ycn/1JW20.net] Ruby žĆAeLXgŞAßżáßżáČPÉěęé źĚžęĚć¤ÉAŤíꏾȢ
968 źOFftHgĚźłľłń mailto:sage [2018/01/21(ú) 22:23:07.58 ID:+2jqUeqC0.net] ǤšČçřÁzľőŕËÄPythonÉľć¤[
969 źOFftHgĚźłľłń mailto:sage [2018/01/21(ú) 23:23:35.81 ID:ppfN03med.net] PÉ2ÂĚZđUnionˇéžŻĹ1ÔŠŠé Sub aaa() @Debug.Print Time @Dim u As Range @Set u = Cells(1, 1) @For r = 3 To 40000 Step 2 @@Set u = Union(u, Cells(r, 1)) @Next @Debug.Print Time End Sub
970 źOFftHgĚźłľłń mailto:sage [2018/01/21(ú) 23:45:19.36 ID:Ycn/1JW20.net] 2ÂĚf[^ÍAeLXgf[^žŻČçA1MB Žç˘žë >>937 ĚRuby ĹĚeLXgČçA1bŽç˘śáȢŠH
971 źOFftHgĚźłľłń mailto:sage [2018/01/22() 00:04:49.43 ID:R+7srG110.net] >>942 óCÇńĹË
972 źOFąąÍeLXgĚżâXśáČÄ Excel VBAĚżâXžŠç [] [ąąóęÄܡ]
973 źOFftHgĚźłľłń mailto:sage [2018/01/22() 01:20:01.78 ID:pYe1Cwj70.net] ťńČÉÔŞ|ŠéĚČçAęUf[^đGNX|[gľÄA f[^đeLXgľÄŠçAC|[gľÄßšÎH ˝ŠŞA2ÂĚf[^ĹA1ÔÍťŔIĹÍȢ ťńČÉÔŞ|ŠÁÄŕAǤľÄŕAVBA Ĺâ轢̊H
974 źOFftHgĚźłľłń mailto:sage [2018/01/22() 01:43:29.00 ID:zmIcszTc0.net] ÜĹUnionđgÁ˝ęĹ Áďɡéű@͢çĹŕ éŠçČB ťęÉdĹVBAg¤ÂŤžĆźĐĆĚŚ˛ŕlŚČŤá˘ŻČ˘ŠçRubyCXg[ˇéűŞćÁŰÇńťŔIžľB ÜA˝Ôń¨żĺÁÄéÂŕčČńžë¤ŻÇAťŕťŕVBAČOĚÂŤŞČ˘ÁÄOńĚXžŠçA Ruby}ĚřčŞřčÉČÁĢȢÁ̤EEEB
975 źOFftHgĚźłľłń mailto:sage [2018/01/22() 04:08:31.22 ID:Xp9Ai2fT0.net] dĄĚíÍ[NV[gĹâÁ˝űŞÄÁĆč˘Ćv¤
976 źOFftHgĚźłľłń mailto:sage [2018/01/22() 04:38:17.99 ID:AE7SVx7N0.net] >>945 > ťŕťŕVBAČOĚÂŤŞČ˘ÁÄOńĚXžŠç ťńČOńĹżâÉélŕ˘éžë¤ŻÇA uĹKđvđßĢélŞAĆč Ś¸VBAžĆǤČéŠAĆvÁÄżâˇéęŕ éĹľĺ žŠçAżâŇŞuSĚÉua`ČOÍ_vÁħŔđŠŻÄ˘Č˘ŔčÍA ăĹŕAACCESSđißĢélࢽŻÇAŔpĘŠçlŚ˝ńŕżâŇĚvÉČéĆv¤ńžŻÇ iżâŇŞť¤vÁĢÄŕA˝ŕmçȢŠçť¤vÁÄéÁÄp^[ˇç čžéŠČj
977 źOFftHgĚźłľłń mailto:sage [2018/01/22() 05:56:27.49 ID:zmIcszTc0.net] >>947 Excel VBAżâXĹĚuŔpĘvÍAęĘIČéĆüŻWindows PC(Officeťiüč)ĹoéɧŔłęéĆv¤ŻÇB ťęÉżâŇŞžžľ˝ČOÍuoȢvĆlŚÄ¨ĚŞíŻžĆv¤ËB ž˘˝˘źĚžęÉťĄŞ éČçAťĚžęĚXĹżâˇčá˘˘íŻžľA ÇńČŠČŮěđľ˝ĆąëĹÁčžęĚXĹźžęĚbđˇéRÉÍČçȢćB šßÄżâŇÉÎľÄVBAČOĚJÂŤÍł˘ŠuËARubyŞgŚéƢ¤ŠIČńŞžçę˝ÉßÄA RubyXÉUąľÄAťżçĹbđWJˇ×ŤžËB
978 źOFftHgĚźłľłń mailto:sage [2018/01/22() 08:37:35.39 ID:AE7SVx7N0.net] >>948 > ťęÉżâŇŞžžľ˝ČOÍuoȢvĆlŚÄ¨ĚŞíŻžĆv¤ËB AĹŕAčɡŤŕš¸ÉčÉťńČčđŠŻÄvč`ˇél͢ȢĆv¤ć > šßÄżâŇÉÎľÄVBAČOĚJÂŤÍł˘ŠuËARubyŞgŚéƢ¤ŠIČńŞžçę˝ÉßÄA > RubyXÉUąľÄAťżçĹbđWJˇ×ŤžËB ÂŤđˇĚÍÜ_ 螪AužĆćčČPÉĹŤéćvÁÄążçŠçž¤É˝ĚâčŞ éĚŠH Ą éÂŤŕĹK¸ŔťˇéKvŞ éČçĘžŞAť¤ĹȢęŕć éąĆĹľĺ ÜA˘¸ęÉšćA˝ŕˇŠČ˘¤żÉčÉuÉá˘Č˘vÁÄßÂŻéĚÍA vč`ĹÍęÔľżá˘ŻČ˘ąĆžć
979 źOFftHgĚźłľłń mailto:sage [2018/01/22() 10:06:54.55 ID:zmIcszTc0.net] >>949 dľÄ˘é𢽢ńžë¤ŻÇAžçŠÉoąŞł˘ĚŰoľČńžćČEEEB ťŕťŕVBAXĹRubyĚbđoľÄéŠĚŞâčČńžćB NŞâčÉČÁĢéĚÍvč`ĚbĹÍČJÂŤĚbžB žmČüřŤđˇéČçAąĚXĹÍxlsmÉL^ľAÁĘČőČľÉŔsĹŤéŕĚĹČŻęÎA˝Ĺ ęeÍÍOžB
980 źOFftHgĚźłľłń mailto:sage [2018/01/22() 10:12:50.46 ID:JFwvghX1M.net] Ü˝ť¤âÁÄžśťłęÄŕ˘Č˘ŠŞ[đWJľÄ˘[
981 źOFftHgĚźłľłń mailto:sage [2018/01/22() 10:23:32.81 ID:zmIcszTc0.net] žśťłęÄ͢ȢŻÇAߊçĄÜĹĚXĹĚ˝đŠéŔčÍA ž˘˝˘xlsmt@CPĚĹ}NĚŔsŞâŽĹŤéŠÇ¤ŠŞâ˝ĚoéoȢđŞŻÄéćB ˝žÂĘÉ}NŞL^łę˝ńÂČăĚt@CđAgłšéęĚbŕ éŠçuxlsmÉL^ľAőČľÉŔsÂ\ČvĆč`ľ˝žŻB ľÂŻéÂŕčÍȢŻÇAąĚč`Ĺâ誳ŻęÎevÉÁŚÄL`đŻľÄŮľ˘ç˘B
982 źOFftHgĚźłľłń mailto:sage [2018/01/22() 11:30:49.09 ID:r0T2WJT6a.net] >>934 ˛ßńscriptingRuntimeĚâÂAĚÔᢞ
983 źOFftHgĚźłľłń mailto:sage [2018/01/22() 11:33:07.33 ID:y0jssaARd.net] VBAđCƾğžęŕâIÉg¤B ťęČčÉ éĆv¤
984 źOFftHgĚźłľłń mailto:sage [2018/01/22() 15:12:56.07 ID:EwN8a0pa0.net] ŻśťŰŞNŤéć¤Éō鞯ČPČR[hđpӾܾ˝ ÜÁłçČxlsmÉUserForm1đ}üľATextBox1ĆTextBox2đĄÉŔ×ܡ UserForm1W
[ÉşLĚć¤ÉR[hđLqľÜˇ Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 39 Then With TextBox2 .SetFocus .SelStart = 0 End With End If End Sub UserForm1đÄńžăATextBox2ÉabĆLüľÜˇ ąĚĆŤATextBox1ŠçTextBox2ÉîóL[EŤÂë¤ĆˇéĆaĚOĹÍČaĆbĚÔÉJ[\ŞÄľÜ˘ÜˇB ǤˇęÎaĚOÉJ[\Şéć¤ÉČčܡŠHŕżëńabÍáŚÉˇŹ¸˘ëńČśńŞüčܡ ć뾨袾ܡ
985 źOFftHgĚźłľłń mailto:sage [2018/01/22() 15:25:33.05 ID:EwN8a0pa0.net] >>955 šŻÇAKeyCode=40AÂÜčîóL[şÉZbeBOľÄ TextBox1Šç2ÉÚéĆŞÉJ[\ŤÜˇË Ƣ¤ąĆÍAüÍľ˝îóL[EŞTextBox2ÉÚÁ˝ ĆණÄÄťĚeżŞoÄéÁĹƚŠË Ü´öŞŠÁÄŕđű@ŞŞŠçȢĚšŞ
986 źOFftHgĚźłľłń mailto:sage [2018/01/22() 16:37:43.27 ID:DgxtyBXU0.net] ľÄ˘Č˘ŻęÇ With TextBox2 ĚOÉ KeyCode = 0 đüę˝çǤ
987 źOFftHgĚźłľłń mailto:sage [2018/01/22() 17:07:09.72 ID:+/nnDvsjM.net] >>954 VBAĹ͍ɢ or ŔsŹxŞßżáx˘ ŠÂ ťĚžęČçČPÉŻé or ŔsŹxŞŹ˘ Čç č¤éĆv¤ ČĚĹAccessĆŠADOČçÜžíŠéŻÇRubyÍȢČ
988 źOFftHgĚźłľłń mailto:sage [2018/01/22() 22:49:33.42 ID:EwN8a0pa0.net] >>957 ľă˛˘EEEĹŤÜľ˝ čŞĆ¤˛´˘Üľ˝
989 źOFftHgĚźłľłń mailto:sage [2018/01/24(
) 10:46:16.37 ID:QE61Ho6h0.net] BĆBĚÔÉüÁÄéśđSŻśśÉuˇľ˝˘ęÁÄǤˇę΢˘Ĺľĺ¤ŠH BB@@@@@@@¨BcccB BakokB@@@@¨BcccB B3293i9iaB@@¨BcccB Ý˝˘Č´śĹˇ
990 źOFftHgĚźłľłń mailto:sage [2018/01/24(
) 11:16:56.30 ID:QE61Ho6h0.net] ˇ˘ÜšńŽĚĚBĆBĚÔĚśđuˇĹľ˝
991 źOFftHgĚźłľłń mailto:sage [2018/01/24(
) 12:30:55.33 ID:4OtF4psx0.net] ŽĚĚÁÄĚŞćíŠńȢŠçŔŰĚŽđ˘Äę
992 źOFftHgĚźłľłń mailto:sage [2018/01/24(
) 13:09:34.71 ID:QE61Ho6h0.net] ą¤˘¤Şâ轢ÁÄ´śĹˇ íŠčĂçġ˘Üšń =123456789(ąĚ9
ĚÍ_)@¨@=123ccc789 =123456789(ąĚ9
ĚÍ_)@¨@=12ccc3456789
993 źOFftHgĚźłľłń mailto:sage [2018/01/24(
) 13:24:33.86 ID:96uZKYcfd.net] >>963 BĚbÍÇąÖ˘Á˝ńžH
994 źOFftHgĚźłľłń mailto:sage [2018/01/24(
) 13:52:49.81 ID:QE61Ho6h0.net] ˘âąÁżĚűŞíŠč⡢ŠČĆ
995 źOFftHgĚźłľłń [2018/01/24(
) 14:37:17.59 ID:626EYBnb0.net] 2TÔç˘OŠçA tH[Rg[Ě{^đzuˇéĆ GNZt@CĚNŽŞ ˘ÂŕĚNŽÔĚ5{碊ŠélÉČč˘ÁĢܡB żČÝÉAVKĚt@CĹ௜ťŰÉČčA źĚp\RĹ௜ťŰÉČÁĢܡB ÇČ˝ŠAđű@đmçȢž夊H ĄgÁĢéÂŤÍ Windows 10Ao[W 1709 Excel2016 o[W 1712 šB
996 źOFftHgĚźłľłń mailto:sage [2018/01/24(
) 14:47:11.88 ID:LHEOU22dM.net] >>965 śâľÄńśáËŚć^ĘÚÉżâľë
997 źOFftHgĚźłľłń mailto:sage [2018/01/24(
) 16:00:42.34 ID:eVK1iV6m0.net]
998 źOFftHgĚźłľłń mailto:sage [2018/01/24(
) 17:24:26.92 ID:QE61Ho6h0.net] ČńĹČńÄĹÁ˝ĚŠEEE˝ČľÄܡ
999 źOFftHgĚźłľłń mailto:sage [2018/01/24(
) 17:48:11.23 ID:cTEKAhE2M.net] >>969 VBA łK\ť uˇ ĹOOę
1000 źOFftHgĚźłľłń mailto:sage [2018/01/24(
) 19:49:39.94 ID:4OtF4psx0.net] >>963 ÝńČąęĹíŠéĚH ăĆşÉKĽŤŞ éć¤ÉŠŚČ˘ńžŞ ăÍlđuŤˇŚÄÄAşÍ}üľÄéćË
1001 źOFftHgĚźłľłń mailto:sage [2018/01/24(
) 20:02:49.35 ID:XHxrtrwiM.net] íŠčÜšń
1002 źOFftHgĚźłľłń mailto:sage [2018/01/24(
) 21:10:53.71 ID:6b5evSsja.net] >>918 ťĚeLXgt@CŞCSVt@CÝ˝˘ÉJ}ćŘčĹ wb_ĆľÄÚźŞt˘ÄÄÚźÉdĄŞłŻęÎ ťĚt@CÉSQLÔń°ÄĘZbgćÁÄąęéńžŻÇČ
1003 źOFftHgĚźłľłń [2018/01/24(
) 21:14:29.60 .net] nšÉ[vÔńńľÄFomulaLocalĆInStrĆMidľÄżĺ
1004 źOFftHgĚźłľłń mailto:sage [2018/01/24(
) 21:29:25.29 ID:l13g0WQj0.net] ˘âA[vˇéÉľÄŕ VbScriptingDictionaryg¤ŠCollectiongÁÄ lđL[ĆľÄo^ľÄ ŻśL[Ş ęÎłAłŻęÎo^ÇÁĹ ĹăÉťĚćÁĨ˘˝ŕeđ WJˇéć¤ÉˇęÎťąťąĚX|XĹ sŻéńśáȢŠČB SQLĹsŻéČçťęŞĹŹžĆÍv¤ŻÇB
1005 źOFftHgĚźłľłń mailto:sage [2018/01/25(Ř) 19:41:38.87 ID:x0ph6Erf0.net] żáńĆľ˝DBMSČçĆŕŠAGNZ\ÉSQL°ÄŔsŹxŞŹ˘ĆŠlŚçęńŻÇ
1006 źOFftHgĚźłľłń mailto:sage [2018/01/25(Ř) 21:14:11.87 ID:xVw6nJl50.net] ADOžĆťęČčɢC[WČńžŻÇ ŔŰÍǤČĚŠË NŠŘľÄ˘Äŕćłť¤žŞ
1007 źOFftHgĚźłľłń mailto:sage [2018/01/25(Ř) 22:04:13.28 ID:BYFi0PM80.net] ęÚžŻĚärČńŠžĆVBAĹâéĚĆĎíçȢŻÇAFXĆđŞŚÄ˘ĆSQLĚűŞŹxŞżÉ˘B ĆźĚNŠŞŠéąĆŕlśˇéĆASQLĹŠŚéć¤ÉľÄ¨˘˝űŞŞŠč⡢B ˝žExcelĹSQLƢ¤ĚÍâ]IÉg˘Ăç˘B
1008 źOFftHgĚźłľłń mailto:sage [2018/01/25(Ř) 22:28:41.91 ID:3kW0jqmr0.net] UPDATEÍĹŤéŻÇDELETEŞĹŤČ˘ńžÁŻH
1009 źOFftHgĚźłľłń mailto:sage [2018/01/25(Ř) 22:46:48.37 ID:2HN+h3+60.net] ĹŤČÄŕâçČŤá˘ŻČ˘Ş éńžćjÉÍČ
1010 źOFftHgĚźłľłń mailto:sage [2018/01/26(ŕ) 10:16:15.47 ID:i1V2CYFLa.net] GNZĚe[u@\ÁÄǤČńć ńÜčgíńŠçéőÝȢńžŻÇsqlg˘âˇČÁ˝čšńĚH
1011 źOFftHgĚźłľłń mailto:sage [2018/01/26(ŕ) 14:00:22.47 ID:ewTTza6/0.net] >>980 Lŕžć ÉŚ°˝đ˝Éćë¤ĆľÄ˘é
1012 źOFftHgĚźłľłń mailto:sage [2018/01/26(ŕ) 19:52:38.86 ID:uoysLyn50.net] ą¤˘¤ĚđŠéĆ PythonąüľÄ~ľ˘ÁÄv¤ćČ AP[gćçęÄ˝ŠçżĺÁĆü劽ŻÇ\ʢíA ą¤˘Á˝WńIČąĆÉÖľÄŕ¸ÁĆyÉěꝤ VBâC#ĹŕăĚűĹoŚéąĆÉČé_Žâ Ce[^[ĆŠ˛î{IČ˝čOĚąĆĆľÄ ˘ŤČčĹŠçoÄéľ
1013 źOFftHgĚźłľłń [2018/01/26(ŕ) 20:26:28.69 ID:Vo+OzJVu0.net] VBAšç\ľÜč̨OçÉpythonČńŠ^Ś˝çĐďđ˘çˇÍě}N()ŞÜˇÜˇŚżá¤śáńŠw
1014 źOFftHgĚźłľłń mailto:sage [2018/01/26(ŕ) 20:36:36.35 ID:VXa7znFt0.net] R[hđÜĆŕÉÇÝŤoȢ]bgNŞSzˇéć¤ČĹŕȢŻÇČ
1015 źOFftHgĚźłľłń mailto:sage [2018/01/26(ŕ) 22:00:17.36 ID:mlDN6tJ0d.net] VBAđp~ČńÄĹŤéíŻČ˘ŠçPythonĆüčę˝vOÉČéńžë[ŠH
1016 źOFftHgĚźłľłń [2018/01/26(ŕ) 22:15:41.07 ID:pXxYwYu40.net] EęĚÂŤśáVBA碾ŠIđŞČ˘
1017 źOFftHgĚźłľłń mailto:sage [2018/01/26(ŕ) 22:23:52.83 ID:Ji/nweCn0.net] >>987 https://forest.watch.impress.co.jp/docs/serial/yajiuma/1097447.html
1018 źOFftHgĚźłľłń mailto:sage [2018/01/26(ŕ) 22:40:51.06 ID:VXa7znFt0.net] eżˇéĚÍĹVo[WžŻžë¤ľAExcelĹPythonĚúo[WžĆg˘¨ÉČçČŠÁ˝čQlśŁŞČŠÁ˝čĚâčĹA {iIÉgíęéć¤ÉČéÉľÄŕÜNČ㊊蝤BťľÄťąŠçłçÉNo˝Č˘ĆAťĚo[Wg¤ďĐŞoĹȳť¤B ÁĢ¤ŠĄÜĹŕVBAđVB.NetÖÚsłšć¤ĆľÄ¸sľÄ˝çľ˘ľAAIu[Éćś˝ęIČŕńĹŔťľČ˘ńśáȢĚB
1019 źOFftHgĚźłľłń [2018/01/27(y) 00:23:34.40 .net] PythonÁÄNŽÉßÁżáÔŞŠŠéŠçi5bç˘j ig˘ĚżĺÁĆľ˝c[ěéÉÍg˘¨ÉČçȢƢ¤óŰ
1020 źOFftHgĚźłľłń mailto:sage [2018/01/27(y) 00:36:59.48 ID:Xe+uGT7T0.net] ˝ŞPythonÚÁ˝ĆľÄŕľÎçÍVBAƤśžë¤ĆÍv¤B עČęłńBÉÍPythonŞéĚÍÁŮČOĚ˝¨ĹŕȢŠŕmęȢŻÇ ąüłę˝çČŠç¸XÉyľnßéB ČÉAEXCELĚĚRpNgÉZÜÁ˝˘EĚbžľ סéÉͤÁÄÂŻžĆv¤B ČĆŕĄăĚVBAćčÍÉqŞéćB
1021 źOFftHgĚźłľłń mailto:sage [2018/01/27(y) 01:00:30.81 ID:/Onm91iZa.net] ĄÜĹžęđĎŚéć¤ČďĚIČbÍoÄČŠÁ˝ŠçČ ÜłŠObjectwüžęśáČĢŤČčÖ^žęŞéĆÍČ
1022 źOFftHgĚźłľłń mailto:sage [2018/01/27(y) 01:49:19.54 ID:mMQhkopa0.net] PythonÍAIu[ĚűŠĆ¤ÉÁŚÄ˘Ťť¤ČľÍCžŠçŤŤÁ̤Ć^âŞEEEB
1023 źOFftHgĚźłľłń mailto:sage [2018/01/27(y) 08:00:53.71 ID:lEBNH3fnr.net] cbR~Çąë˝ˇŹžŻÇĆč Ś¸w I}GŞMđ´śéČw
1024 źOFftHgĚźłľłń mailto:sage [2018/01/27(y) 08:16:06.57 ID:ZgMGVzLO0.net] >>990 > PythonÁÄNŽÉßÁżáÔŞŠŠéŠçi5bç˘j łˇŞÉPC˘ˇŚć¤ć...
1025 źOFftHgĚźłľłń mailto:sage [2018/01/27(y) 11:01:00.79 ID:Nudrd5lRF.net] Excel Python żâX mevius.2ch.net/test/read.cgi/tech/1517018055/
1026 źOFftHgĚźłľłń mailto:sage [2018/01/27(y) 14:29:11.91 ID:arqbrGPuM.net] VBAŞÁťgŚČ˘žęžŠçĘÍpythonĺ˝}Ĺľĺc
1027 źOFftHgĚźłľłń mailto:sage [2018/01/27(y) 15:20:10.85 ID:cbFXqoc10.net] VBA˘śáȢŻÇAPhythonĚűŞžçŠÉGKgČR[fBOĹŤť¤žŠç˝}ľŠČ˘í VBAÍQĆÝčľ˝çgŚéöxĚŕĚÉČéńśáȢŠH
1028 źOFftHgĚźłľłń mailto:sage [2018/01/27(y) 15:44:26.54 ID:+7hAxrT3a.net] ÇńČžęžÁÄĹŤézÍĹŤéB VBAŞĘڞƊž¤zÉŔÁÄáďČR[hŻČ˘zΊčČńžćČ B
1029 źOFftHgĚźłľłń mailto:sage [2018/01/27(y) 16:05:43.43 ID:arqbrGPuM.net] ąńȢÄÄXgX}bnĚžęÍȢŠçČ Ü SőpC\˘Ĺľĺw
1030 źOFftHgĚźłľłń [2018/01/27(y) 16:11:26.72 ID:3QIsbpwxM.net] VBA¨javascript¨PythonĚÉoŚ˝ŻÇ˝ŞťńČÉXgXČ̊檊çń
1031 źOFftHgĚźłľłń mailto:sage [2018/01/27(y) 17:39:06.57 ID:Xe+uGT7T0.net] ťęćčXÍH
1032 źOFftHgĚźłľłń mailto:sage [2018/01/27(y) 19:59:27.66 ID:QIG/4o8/0.net] >>998 Ę߲żÝâĆ˝ÚĹkľ˝˘ĆŤÉ żâ˝ÚĹͲÝĂŢÝÄöęÄßSČąĆÉČÁÄéČ
1033 źOFftHgĚźłľłń mailto:sage [2018/01/27(y) 20:30:03.5
] [ąąóęÄܡ]
1034 źOF6 ID:Xe+uGT7T0.net mailto: Ćč Ś¸X§ÄĨ˘˝ Excel VBA żâX Part52 http://mevius.2ch.net/test/read.cgi/tech/1517052305/ >>1003 PythonÍXR[vŞCfgĹßçęĢéŠçË CfgĚdÝŞźĚžęĚťęĆÍSᤠăíčÉEnd IfâEnd SubÝ˝˘Čŕ̪Ȣ [] [ąąóęÄܡ]
1035 źOFftHgĚźłľłń mailto:sage [2018/01/27(y) 22:07:33.55 ID:845Tmzax0.net] >>1004 ł 1000Qbg
1036 źOF1001 [Over 1000 Thread.net] ąĚXbhÍPOOOđ´ŚÜľ˝B Vľ˘Xbhđ§ÄÄžł˘B life time: 80ú 10Ô 41Ş 3b
1037 źOFßO [[ßO]] Ą ąĚXbhÍßOqÉÉi[łęĢܡ