4 New Messages
Digest #2500
1.2
Re: Fw: [belajar-excel] Tes Looping For ... Next dan For each ... Ne by "Mr. Kid" nmkid.family@ymail.com
Messages
Wed Aug 28, 2013 1:24 am (PDT) . Posted by:
"summonery" summonery
Mr Kid, boleh dicek kembali,sepertinya ada yang kurang pas dibagian ini
untuk error handlingnya:(Uji coba dilakukan dengan Excel 2010)
Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")Baris =
InputBox("Mau Sampai Berapa Baris ?", "Nulis")If Not
WorksheetFunction.IsNumber(Kolom) Or Not
WorksheetFunction.IsNumber(Baris) Then Exit Sub
Penggunaan Application.Inputbox dengan return data type 1 (number) dapat
sebagai pertimbangan.
>semoga bermanfaat
--- In belajar-excel@yahoogroups.com , "Mr. Kid" wrote:
>
> eh lupa,
> baris :
> ReDim Data(1 To Baris, 1 To Kolom)
>
> jadi :
> ReDim Data(1 To Baris, 1 To Kolom) as long
>
>
>
> 2013/8/28 Mr. Kid mr.nmkid@...
>
> > 3D maksudnya dengan sheet ?
> >
> > misal ada 3 sheet
> >
> > Sub tes3d()
> > Dim Data() as long, Kolom As Long, Baris As Long, tStart As
Double
> > Dim i As Long, j As Long, Counter As Variant, lSht as long
> >
> >
> > Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
> > Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
> >
> > If Not WorksheetFunction.IsNumber(Kolom) Or Not
> > WorksheetFunction.IsNumber(Baris) Then Exit Sub
> > ReDim Data(1 To Baris, 1 To Kolom)
> >
> > tStart = Timer
> > for lsht=1 to 3
> > For i = 1 To Baris
> > For j = 1 To Kolom
> > Counter = Counter + 1
> > Data(i, j) = Counter
> > Next j
> > Next i
> > sheets(lsht).Range("A1").CurrentRegion.ClearContents
> > sheets(lsht).Range("A1").resize(Baris, Kolom).value = Data
> > next lsht
> > MsgBox Timer - tStart & " detik"
> > End Sub
> >
> >
> > misal ada 3 sheet dan ndak urut, tapi nama-namanya sudah diketahui :
> > Sub tes3d()
> > Dim Data() as long, Kolom As Long, Baris As Long, tStart As
Double
> > Dim i As Long, j As Long, Counter As Variant, vSht as variant
> >
> >
> > Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
> > Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
> >
> > If Not WorksheetFunction.IsNumber(Kolom) Or Not
> > WorksheetFunction.IsNumber(Baris) Then Exit Sub
> > ReDim Data(1 To Baris, 1 To Kolom)
> >
> > tStart = Timer
> > for each vsht in
array("sheet1","sheet5","sheetEmbuh","satsitsatsit")
> > For i = 1 To Baris
> > For j = 1 To Kolom
> > Counter = Counter + 1
> > Data(i, j) = Counter
> > Next j
> > Next i
> > sheets(vsht).Range("A1").CurrentRegion.ClearContents
> > sheets(vsht).Range("A1").resize(Baris, Kolom).value = Data
> > next vsht
> > MsgBox Timer - tStart & " detik"
> > End Sub
> >
> > ;)
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> >
> > 2013/8/27 De Premor de@...
> >
> >> **
> >>
> >>
> >> iya nih, keren :D
> >>
> >> Kalau untuk yang 3D kira2 gimana ya Mr. Kid ?
> >>
> >>
> >> On 27-08-2013 22:59, Mr. Kid wrote:
> >>
> >>
> >> baris :
> >> Range("A1", Range("A1").Offset(Baris - 1, Kolom - 1).Address) =
Data
> >>
> >> sepertinya bisa :
> >> Range("a1").resize(baris,kolom).value=data
> >>
> >> Wassalam,
> >> Kid.
> >>
> >>
> >>
> >> 2013/8/27 De Premor de@...
> >>
> >>> Range("A1", Range("A1").Offset(Baris - 1, Kolom - 1).Address) =
Data
> >>
> >>
> >>
> >>
> >>
> >>
> >
> >
>
untuk error handlingnya:
Kolom = InputBox("
InputBox("
WorksheetFunction.
WorksheetFunction.
Penggunaan Application.
sebagai pertimbangan.
>semoga bermanfaat
--- In belajar-excel@
>
> eh lupa,
> baris :
> ReDim Data(1 To Baris, 1 To Kolom)
>
> jadi :
> ReDim Data(1 To Baris, 1 To Kolom) as long
>
>
>
> 2013/8/28 Mr. Kid mr.nmkid@...
>
> > 3D maksudnya dengan sheet ?
> >
> > misal ada 3 sheet
> >
> > Sub tes3d()
> > Dim Data() as long, Kolom As Long, Baris As Long, tStart As
Double
> > Dim i As Long, j As Long, Counter As Variant, lSht as long
> >
> >
> > Kolom = InputBox("
> > Baris = InputBox("
> >
> > If Not WorksheetFunction.
> > WorksheetFunction.
> > ReDim Data(1 To Baris, 1 To Kolom)
> >
> > tStart = Timer
> > for lsht=1 to 3
> > For i = 1 To Baris
> > For j = 1 To Kolom
> > Counter = Counter + 1
> > Data(i, j) = Counter
> > Next j
> > Next i
> > sheets(lsht)
> > sheets(lsht)
> > next lsht
> > MsgBox Timer - tStart & " detik"
> > End Sub
> >
> >
> > misal ada 3 sheet dan ndak urut, tapi nama-namanya sudah diketahui :
> > Sub tes3d()
> > Dim Data() as long, Kolom As Long, Baris As Long, tStart As
Double
> > Dim i As Long, j As Long, Counter As Variant, vSht as variant
> >
> >
> > Kolom = InputBox("
> > Baris = InputBox("
> >
> > If Not WorksheetFunction.
> > WorksheetFunction.
> > ReDim Data(1 To Baris, 1 To Kolom)
> >
> > tStart = Timer
> > for each vsht in
array("
> > For i = 1 To Baris
> > For j = 1 To Kolom
> > Counter = Counter + 1
> > Data(i, j) = Counter
> > Next j
> > Next i
> > sheets(vsht)
> > sheets(vsht)
> > next vsht
> > MsgBox Timer - tStart & " detik"
> > End Sub
> >
> > ;)
> >
> > Wassalam,
> > Kid.
> >
> >
> >
> >
> > 2013/8/27 De Premor de@...
> >
> >> **
> >>
> >>
> >> iya nih, keren :D
> >>
> >> Kalau untuk yang 3D kira2 gimana ya Mr. Kid ?
> >>
> >>
> >> On 27-08-2013 22:59, Mr. Kid wrote:
> >>
> >>
> >> baris :
> >> Range("
Data
> >>
> >> sepertinya bisa :
> >> Range("
> >>
> >> Wassalam,
> >> Kid.
> >>
> >>
> >>
> >> 2013/8/27 De Premor de@...
> >>
> >>> Range("
Data
> >>
> >>
> >>
> >>
> >>
> >>
> >
> >
>
Wed Aug 28, 2013 4:16 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Ok,
bagian yang di-biru oleh Pak Anton, bisa diganti dengan : (sambil nunggu
yang mau pake application.inputbox type=1)
Err.Clear
On Error Resume Next
Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
If Err.Number <> 0 Then
Exit Sub
ElseIf Kolom < 1 Then
Exit Sub
ElseIf Baris < 1 Then
Exit Sub
End If
'If Not WorksheetFunction.IsNumber(Kolom) Or Not
WorksheetFunction.IsNumber(Baris) Then Exit Sub
Wassalam,
Kid.
On Wed, Aug 28, 2013 at 3:24 PM, summonery <summonery@yahoo.com > wrote:
> **
>
>
> Mr Kid, boleh dicek kembali,
> sepertinya ada yang kurang pas dibagian ini untuk error handlingnya:
> (Uji coba dilakukan dengan Excel 2010)
>
> Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
> Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
> If Not WorksheetFunction.IsNumber(Kolom) Or Not
> WorksheetFunction.IsNumber(Baris) Then Exit Sub
>
> Penggunaan *Application.*Inputbox dengan return data type 1 (number)
> dapat sebagai pertimbangan.
>
>
> >semoga bermanfaat
>
>
> --- In belajar-excel@yahoogroups.com , "Mr. Kid" wrote:
> >
> > eh lupa,
> > baris :
> > ReDim Data(1 To Baris, 1 To Kolom)
> >
> > jadi :
> > ReDim Data(1 To Baris, 1 To Kolom) as long
> >
> >
> >
> > 2013/8/28 Mr. Kid mr.nmkid@...
>
> >
> > > 3D maksudnya dengan sheet ?
> > >
> > > misal ada 3 sheet
> > >
> > > Sub tes3d()
> > > Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
> > > Dim i As Long, j As Long, Counter As Variant, lSht as long
> > >
> > >
> > > Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
> > > Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
> > >
> > > If Not WorksheetFunction.IsNumber(Kolom) Or Not
> > > WorksheetFunction.IsNumber(Baris) Then Exit Sub
> > > ReDim Data(1 To Baris, 1 To Kolom)
> > >
> > > tStart = Timer
> > > for lsht=1 to 3
> > > For i = 1 To Baris
> > > For j = 1 To Kolom
> > > Counter = Counter + 1
> > > Data(i, j) = Counter
> > > Next j
> > > Next i
> > > sheets(lsht).Range("A1").CurrentRegion.ClearContents
> > > sheets(lsht).Range("A1").resize(Baris, Kolom).value = Data
> > > next lsht
> > > MsgBox Timer - tStart & " detik"
> > > End Sub
> > >
> > >
> > > misal ada 3 sheet dan ndak urut, tapi nama-namanya sudah diketahui :
> > > Sub tes3d()
> > > Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
> > > Dim i As Long, j As Long, Counter As Variant, vSht as variant
> > >
> > >
> > > Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
> > > Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
> > >
> > > If Not WorksheetFunction.IsNumber(Kolom) Or Not
> > > WorksheetFunction.IsNumber(Baris) Then Exit Sub
> > > ReDim Data(1 To Baris, 1 To Kolom)
> > >
> > > tStart = Timer
> > > for each vsht in array("sheet1","sheet5","sheetEmbuh","satsitsatsit")
> > > For i = 1 To Baris
> > > For j = 1 To Kolom
> > > Counter = Counter + 1
> > > Data(i, j) = Counter
> > > Next j
> > > Next i
> > > sheets(vsht).Range("A1").CurrentRegion.ClearContents
> > > sheets(vsht).Range("A1").resize(Baris, Kolom).value = Data
> > > next vsht
> > > MsgBox Timer - tStart & " detik"
> > > End Sub
> > >
> > > ;)
> > >
> > > Wassalam,
> > > Kid.
> > >
> > >
> > >
> > >
> > > 2013/8/27 De Premor de@...
> > >
> > >> **
>
> > >>
> > >>
> > >> iya nih, keren :D
> > >>
> > >> Kalau untuk yang 3D kira2 gimana ya Mr. Kid ?
> > >>
> > >>
> > >> On 27-08-2013 22:59, Mr. Kid wrote:
> > >>
> > >>
> > >> baris :
> > >> Range("A1", Range("A1").Offset(Baris - 1, Kolom - 1).Address) = Data
> > >>
> > >> sepertinya bisa :
> > >> Range("a1").resize(baris,kolom).value=data
> > >>
> > >> Wassalam,
> > >> Kid.
> > >>
> > >>
> > >>
> > >> 2013/8/27 De Premor de@...
>
> > >>
> > >>> Range("A1", Range("A1").Offset(Baris - 1, Kolom - 1).Address) = Data
> > >>
> > >>
> > >>
> > >>
> > >>
> > >>
> > >
> > >
> >
>
>
>
bagian yang di-biru oleh Pak Anton, bisa diganti dengan : (sambil nunggu
yang mau pake application.
Err.Clear
On Error Resume Next
Kolom = InputBox("
Baris = InputBox("
If Err.Number <> 0 Then
Exit Sub
ElseIf Kolom < 1 Then
Exit Sub
ElseIf Baris < 1 Then
Exit Sub
End If
'If Not WorksheetFunction.
WorksheetFunction.
Wassalam,
Kid.
On Wed, Aug 28, 2013 at 3:24 PM, summonery <summonery@yahoo.
> **
>
>
> Mr Kid, boleh dicek kembali,
> sepertinya ada yang kurang pas dibagian ini untuk error handlingnya:
> (Uji coba dilakukan dengan Excel 2010)
>
> Kolom = InputBox("
> Baris = InputBox("
> If Not WorksheetFunction.
> WorksheetFunction.
>
> Penggunaan *Application.
> dapat sebagai pertimbangan.
>
>
> >semoga bermanfaat
>
>
> --- In belajar-excel@
> >
> > eh lupa,
> > baris :
> > ReDim Data(1 To Baris, 1 To Kolom)
> >
> > jadi :
> > ReDim Data(1 To Baris, 1 To Kolom) as long
> >
> >
> >
> > 2013/8/28 Mr. Kid mr.nmkid@...
>
> >
> > > 3D maksudnya dengan sheet ?
> > >
> > > misal ada 3 sheet
> > >
> > > Sub tes3d()
> > > Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
> > > Dim i As Long, j As Long, Counter As Variant, lSht as long
> > >
> > >
> > > Kolom = InputBox("
> > > Baris = InputBox("
> > >
> > > If Not WorksheetFunction.
> > > WorksheetFunction.
> > > ReDim Data(1 To Baris, 1 To Kolom)
> > >
> > > tStart = Timer
> > > for lsht=1 to 3
> > > For i = 1 To Baris
> > > For j = 1 To Kolom
> > > Counter = Counter + 1
> > > Data(i, j) = Counter
> > > Next j
> > > Next i
> > > sheets(lsht)
> > > sheets(lsht)
> > > next lsht
> > > MsgBox Timer - tStart & " detik"
> > > End Sub
> > >
> > >
> > > misal ada 3 sheet dan ndak urut, tapi nama-namanya sudah diketahui :
> > > Sub tes3d()
> > > Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
> > > Dim i As Long, j As Long, Counter As Variant, vSht as variant
> > >
> > >
> > > Kolom = InputBox("
> > > Baris = InputBox("
> > >
> > > If Not WorksheetFunction.
> > > WorksheetFunction.
> > > ReDim Data(1 To Baris, 1 To Kolom)
> > >
> > > tStart = Timer
> > > for each vsht in array("
> > > For i = 1 To Baris
> > > For j = 1 To Kolom
> > > Counter = Counter + 1
> > > Data(i, j) = Counter
> > > Next j
> > > Next i
> > > sheets(vsht)
> > > sheets(vsht)
> > > next vsht
> > > MsgBox Timer - tStart & " detik"
> > > End Sub
> > >
> > > ;)
> > >
> > > Wassalam,
> > > Kid.
> > >
> > >
> > >
> > >
> > > 2013/8/27 De Premor de@...
> > >
> > >> **
>
> > >>
> > >>
> > >> iya nih, keren :D
> > >>
> > >> Kalau untuk yang 3D kira2 gimana ya Mr. Kid ?
> > >>
> > >>
> > >> On 27-08-2013 22:59, Mr. Kid wrote:
> > >>
> > >>
> > >> baris :
> > >> Range("
> > >>
> > >> sepertinya bisa :
> > >> Range("
> > >>
> > >> Wassalam,
> > >> Kid.
> > >>
> > >>
> > >>
> > >> 2013/8/27 De Premor de@...
>
> > >>
> > >>> Range("
> > >>
> > >>
> > >>
> > >>
> > >>
> > >>
> > >
> > >
> >
>
>
>
Wed Aug 28, 2013 4:40 am (PDT) . Posted by:
"De Premor" de.premor
oiya baru ingat kalau bisa difilter dari inputboxnya, berikut updatenya
* Kolom = Abs(Int(Application.InputBox("Mau Sampai Berapa Kolom ?",
"Nulis", Type:=1)))**
** Baris = Abs(Int(Application.InputBox("Mau Sampai Berapa Baris ?",
"Nulis", Type:=1)))**
****
** If Kolom < 1 Or Baris < 1 Then Exit Sub**
*
Pada 28/08/2013 18:16, Mr. Kid menulis:
> Ok,
>
> bagian yang di-biru oleh Pak Anton, bisa diganti dengan : (sambil
> nunggu yang mau pake application.inputbox type=1)
> Err.Clear
> On Error Resume Next
> Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
> Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
>
> If Err.Number <> 0 Then
> Exit Sub
> ElseIf Kolom < 1 Then
> Exit Sub
> ElseIf Baris < 1 Then
> Exit Sub
> End If
> 'If Not WorksheetFunction.IsNumber(Kolom) Or Not
> WorksheetFunction.IsNumber(Baris) Then Exit Sub
>
> Wassalam,
> Kid.
>
>
>
>
> On Wed, Aug 28, 2013 at 3:24 PM, summonery <summonery@yahoo.com
> <mailto:summonery@yahoo.com >> wrote:
>
> Mr Kid, boleh dicek kembali,
> sepertinya ada yang kurang pas dibagian ini untuk error handlingnya:
> (Uji coba dilakukan dengan Excel 2010)
>
> Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
> Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
> If Not WorksheetFunction.IsNumber(Kolom) Or Not
> WorksheetFunction.IsNumber(Baris) Then Exit Sub
>
> Penggunaan *Application.*Inputbox dengan return data type 1
> (number) dapat sebagai pertimbangan.
>
>
> >semoga bermanfaat
>
>
> --- In belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com >, "Mr. Kid" wrote:
> >
> > eh lupa,
> > baris :
> > ReDim Data(1 To Baris, 1 To Kolom)
> >
> > jadi :
> > ReDim Data(1 To Baris, 1 To Kolom) as long
> >
> >
> >
> > 2013/8/28 Mr. Kid mr.nmkid@...
>
> >
> > > 3D maksudnya dengan sheet ?
> > >
> > > misal ada 3 sheet
> > >
> > > Sub tes3d()
> > > Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
> > > Dim i As Long, j As Long, Counter As Variant, lSht as long
> > >
> > >
> > > Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
> > > Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
> > >
> > > If Not WorksheetFunction.IsNumber(Kolom) Or Not
> > > WorksheetFunction.IsNumber(Baris) Then Exit Sub
> > > ReDim Data(1 To Baris, 1 To Kolom)
> > >
> > > tStart = Timer
> > > for lsht=1 to 3
> > > For i = 1 To Baris
> > > For j = 1 To Kolom
> > > Counter = Counter + 1
> > > Data(i, j) = Counter
> > > Next j
> > > Next i
> > > sheets(lsht).Range("A1").CurrentRegion.ClearContents
> > > sheets(lsht).Range("A1").resize(Baris, Kolom).value = Data
> > > next lsht
> > > MsgBox Timer - tStart & " detik"
> > > End Sub
> > >
> > >
> > > misal ada 3 sheet dan ndak urut, tapi nama-namanya sudah
> diketahui :
> > > Sub tes3d()
> > > Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
> > > Dim i As Long, j As Long, Counter As Variant, vSht as variant
> > >
> > >
> > > Kolom = InputBox("Mau Sampai Berapa Kolom ?", "Nulis")
> > > Baris = InputBox("Mau Sampai Berapa Baris ?", "Nulis")
> > >
> > > If Not WorksheetFunction.IsNumber(Kolom) Or Not
> > > WorksheetFunction.IsNumber(Baris) Then Exit Sub
> > > ReDim Data(1 To Baris, 1 To Kolom)
> > >
> > > tStart = Timer
> > > for each vsht in
> array("sheet1","sheet5","sheetEmbuh","satsitsatsit")
> > > For i = 1 To Baris
> > > For j = 1 To Kolom
> > > Counter = Counter + 1
> > > Data(i, j) = Counter
> > > Next j
> > > Next i
> > > sheets(vsht).Range("A1").CurrentRegion.ClearContents
> > > sheets(vsht).Range("A1").resize(Baris, Kolom).value = Data
> > > next vsht
> > > MsgBox Timer - tStart & " detik"
> > > End Sub
> > >
> > > ;)
> > >
> > > Wassalam,
> > > Kid.
> > >
> > >
> > >
> > >
> > > 2013/8/27 De Premor de@...
> > >
> > >> **
>
> > >>
> > >>
> > >> iya nih, keren :D
> > >>
> > >> Kalau untuk yang 3D kira2 gimana ya Mr. Kid ?
> > >>
> > >>
> > >> On 27-08-2013 22:59, Mr. Kid wrote:
> > >>
> > >>
> > >> baris :
> > >> Range("A1", Range("A1").Offset(Baris - 1, Kolom - 1).Address)
> = Data
> > >>
> > >> sepertinya bisa :
> > >> Range("a1").resize(baris,kolom).value=data
> > >>
> > >> Wassalam,
> > >> Kid.
> > >>
> > >>
> > >>
> > >> 2013/8/27 De Premor de@...
>
> > >>
> > >>> Range("A1", Range("A1").Offset(Baris - 1, Kolom -
> 1).Address) = Data
> > >>
> > >>
> > >>
> > >>
> > >>
> > >>
> > >
> > >
> >
>
>
>
* Kolom = Abs(Int(Application
"Nulis"
** Baris = Abs(Int(Application
"Nulis"
****
** If Kolom < 1 Or Baris < 1 Then Exit Sub**
*
Pada 28/08/2013 18:16, Mr. Kid menulis:
> Ok,
>
> bagian yang di-biru oleh Pak Anton, bisa diganti dengan : (sambil
> nunggu yang mau pake application.
> Err.Clear
> On Error Resume Next
> Kolom = InputBox("
> Baris = InputBox("
>
> If Err.Number <> 0 Then
> Exit Sub
> ElseIf Kolom < 1 Then
> Exit Sub
> ElseIf Baris < 1 Then
> Exit Sub
> End If
> 'If Not WorksheetFunction.
> WorksheetFunction.
>
> Wassalam,
> Kid.
>
>
>
>
> On Wed, Aug 28, 2013 at 3:24 PM, summonery <summonery@yahoo.
> <mailto:summonery@yahoo.
>
> Mr Kid, boleh dicek kembali,
> sepertinya ada yang kurang pas dibagian ini untuk error handlingnya:
> (Uji coba dilakukan dengan Excel 2010)
>
> Kolom = InputBox("
> Baris = InputBox("
> If Not WorksheetFunction.
> WorksheetFunction.
>
> Penggunaan *Application.
> (number) dapat sebagai pertimbangan.
>
>
> >semoga bermanfaat
>
>
> --- In belajar-excel@
> <mailto:belajar-excel@
> >
> > eh lupa,
> > baris :
> > ReDim Data(1 To Baris, 1 To Kolom)
> >
> > jadi :
> > ReDim Data(1 To Baris, 1 To Kolom) as long
> >
> >
> >
> > 2013/8/28 Mr. Kid mr.nmkid@...
>
> >
> > > 3D maksudnya dengan sheet ?
> > >
> > > misal ada 3 sheet
> > >
> > > Sub tes3d()
> > > Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
> > > Dim i As Long, j As Long, Counter As Variant, lSht as long
> > >
> > >
> > > Kolom = InputBox("
> > > Baris = InputBox("
> > >
> > > If Not WorksheetFunction.
> > > WorksheetFunction.
> > > ReDim Data(1 To Baris, 1 To Kolom)
> > >
> > > tStart = Timer
> > > for lsht=1 to 3
> > > For i = 1 To Baris
> > > For j = 1 To Kolom
> > > Counter = Counter + 1
> > > Data(i, j) = Counter
> > > Next j
> > > Next i
> > > sheets(lsht)
> > > sheets(lsht)
> > > next lsht
> > > MsgBox Timer - tStart & " detik"
> > > End Sub
> > >
> > >
> > > misal ada 3 sheet dan ndak urut, tapi nama-namanya sudah
> diketahui :
> > > Sub tes3d()
> > > Dim Data() as long, Kolom As Long, Baris As Long, tStart As Double
> > > Dim i As Long, j As Long, Counter As Variant, vSht as variant
> > >
> > >
> > > Kolom = InputBox("
> > > Baris = InputBox("
> > >
> > > If Not WorksheetFunction.
> > > WorksheetFunction.
> > > ReDim Data(1 To Baris, 1 To Kolom)
> > >
> > > tStart = Timer
> > > for each vsht in
> array("
> > > For i = 1 To Baris
> > > For j = 1 To Kolom
> > > Counter = Counter + 1
> > > Data(i, j) = Counter
> > > Next j
> > > Next i
> > > sheets(vsht)
> > > sheets(vsht)
> > > next vsht
> > > MsgBox Timer - tStart & " detik"
> > > End Sub
> > >
> > > ;)
> > >
> > > Wassalam,
> > > Kid.
> > >
> > >
> > >
> > >
> > > 2013/8/27 De Premor de@...
> > >
> > >> **
>
> > >>
> > >>
> > >> iya nih, keren :D
> > >>
> > >> Kalau untuk yang 3D kira2 gimana ya Mr. Kid ?
> > >>
> > >>
> > >> On 27-08-2013 22:59, Mr. Kid wrote:
> > >>
> > >>
> > >> baris :
> > >> Range("
> = Data
> > >>
> > >> sepertinya bisa :
> > >> Range("
> > >>
> > >> Wassalam,
> > >> Kid.
> > >>
> > >>
> > >>
> > >> 2013/8/27 De Premor de@...
>
> > >>
> > >>> Range("
> 1).Address) = Data
> > >>
> > >>
> > >>
> > >>
> > >>
> > >>
> > >
> > >
> >
>
>
>
Wed Aug 28, 2013 1:48 am (PDT) . Posted by:
"agung aldhino" d_nozz
Thank Mr Kid...
Case done.... setelah diaplikasikan dan dimodifikasi sedikit belum ada keluhan.
untuk versi baru belum bisa saya lihat. maklum pakai komputer kantor, jadi beberapa situs diblokir.
memang beda ya... untuk keamanan, addpicture lebih baik.
tapi berhubung yang dibutuhkan addshape.
wassalam
dhino
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com >
Kepada: BeExcel <belajar-excel@yahoogroups.com >
Dikirim: Selasa, 27 Agustus 2013 22:02
Judul: Re: [belajar-excel] Otomatisasi Format Object foto di MS Excel 2007
Oh file vba Input Picture ya...
File tersebut menggunakan methods addpicture. Hal ini akan membuat linked image ke file image-nya. Jadi, yang disimpan oleh Excel (xl2007 keatas dalam xml-nya) adalah teks alamat si file saja. Ketika gambar yang akan di-load memiliki ukuran yang besar, maka file excel akan tetap pada kecil karena tidak menyimpan gambar dalam workbook. Biasanya hal ini digunakan untuk memelihara agar file gambar tidak tersebar kemanapun selain dalam komputer tersebut atau dalam jaringan instansi tersebut saja.Jika ingin membuat si file gambar disimpan dalam workbook, sehingga bisa dibuka dikomputer lain atau di luar jaringan komputer instansi, maka yang digunakan mestinya methods AddShape. Jenis shape-nya bisa bermacam-macam, seperti rounded rectangle atau apa saja yang dibutuhkan. Kemudian shape baru tersebut diisi (fill) dengan gambar milik user (userpicture) berdasar teks alamat si gambar.
Contoh :
dim shp as shape
set shp=activesheet.shapes.addshape(msoshaperectangle)
shp.fill.userpicture="G:\mydata\myimage1.jpg"
Silakan coba versi baru dari input picture, terutama pada sheet yang ada teks berbunyi '_save_in_media'. File tersebut bisa diunduh disini.
Wassalam,
Kid.
2013/8/27 agung aldhino <d_nozz@yahoo.co.id >
>Mr Kid,
>saya sudah mencoba salah satu file macro milik Mr Kid. tapi setelah jadi, akan coba saya kirim melalui email.
>kenapa kok image/foto nya tidak nongol ya.... tapi jika dikirim via email berikut data file imagenya, hasilnya bisa muncul.
>maksudnya, file tersebut selalu nge-link ke file imagenya. walaupun code macro sudah saya hapus semuanya.
>mungkin gambar berikut bisa menjelaskan maksudnya. bagaimana cara mengatasinya?
>
>
>Dari: Mr. Kid <mr.nmkid@gmail.com >
>Kepada: BeExcel <belajar-excel@yahoogroups.com >
>Dikirim: Senin, 26 Agustus 2013 20:31
>Judul: Re: [belajar-excel] Otomatisasi Format Object foto di MS Excel 2007
>
>
>Thread ini sudah lama tapi belum ada yang menyentuh.
>Moga-moga langkah berikut ini ndak membingungkan (xl2007, mungkin bisa di xl2003)
>1. save as workbook dengan save as type dipilih Macro Enabled Workbook (.xlsm) atau Excel 97-2003 (.xls)
>2. ke VBE (ALT F11)
>3. buat sebuah general module (menu Insert -> module)
>4. copas prosedur berikut :
>public sub AturFormatShape()
>
> dim vShp as variant, shp as shape
>
> vshp=selection
>
> if vartype(vshp)<>vbobject then 'cek, kalo bukan object, keluar saja
>
> exit sub
>
> endif
>
> 'sampai sini pastilah object
>
> set shp=activesheet.shapes(vshp.name) 'simpan si shape
>
> with shp 'kerja di shape
>
> 'a. bingkai garis 2 pt merah
>
> with .line 'kerja pada garisnya
>
> .dashstyle=msolinesolid
>
> .style=msolinesingle
>
> .weight=2 '2pt
>
> .forecolor.schemecolor=2 'indeks warna merah
>
> end with
>
> 'b. lengkung di sudut (rounded rectangle)
>
> .autoshapetype=msoshaperoundedrectangle
>
> 'c. yang kiri jadi kanan dan yang kanan jadi kiri (flip horizontal)
>
> .flip msofliphorizontal
>
> end with
>end sub
>
>
>5. kembali ke workbook window (tekan ALT F11)
>
>6. atur shortcut (tekan ALT F8 -> pilih nama prosedur, yaitu AturFormatShape -> tekan Option -> bagian Shortcut key diisi huruf q -> OK -> Cancel)
>
>7. save workbook
>
>8. klik sebuah shape -> tekan CTRL Q
>
>
>
>Wassalam,
>
>Kid.
>
>2013/8/23 <agung.widodo01@id.panasonic.com >
>
>>Rekans Be-Excel,
>>
>>Newbie di Excel 2007 sering melakukan hal ini jadi ingin membuat otomatisasi langkah
>>(dengan tombol yang mengaktifkan makro dengan shortcut Ctl+q) untuk perintah formatting obyek yang dipilih sebagai berikut,
>> 1. Setelah saya select Foto (yang sudah diinsert ke lembar kerja Excel)
>> 2. Saya tekan Ctrl+q
>> 3. maka Foto yang dipilih dilangkah 1 akan :
>> 1. Menjadi berbingkai garis 2pts warna merah
>> 2. Ada lengkung radius di tiap sudutnya
>> 3. Foto berubah dalam format negatif (rotate 180derajat, kanan jadi dikiri, kiri ada dikanan)
>>
>>
>>Bagaimana macro atau sampel filenya.?
>>Untuk otomatisasi data di spreadsheet sederhana, namun saya kesulitan saat membuat otomatisasi langkah2 tersebut pada foto.
>>
>>Kiranya ada yang bisa membantu membuatkan.
>>Lebih diharapkan dikirim dengan lampiran berisi makronya, foto bebas
>>
>>Terimakasih banyak.
>>
>>Wassalam
>>AW.
>_
>
Case done.... setelah diaplikasikan dan dimodifikasi sedikit belum ada keluhan.
untuk versi baru belum bisa saya lihat. maklum pakai komputer kantor, jadi beberapa situs diblokir.
memang beda ya... untuk keamanan, addpicture lebih baik.
tapi berhubung yang dibutuhkan addshape.
wassalam
dhino
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: BeExcel <belajar-excel@
Dikirim: Selasa, 27 Agustus 2013 22:02
Judul: Re: [belajar-excel] Otomatisasi Format Object foto di MS Excel 2007
Oh file vba Input Picture ya...
File tersebut menggunakan methods addpicture. Hal ini akan membuat linked image ke file image-nya. Jadi, yang disimpan oleh Excel (xl2007 keatas dalam xml-nya) adalah teks alamat si file saja. Ketika gambar yang akan di-load memiliki ukuran yang besar, maka file excel akan tetap pada kecil karena tidak menyimpan gambar dalam workbook. Biasanya hal ini digunakan untuk memelihara agar file gambar tidak tersebar kemanapun selain dalam komputer tersebut atau dalam jaringan instansi tersebut saja.Jika ingin membuat si file gambar disimpan dalam workbook, sehingga bisa dibuka dikomputer lain atau di luar jaringan komputer instansi, maka yang digunakan mestinya methods AddShape. Jenis shape-nya bisa bermacam-macam, seperti rounded rectangle atau apa saja yang dibutuhkan. Kemudian shape baru tersebut diisi (fill) dengan gambar milik user (userpicture) berdasar teks alamat si gambar.
Contoh :
dim shp as shape
set shp=activesheet.
shp.fill.userpictur
Silakan coba versi baru dari input picture, terutama pada sheet yang ada teks berbunyi '_save_in_
Wassalam,
Kid.
2013/8/27 agung aldhino <d_nozz@yahoo.
>Mr Kid,
>saya sudah mencoba salah satu file macro milik Mr Kid. tapi setelah jadi, akan coba saya kirim melalui email.
>kenapa kok image/foto nya tidak nongol ya.... tapi jika dikirim via email berikut data file imagenya, hasilnya bisa muncul.
>maksudnya, file tersebut selalu nge-link ke file imagenya. walaupun code macro sudah saya hapus semuanya.
>mungkin gambar berikut bisa menjelaskan maksudnya. bagaimana cara mengatasinya?
>
>
>Dari: Mr. Kid <mr.nmkid@gmail.
>Kepada: BeExcel <belajar-excel@
>Dikirim: Senin, 26 Agustus 2013 20:31
>Judul: Re: [belajar-excel] Otomatisasi Format Object foto di MS Excel 2007
>
>
>Thread ini sudah lama tapi belum ada yang menyentuh.
>Moga-moga langkah berikut ini ndak membingungkan (xl2007, mungkin bisa di xl2003)
>1. save as workbook dengan save as type dipilih Macro Enabled Workbook (.xlsm) atau Excel 97-2003 (.xls)
>2. ke VBE (ALT F11)
>3. buat sebuah general module (menu Insert -> module)
>4. copas prosedur berikut :
>public sub AturFormatShape(
>
> dim vShp as variant, shp as shape
>
> vshp=selection
>
> if vartype(vshp)
>
> exit sub
>
> endif
>
> 'sampai sini pastilah object
>
> set shp=activesheet.
>
> with shp 'kerja di shape
>
> 'a. bingkai garis 2 pt merah
>
> with .line 'kerja pada garisnya
>
> .dashstyle=msolines
>
> .style=msolinesingl
>
> .weight=2 '2pt
>
> .forecolor.schemeco
>
> end with
>
> 'b. lengkung di sudut (rounded rectangle)
>
> .autoshapetype=
>
> 'c. yang kiri jadi kanan dan yang kanan jadi kiri (flip horizontal)
>
> .flip msofliphorizontal
>
> end with
>end sub
>
>
>5. kembali ke workbook window (tekan ALT F11)
>
>6. atur shortcut (tekan ALT F8 -> pilih nama prosedur, yaitu AturFormatShape -> tekan Option -> bagian Shortcut key diisi huruf q -> OK -> Cancel)
>
>7. save workbook
>
>8. klik sebuah shape -> tekan CTRL Q
>
>
>
>Wassalam,
>
>Kid.
>
>2013/8/23 <agung.widodo01@
>
>>Rekans Be-Excel,
>>
>>Newbie di Excel 2007 sering melakukan hal ini jadi ingin membuat otomatisasi langkah
>>(dengan tombol yang mengaktifkan makro dengan shortcut Ctl+q) untuk perintah formatting obyek yang dipilih sebagai berikut,
>> 1. Setelah saya select Foto (yang sudah diinsert ke lembar kerja Excel)
>> 2. Saya tekan Ctrl+q
>> 3. maka Foto yang dipilih dilangkah 1 akan :
>> 1. Menjadi berbingkai garis 2pts warna merah
>> 2. Ada lengkung radius di tiap sudutnya
>> 3. Foto berubah dalam format negatif (rotate 180derajat, kanan jadi dikiri, kiri ada dikanan)
>>
>>
>>Bagaimana macro atau sampel filenya.?
>>Untuk otomatisasi data di spreadsheet sederhana, namun saya kesulitan saat membuat otomatisasi langkah2 tersebut pada foto.
>>
>>Kiranya ada yang bisa membantu membuatkan.
>>Lebih diharapkan dikirim dengan lampiran berisi makronya, foto bebas
>>
>>Terimakasih banyak.
>>
>>Wassalam
>>AW.
>_
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar