ÎŒ²” IV

VBAŒ¤‹†Š‚ÉW‚Ü‚é•ûX‚ÌŒe‚¢‚Ìê‚Å‚·B‚Ý‚È‚³‚ñŽ©—R‚É‚¨Žg‚¢‚‚¾‚³‚¢B
‚±‚±‚Å‚Í VBA ‚ÌŽ¿–â‚ÍŒµ‹ÖB


	ƒcƒŠ[•\Ž¦ „«ˆê——•\Ž¦ „«ƒgƒsƒbƒN•\Ž¦ „«ŒŸõ „«Ý’è „«ƒz[ƒ€

5251 / 7636

©ŽŸ‚Ö@b@‘O‚Ö¨


	y2432zRe:ƒAƒ‹ƒR[ƒ‹ƒAƒŒƒ‹ƒM[H

Jaka - 09/5/12(‰Î) 15:16 -


	ˆø—p‚È‚µ

	ƒpƒXƒ[ƒh

‚ ‚Á‚³‚èo—ˆ‚¿‚á‚Á‚½‚Ý‚½‚¢‚Å‚·‚ËB
Ž„‚ÍA‚à‚Á‚Æ‹ê˜J‚µ‚ÄŒ‹‹Ç•ú‚è“Š‚°....B

‚±‚ÌŽí‚ÍA‚±‚ê‚Å—Ç‚¢‚ÆŽv‚¢‚Ü‚·B
‚Å‚àA‰~Aƒoƒuƒ‹A‚“™ü“™‚ª....B

Sub ‚Â‚ñ‚³‚ñ‚Ì‚ð‚¿‚å‚Á‚Æ‰ü‘¢()
Dim i As Long
Dim strBuf As String
Dim strData As String
Dim rData As Range
Dim GrR
Dim Shnam As String

Shnam = "Sheet1"
With Sheets(Shnam).ChartObjects("ƒOƒ‰ƒt 2").Chart
@@ For i = 1 To .SeriesCollection.Count
@@@@ strBuf = .SeriesCollection(i).Formula
@@@@@@@ '=SERIES(ƒf[ƒ^!$B$1,ƒf[ƒ^!$A$2:$A$7,ƒf[ƒ^!$B$2:$B$7,1)‚ÈŒ`
@@@@ strBuf = Replace(Replace(strBuf, "," & i & ")", ""), "=SERIES(", "")
@@@@@@@ 'ƒf[ƒ^!$B$1,ƒf[ƒ^!$A$2:$A$7,ƒf[ƒ^!$B$2:$B$7 ‚ÌŒ`‚É
@@@@ If i = 1 Then
@@@@@@strData = strBuf
@@@@ Else
@@@@@@strData = strData & "," & strBuf
@@@@ End If
@@ Next i
@@ GrR = Split(Range(strData).Address, ",")
End With
With Sheets(Shnam)
@@For i = LBound(GrR) To UBound(GrR)
@@@@If i = LBound(GrR) Then
@@@@@ Set rData = .Range(GrR(LBound(GrR)))
@@@@Else
@@@@@ Set rData = .Range(rData, .Range(GrR(i)))
@@@@End If
@@Next i
@@.Select
End With
rData.Select
MsgBox Shnam & "!" & rData.Address
End Sub

FXH‚×•¨‚ÌŽ–‚ð‚²‘¶’m‚Ì‚æ‚¤‚Å....B
—«“Á—LHH

ƒ‰ƒ€ƒŒ[ƒYƒ“HHH
ƒŒ[ƒYƒ“ƒoƒ^[‚Ý‚½‚¢‚È•¨‚©‚ÆŽv‚Á‚½‚¯‚ê‚ÇA
ƒ‰ƒ€ŽðH

’²‚×‚Ä‚Ý‚½‚çƒ‰ƒ€Žð‚Å‚µ‚½B
H‚×‚½Ž–‚ª‚ ‚é‚Ì‚©‚È‚¢‚Ì‚©Šo‚¦‚Ä‚Ü‚¹‚ñB
‚Á‚ÄA‚Ü‚¸H‚×‚½Ž–‚Í‚È‚¢‚¾‚ë‚¤‚ÆŽv‚¢‚Ü‚·B
‚PŒÂ‚‚ç‚¢‚È‚çŽ€‚È‚È‚¢‚©‚à...B

0 hits

y2387z‚È‚ñ‚©ì‚è‚½[‚¢ ‚Â‚ñ 09/4/27(ŒŽ) 18:05