15 Messages
Digest #4143
Messages
Thu Mar 30, 2017 8:53 pm (PDT) . Posted by:
"Tio Adi Bayu Adjie"
Alhamdulillah, sudah berhasil Mr. Kid.
Memang Mr. Kid seorang Guru sejati. Tidak bosan-bosan menjawab dengan penjelasan yang panjang sehingga bisa dimengerti penanya.
Saya hanya bisa berdoa, semoga amal kebaikan Mr. Kid diterima Allah SWT dengan pahala yang berlipat ganda dalam mencerdaskan bangsa Indonesia. Amiin Yaa Robbal 'Alamin…
Syukron katsiiir…
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, March 30, 2017 5:08 PM
To: BeExcel
Subject: Re: [belajar-excel] Mengetahui apakah file tertentu sudah dibuka HANYA di computer kita sendiri
Hai Tio,
1. untuk cek sebuah file ada atau tidak bisa dengan begini :
dim sPath as string, sFile as string, sFileName as string
spath="\\komputer-x\folder\subfolder\dst" 'atau "d:\folder dataku\sub foldernya"
sfile="file excel nya.xlsx"
sfilename=spath & "\" & sfile
if len(sfilename)=0 then 'nama file belum didefinisikan (masih teks kosong)
msgbox "Nama file masih kosong"
elseif len(dir(sfilename))=0 then 'ada teks nama file, tetapi wujud filenya tidak ada
msgbox "File [" & sfilename & "] tidak ditemukan"
endif
2. untuk cek sebuah workbook sedang terbuka atau tidak
dim iFile as integer
dim sPath as string, sFile as string, sFileName as string
spath="\\komputer-x\folder\subfolder\dst"
sfile="file excel nya.xlsx"
sfilename=spath & "\" & sfile
on error resume next
ifile=freefile
open sfilename for input lock read as #ifile
close ifile
if err.number=0 then 'file sedang tidak dibuka oleh siapapun
msgbox "Tidak ada user yang sedang membuka file [" & sfilename & "]"
else
msgbox "File sedang dibuka entah dimana dan entah oleh siapa"
endif
err.clear
on error goto 0
3. untuk memeriksa apakah Excel yang dipakai si VBA sedang membuka workbook
dim wbk as workbook
dim sPath as string, sFile as string, sFileName as string
spath="\\komputer-x\folder\subfolder\dst"
sfile="file excel nya.xlsx"
sfilename=spath & "\" & sfile
on error resume next
set wbk=workbooks(sfile)
if not wbk is nothing then 'wbk ada isinya, berarti sedang terbuka di aplikasi excel yang dipakai si VBA
msgbox "Anda sedang membuka file [" & sfilename & "] di aplikasi Excel ini"
else
msgbox "Pada aplikasi Excel ini tidak ditemukan workbook [" & sfilename & "]"
endif
4. untuk memeriksa apakah workbook terbuka di instansi aplikasi Excel selain yang dipakai si VBA di komputer yang sama
dim wbk as workbook, app as excel.application
dim sPath as string, sFile as string, sFileName as string
spath="\\komputer-x\folder\subfolder\dst"
sfile="file excel nya.xlsx"
sfilename=spath & "\" & sfile
on error resume next
set app=getobject(sfilename).application
if app.hwnd<>thisworkbook.parent.hwnd then 'handle aplikasi Excel yang membuka file ternyata beda dengan aplikasi excel yang dipakai si VBA
msgbox "File [" & sfilename & "] sedang dibuka di aplikasi Excel lain pada komputer ini"
else
app.workbooks(sfile).close false
endif
5. memisahkan nama lengkap file menjadi 2 bagian, yaitu bagian path dan bagian file
dim sFileParts() as string
dim sPath as string, sFile as string, sFileName as string
sfilename="\\komputer-x\folder\subfolder\dst\file excel nya.xlsx" 'atau "d:\folder data ku\sub foldernya\file excel nya.xlsx"
sfileparts=split(sfilename,"\")
sfile=sfileparts(ubound(sfileparts))
spath=replace(sfilename,"\" & sfile,vbnullstring)
*** urutan proses :
Nomor 1 -> Nomor 2 bagian else diisi nomor3 dan nomor 3 bagian else diisi nomor 4 lalu nomor 4 bagian else ditambahkan pesan bahwa file dibuka oleh user lain entah dimana (dikomputer yang sama ataupun tidak).
*** jika inputannya adalah nama file lengkap, maka baris-baris kode :
dim sPath as string, sFile as string, sFileName as string
spath="\\komputer-x\folder\subfolder\dst" 'atau "d:\folder dataku\sub foldernya"
sfile="file excel nya.xlsx"
sfilename=spath & "\" & sfile
diganti dengan nomor 5
Regards,
Kid
On Thu, Mar 30, 2017 at 11:02 AM, Tio Adi Bayu Adjie tio.adjie@ptssb.co.id<mailto:tio.adjie@ptssb.co.id> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>> wrote:
Salam BeExceller,
Saya sudah menemukan coding vb untuk mengetahui apakah file yang saya pilih sudah dibuka atau tidak. Tapi code vba tsb dimaksudkan file terbuka di computer kita dan terbuka juga di network oleh orang lain.
Bisakah kita memodif code vba untuk mengetahui apakah file yang dimaksud sudah terbuka HANYA di computer kita sendiri (bukan terbuka di network oleh user lain) ?
Dibawah adalah code vba yang mengetahui apakah file dimaksud sudah terbuka/tidak oleh kita sendiri dan user lain di network.
Sub TestFileOpened()
' Test to see if the file is open.
If IsFileOpen("\\ssbfs01\ssbstore\Corporate Division\Estimating Department-Services\2. Estimator\8. Tio\Nozzle-Type-Information.xlsx") Then
' Display a message stating the file in use.
MsgBox "File already in use!"
'
' Add code here to handle case where file is open by another
' user.
'
Else
' Display a message stating the file is not in use.
MsgBox "File not in use!"
' Open the file in Microsoft Excel.
' Workbooks.Open "c:\Book2.xls"
'
' Add code here to handle case where file is NOT open by another
' user.
'
End If
End Sub
' This function checks to see if a file is open or not. If the file is
' already open, it returns True. If the file is not open, it returns
' False. Otherwise, a run-time error occurs because there is
' some other problem accessing the file.
Function IsFileOpen(filename As String)
Dim filenum As Integer, errnum As Integer
On Error Resume Next ' Turn error checking off.
filenum = FreeFile() ' Get a free file number.
' Attempt to open the file and lock it.
Open filename For Input Lock Read As #filenum
Close filenum ' Close the file.
errnum = Err ' Save the error number that occurred.
On Error GoTo 0 ' Turn error checking back on.
' Check to see which error occurred.
Select Case errnum
' No error occurred.
' File is NOT already open by another user.
Case 0
IsFileOpen = False
' Error number for "Permission Denied."
' File is already opened by another user.
Case 70
IsFileOpen = True
' Another error occurred.
Case Else
Error errnum
End Select
End Function
Thanks,
Tio
__,_._,_
Memang Mr. Kid seorang Guru sejati. Tidak bosan-bosan menjawab dengan penjelasan yang panjang sehingga bisa dimengerti penanya.
Saya hanya bisa berdoa, semoga amal kebaikan Mr. Kid diterima Allah SWT dengan pahala yang berlipat ganda dalam mencerdaskan bangsa Indonesia. Amiin Yaa Robbal 'Alamin…
Syukron katsiiir…
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, March 30, 2017 5:08 PM
To: BeExcel
Subject: Re: [belajar-excel] Mengetahui apakah file tertentu sudah dibuka HANYA di computer kita sendiri
Hai Tio,
1. untuk cek sebuah file ada atau tidak bisa dengan begini :
dim sPath as string, sFile as string, sFileName as string
spath="\\komputer-x\folder\subfolder\dst" 'atau "d:\folder dataku\sub foldernya"
sfile="file excel nya.xlsx"
sfilename=spath & "\" & sfile
if len(sfilename)=0 then 'nama file belum didefinisikan (masih teks kosong)
msgbox "Nama file masih kosong"
elseif len(dir(sfilename))=0 then 'ada teks nama file, tetapi wujud filenya tidak ada
msgbox "File [" & sfilename & "] tidak ditemukan"
endif
2. untuk cek sebuah workbook sedang terbuka atau tidak
dim iFile as integer
dim sPath as string, sFile as string, sFileName as string
spath="\\komputer-x\folder\subfolder\dst"
sfile="file excel nya.xlsx"
sfilename=spath & "\" & sfile
on error resume next
ifile=freefile
open sfilename for input lock read as #ifile
close ifile
if err.number=0 then 'file sedang tidak dibuka oleh siapapun
msgbox "Tidak ada user yang sedang membuka file [" & sfilename & "]"
else
msgbox "File sedang dibuka entah dimana dan entah oleh siapa"
endif
err.clear
on error goto 0
3. untuk memeriksa apakah Excel yang dipakai si VBA sedang membuka workbook
dim wbk as workbook
dim sPath as string, sFile as string, sFileName as string
spath="\\komputer-x\folder\subfolder\dst"
sfile="file excel nya.xlsx"
sfilename=spath & "\" & sfile
on error resume next
set wbk=workbooks(sfile)
if not wbk is nothing then 'wbk ada isinya, berarti sedang terbuka di aplikasi excel yang dipakai si VBA
msgbox "Anda sedang membuka file [" & sfilename & "] di aplikasi Excel ini"
else
msgbox "Pada aplikasi Excel ini tidak ditemukan workbook [" & sfilename & "]"
endif
4. untuk memeriksa apakah workbook terbuka di instansi aplikasi Excel selain yang dipakai si VBA di komputer yang sama
dim wbk as workbook, app as excel.application
dim sPath as string, sFile as string, sFileName as string
spath="\\komputer-x\folder\subfolder\dst"
sfile="file excel nya.xlsx"
sfilename=spath & "\" & sfile
on error resume next
set app=getobject(sfilename).application
if app.hwnd<>thisworkbook.parent.hwnd then 'handle aplikasi Excel yang membuka file ternyata beda dengan aplikasi excel yang dipakai si VBA
msgbox "File [" & sfilename & "] sedang dibuka di aplikasi Excel lain pada komputer ini"
else
app.workbooks(sfile).close false
endif
5. memisahkan nama lengkap file menjadi 2 bagian, yaitu bagian path dan bagian file
dim sFileParts() as string
dim sPath as string, sFile as string, sFileName as string
sfilename="\\komputer-x\folder\subfolder\dst\file excel nya.xlsx" 'atau "d:\folder data ku\sub foldernya\file excel nya.xlsx"
sfileparts=split(sfilename,"\")
sfile=sfileparts(ubound(sfileparts))
spath=replace(sfilename,"\" & sfile,vbnullstring)
*** urutan proses :
Nomor 1 -> Nomor 2 bagian else diisi nomor3 dan nomor 3 bagian else diisi nomor 4 lalu nomor 4 bagian else ditambahkan pesan bahwa file dibuka oleh user lain entah dimana (dikomputer yang sama ataupun tidak).
*** jika inputannya adalah nama file lengkap, maka baris-baris kode :
dim sPath as string, sFile as string, sFileName as string
spath="\\komputer-x\folder\subfolder\dst" 'atau "d:\folder dataku\sub foldernya"
sfile="file excel nya.xlsx"
sfilename=spath & "\" & sfile
diganti dengan nomor 5
Regards,
Kid
On Thu, Mar 30, 2017 at 11:02 AM, Tio Adi Bayu Adjie tio.adjie@ptssb.co.id<mailto:tio.adjie@ptssb.co.id> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>> wrote:
Salam BeExceller,
Saya sudah menemukan coding vb untuk mengetahui apakah file yang saya pilih sudah dibuka atau tidak. Tapi code vba tsb dimaksudkan file terbuka di computer kita dan terbuka juga di network oleh orang lain.
Bisakah kita memodif code vba untuk mengetahui apakah file yang dimaksud sudah terbuka HANYA di computer kita sendiri (bukan terbuka di network oleh user lain) ?
Dibawah adalah code vba yang mengetahui apakah file dimaksud sudah terbuka/tidak oleh kita sendiri dan user lain di network.
Sub TestFileOpened(
' Test to see if the file is open.
If IsFileOpen("
' Display a message stating the file in use.
MsgBox "File already in use!"
'
' Add code here to handle case where file is open by another
' user.
'
Else
' Display a message stating the file is not in use.
MsgBox "File not in use!"
' Open the file in Microsoft Excel.
' Workbooks.Open "c:\
'
' Add code here to handle case where file is NOT open by another
' user.
'
End If
End Sub
' This function checks to see if a file is open or not. If the file is
' already open, it returns True. If the file is not open, it returns
' False. Otherwise, a run-time error occurs because there is
' some other problem accessing the file.
Function IsFileOpen(filename As String)
Dim filenum As Integer, errnum As Integer
On Error Resume Next ' Turn error checking off.
filenum = FreeFile() ' Get a free file number.
' Attempt to open the file and lock it.
Open filename For Input Lock Read As #filenum
Close filenum ' Close the file.
errnum = Err ' Save the error number that occurred.
On Error GoTo 0 ' Turn error checking back on.
' Check to see which error occurred.
Select Case errnum
' No error occurred.
' File is NOT already open by another user.
Case 0
IsFileOpen = False
' Error number for "Permission Denied."
' File is already opened by another user.
Case 70
IsFileOpen = True
' Another error occurred.
Case Else
Error errnum
End Select
End Function
Thanks,
Tio
__,_._,_
Thu Mar 30, 2017 8:53 pm (PDT) . Posted by:
"Tio Adi Bayu Adjie"
Salam BeExceller,
Mau tanya, bagaimana untuk mengubah angka inch ke mm di Userform ?
Seperti di text box
Tertulis
Nilai Pecahan (inch)
Hasil di Nilai Pecahan (mm)
1/4
6.35
1/2
12.7
3/4
19.05
3/8
9.525
1 1/4
31.75
1 3/4
44.45
Saya pakai Val function, gak berhasil ya ?
File terlampir.
Terima kasih.
Salam.
Mau tanya, bagaimana untuk mengubah angka inch ke mm di Userform ?
Seperti di text box
Tertulis
Nilai Pecahan (inch)
Hasil di Nilai Pecahan (mm)
1/4
6.35
1/2
12.7
3/4
19.05
3/8
9.525
1 1/4
31.75
1 3/4
44.45
Saya pakai Val function, gak berhasil ya ?
File terlampir.
Terima kasih.
Salam.
Thu Mar 30, 2017 9:14 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Tio,
Jika inputan dalam inch adalah suatu nilai yang standard, seperti dimensi
penampang pipa yang memiliki standar ukuran diameter, maka ada baiknya
menggunakan combobox yang merujuk ke daftar standar ukuran yang disediakan
dalam satu sheet.
btw,
Jika inputan dalam inch adalah bebas yang sesuai ketentuan, seperti hanya
boleh angka, karakter / dan karakter spasi, maka bisa dengan baris kode
berikut :
Dim sText As String, sTemp As String, lClean As Long
sText = satuaninch.Text
'ada isinya
If Len(Trim(sText)) = 0 Then
satuanmm.Text = vbNullString
Exit Sub
End If
'validasi input berupa angka, karakter spasi, atau karakter /
sTemp = Replace(Replace(Replace(sText, " ", vbNullString), "/",
vbNullString), """", vbNullString)
If Not IsNumeric(sTemp) Then
satuanmm.Text = vbNullString
Exit Sub
End If
'membersihkan spasi ganda, / ganda, dan spasi sebelum atau sesudah /
For lClean = 1 To 20
sText = Replace(Replace(Replace(Replace(sText, " ", " "), " /",
"/"), "/ ", "/"), "//", "/")
Next lClean
'mengubah spasi menjadi + dan mengimbuhi = didepan teks
sText = "=" & Replace(sText, " ", "+")
'hitung mm dengan dikali 25.4 mm menggunakan evaluate
satuanmm.Text = Evaluate(sText)
Regards,
Kid
2017-03-31 10:45 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Salam BeExceller,
>
> Mau tanya, bagaimana untuk mengubah angka inch ke mm di Userform ?
>
> Seperti di text box
>
> Tertulis
>
> *Nilai Pecahan (inch)*
>
> *Hasil di Nilai Pecahan (mm)*
>
> 1/4
>
> 6.35
>
> 1/2
>
> 12.7
>
> 3/4
>
> 19.05
>
> 3/8
>
> 9.525
>
> 1 1/4
>
> 31.75
>
> 1 3/4
>
> 44.45
>
> Saya pakai Val function, gak berhasil ya ?
>
>
>
> File terlampir.
>
> Terima kasih.
>
> Salam.
>
>
>
>
>
Jika inputan dalam inch adalah suatu nilai yang standard, seperti dimensi
penampang pipa yang memiliki standar ukuran diameter, maka ada baiknya
menggunakan combobox yang merujuk ke daftar standar ukuran yang disediakan
dalam satu sheet.
btw,
Jika inputan dalam inch adalah bebas yang sesuai ketentuan, seperti hanya
boleh angka, karakter / dan karakter spasi, maka bisa dengan baris kode
berikut :
Dim sText As String, sTemp As String, lClean As Long
sText = satuaninch.Text
'ada isinya
If Len(Trim(sText)) = 0 Then
satuanmm.Text = vbNullString
Exit Sub
End If
'validasi input berupa angka, karakter spasi, atau karakter /
sTemp = Replace(Replace(Replace(sText, " ", vbNullString), "/",
vbNullString), """", vbNullString)
If Not IsNumeric(sTemp) Then
satuanmm.Text = vbNullString
Exit Sub
End If
'membersihkan spasi ganda, / ganda, dan spasi sebelum atau sesudah /
For lClean = 1 To 20
sText = Replace(Replace(Replace(Replace(sText, " ", " "), " /",
"/"), "/ ", "/"), "//", "/")
Next lClean
'mengubah spasi menjadi + dan mengimbuhi = didepan teks
sText = "=" & Replace(sText, " ", "+")
'hitung mm dengan dikali 25.4 mm menggunakan evaluate
satuanmm.Text = Evaluate(sText)
Regards,
Kid
2017-03-31 10:45 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Salam BeExceller,
>
> Mau tanya, bagaimana untuk mengubah angka inch ke mm di Userform ?
>
> Seperti di text box
>
> Tertulis
>
> *Nilai Pecahan (inch)*
>
> *Hasil di Nilai Pecahan (mm)*
>
> 1/4
>
> 6.35
>
> 1/2
>
> 12.7
>
> 3/4
>
> 19.05
>
> 3/8
>
> 9.525
>
> 1 1/4
>
> 31.75
>
> 1 3/4
>
> 44.45
>
> Saya pakai Val function, gak berhasil ya ?
>
>
>
> File terlampir.
>
> Terima kasih.
>
> Salam.
>
>
>
>
>
Thu Mar 30, 2017 11:00 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Eh baris evaluate nya belum dikali 25.4
Ditambahin sendiri ya.
Regards,
Kid
Sent from my smart enough phone
> On Mar 31, 2017, at 11:14, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
> Hai Tio,
>
> Jika inputan dalam inch adalah suatu nilai yang standard, seperti dimensi penampang pipa yang memiliki standar ukuran diameter, maka ada baiknya menggunakan combobox yang merujuk ke daftar standar ukuran yang disediakan dalam satu sheet.
>
> btw,
> Jika inputan dalam inch adalah bebas yang sesuai ketentuan, seperti hanya boleh angka, karakter / dan karakter spasi, maka bisa dengan baris kode berikut :
> Dim sText As String, sTemp As String, lClean As Long
> sText = satuaninch.Text
>
> 'ada isinya
> If Len(Trim(sText)) = 0 Then
> satuanmm.Text = vbNullString
> Exit Sub
> End If
>
> 'validasi input berupa angka, karakter spasi, atau karakter /
> sTemp = Replace(Replace(Replace(sText, " ", vbNullString), "/", vbNullString), """", vbNullString)
> If Not IsNumeric(sTemp) Then
> satuanmm.Text = vbNullString
> Exit Sub
> End If
>
> 'membersihkan spasi ganda, / ganda, dan spasi sebelum atau sesudah /
> For lClean = 1 To 20
> sText = Replace(Replace(Replace(Replace(sText, " ", " "), " /", "/"), "/ ", "/"), "//", "/")
> Next lClean
> 'mengubah spasi menjadi + dan mengimbuhi = didepan teks
> sText = "=" & Replace(sText, " ", "+")
>
> 'hitung mm dengan dikali 25.4 mm menggunakan evaluate
> satuanmm.Text = Evaluate(sText)
>
> Regards,
> Kid
>
>
> 2017-03-31 10:45 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>> Salam BeExceller,
>>
>> Mau tanya, bagaimana untuk mengubah angka inch ke mm di Userform ?
>>
>> Seperti di text box
>>
>> Tertulis
>>
>> Nilai Pecahan (inch)
>>
>> Hasil di Nilai Pecahan (mm)
>>
>> 1/4
>>
>> 6.35
>>
>> 1/2
>>
>> 12.7
>>
>> 3/4
>>
>> 19.05
>>
>> 3/8
>>
>> 9.525
>>
>> 1 1/4
>>
>> 31.75
>>
>> 1 3/4
>>
>> 44.45
>>
>> Saya pakai Val function, gak berhasil ya ?
>>
>>
>>
>> File terlampir.
>>
>> Terima kasih.
>>
>> Salam.
>>
>>
>>
>
>
Ditambahin sendiri ya.
Regards,
Kid
Sent from my smart enough phone
> On Mar 31, 2017, at 11:14, 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
> Hai Tio,
>
> Jika inputan dalam inch adalah suatu nilai yang standard, seperti dimensi penampang pipa yang memiliki standar ukuran diameter, maka ada baiknya menggunakan combobox yang merujuk ke daftar standar ukuran yang disediakan dalam satu sheet.
>
> btw,
> Jika inputan dalam inch adalah bebas yang sesuai ketentuan, seperti hanya boleh angka, karakter / dan karakter spasi, maka bisa dengan baris kode berikut :
> Dim sText As String, sTemp As String, lClean As Long
> sText = satuaninch.Text
>
> 'ada isinya
> If Len(Trim(sText)) = 0 Then
> satuanmm.Text = vbNullString
> Exit Sub
> End If
>
> 'validasi input berupa angka, karakter spasi, atau karakter /
> sTemp = Replace(Replace(Replace(sText, " ", vbNullString), "/", vbNullString), """", vbNullString)
> If Not IsNumeric(sTemp) Then
> satuanmm.Text = vbNullString
> Exit Sub
> End If
>
> 'membersihkan spasi ganda, / ganda, dan spasi sebelum atau sesudah /
> For lClean = 1 To 20
> sText = Replace(Replace(Replace(Replace(sText, " ", " "), " /", "/"), "/ ", "/"), "//", "/")
> Next lClean
> 'mengubah spasi menjadi + dan mengimbuhi = didepan teks
> sText = "=" & Replace(sText, " ", "+")
>
> 'hitung mm dengan dikali 25.4 mm menggunakan evaluate
> satuanmm.Text = Evaluate(sText)
>
> Regards,
> Kid
>
>
> 2017-03-31 10:45 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>> Salam BeExceller,
>>
>> Mau tanya, bagaimana untuk mengubah angka inch ke mm di Userform ?
>>
>> Seperti di text box
>>
>> Tertulis
>>
>> Nilai Pecahan (inch)
>>
>> Hasil di Nilai Pecahan (mm)
>>
>> 1/4
>>
>> 6.35
>>
>> 1/2
>>
>> 12.7
>>
>> 3/4
>>
>> 19.05
>>
>> 3/8
>>
>> 9.525
>>
>> 1 1/4
>>
>> 31.75
>>
>> 1 3/4
>>
>> 44.45
>>
>> Saya pakai Val function, gak berhasil ya ?
>>
>>
>>
>> File terlampir.
>>
>> Terima kasih.
>>
>> Salam.
>>
>>
>>
>
>
Fri Mar 31, 2017 12:54 am (PDT) . Posted by:
"Kelik Pitoyo"
Dear Masters dan be exceller,
Selamat Siang,
Bagaimana formula untuk membuat nomor otomatis berurut dengan criteria:
1. Terdiri dari 4 digit : 3 digit bilangan, 1 digit huruf, start dari 001A
2. Pergantian huruf per kelipatan 800
3. Bila berganti hari/tanggal nomor akan berubah ke nomor berikutnya
walaupun kelipatan kurang dari 800, 001K --->001L
4. Bila sudah sampai ke huruf Z, kembali ke huruf awal (A) tapi nomor nya
bertambah 1, 001Z --->002A
Berikut kami lampirkan filenya,
Terima kasih sebelumnya,
hormat kami,
kelik
Selamat Siang,
Bagaimana formula untuk membuat nomor otomatis berurut dengan criteria:
1. Terdiri dari 4 digit : 3 digit bilangan, 1 digit huruf, start dari 001A
2. Pergantian huruf per kelipatan 800
3. Bila berganti hari/tanggal nomor akan berubah ke nomor berikutnya
walaupun kelipatan kurang dari 800, 001K --->001L
4. Bila sudah sampai ke huruf Z, kembali ke huruf awal (A) tapi nomor nya
bertambah 1, 001Z --->002A
Berikut kami lampirkan filenya,
Terima kasih sebelumnya,
hormat kami,
kelik
Fri Mar 31, 2017 12:35 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Kelik,
File terlampir memanfaatkan fungsi Int dan Mod untuk digunakan oleh fungsi
Text dan Char.
Regards,
Kid
2017-03-31 14:01 GMT+07:00 'Kelik Pitoyo' kelik@shindengen.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Masters dan be exceller,
>
> Selamat Siang,
>
>
>
> Bagaimana formula untuk membuat nomor otomatis berurut dengan criteria:
>
> 1. Terdiri dari 4 digit : 3 digit bilangan, 1 digit huruf, start dari 001A
>
> 2. Pergantian huruf per kelipatan 800
>
> 3. Bila berganti hari/tanggal nomor akan berubah ke nomor berikutnya
> walaupun kelipatan kurang dari 800, 001K --->001L
>
> 4. Bila sudah sampai ke huruf Z, kembali ke huruf awal (A) tapi nomor nya
> bertambah 1, 001Z --->002A
>
>
>
> Berikut kami lampirkan filenya,
>
>
>
> Terima kasih sebelumnya,
>
> hormat kami,
>
> kelik
>
>
>
File terlampir memanfaatkan fungsi Int dan Mod untuk digunakan oleh fungsi
Text dan Char.
Regards,
Kid
2017-03-31 14:01 GMT+07:00 'Kelik Pitoyo' kelik@shindengen.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Dear Masters dan be exceller,
>
> Selamat Siang,
>
>
>
> Bagaimana formula untuk membuat nomor otomatis berurut dengan criteria:
>
> 1. Terdiri dari 4 digit : 3 digit bilangan, 1 digit huruf, start dari 001A
>
> 2. Pergantian huruf per kelipatan 800
>
> 3. Bila berganti hari/tanggal nomor akan berubah ke nomor berikutnya
> walaupun kelipatan kurang dari 800, 001K --->001L
>
> 4. Bila sudah sampai ke huruf Z, kembali ke huruf awal (A) tapi nomor nya
> bertambah 1, 001Z --->002A
>
>
>
> Berikut kami lampirkan filenya,
>
>
>
> Terima kasih sebelumnya,
>
> hormat kami,
>
> kelik
>
>
>
Fri Mar 31, 2017 12:54 am (PDT) . Posted by:
"Tio Adi Bayu Adjie"
Salam Be-Exceller,
Mau Tanya, sintax .value dengan .text apa bedanya ?
Contoh :
1. Cells(1,1).value="bla-bla-bla"
2. Cells(1,1).text="ba-bi-bu"
Kedua sintax diatas, apa bedanya ? Biasanya saya selalu pakai .value , tidak pernah pakai .text sekalipun itu format text dan tidak pernah ada masalah. Kalau pemakaiannya beda, apa masalahnya ?
Mohon pencerahannya.
Wassalamu alaikum Wr. Wb.
Mau Tanya, sintax .value dengan .text apa bedanya ?
Contoh :
1. Cells(1,1).value="bla-bla-bla"
2. Cells(1,1).text="ba-bi-bu"
Kedua sintax diatas, apa bedanya ? Biasanya saya selalu pakai .value , tidak pernah pakai .text sekalipun itu format text dan tidak pernah ada masalah. Kalau pemakaiannya beda, apa masalahnya ?
Mohon pencerahannya.
Wassalamu alaikum Wr. Wb.
Fri Mar 31, 2017 4:35 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Tio,
Pada sebuah cells, contoh 2 tidak bisa karena sifat properti Text pada
sebuah cells adalah read only.
Secara umum, jika mengambil nilai properti :
a. Text : yang diambil adalah yang tampak dan nilainya bertipe text.
b. Value : yang diambil adalah nilai yang sesuai datatype nya
c. Value2 (khusus untuk cells) : yang diambil adalah nilai aslilnya.
Contoh :
Jika di cells A1 diketik 2017-03-31 lalu menekan Enter
Kemudian di A1 di custom format dengan cara di klik kanan A1 -> format
cells -> tab Number -> pilih Custom -> textbox format diisi :
[$-421]dd-yyyy
lalu tekan OK
maka di cells A1 :
a. akan tampak dihadapan user berisi bunyi 31-2017
properti Text menghasilkan teks berbunyi 31-2017
b. walau di A1 sudah di Custom format, sejatinya di A1 ada nilai bertipe
datetime yang bernilai 2017-03-31 (atau dengan format regional setting
komputer setempat)
properti value akan menghasilkan datetime bernilai 2017-03-31
c. data bertipe datetime sejatinya adalah sebuah bilangan serial date.
2017-03-31 memiliki serial date senilai 42825
properti Value2 akan menghasilkan nilai bertipe double bernilai 42825
Pada sebuah activex controls, maka yang ada adalah properti text atau value
bila controls tersebut memilikinya dan tidak ada properti Value2. Sifatnya
read/write.
a. Pada textbox, kedua properti ini akan menyimpan nilai yang sama, yaitu
bertipe text
b. Pada listbox atau combobox, properti value dan text bisa berbeda isinya
karena tergantung properti BoundColumn dan TextColumn.
Jika properti ini bernilai sama, maka properti text dan value akan
menyimpan nilai yang sama.
Contoh :
Listbox atau combobox berisi 3 kolom, kolom ke-1 adalah Nama, kolom ke-2
adalah berat badan, kolom ke-3 Jenis kelamin
Jika boundcolumn di set bernilai 2 dan textcolumn diset bernilai 3,
maka properti value akan menghasilkan nilai dari kolom ke-2 yaitu nilai
berat badan
dan properti text akan menghasilkan nilai dari kolom ke-3 yaitu jenis
kelamin.
Regards,
Kid
2017-03-31 13:51 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Salam Be-Exceller,
>
> Mau Tanya, sintax .value dengan .text apa bedanya ?
>
>
>
> Contoh :
>
> 1. Cells(1,1).value="bla-bla-bla"
>
> 2. Cells(1,1).text="ba-bi-bu"
>
>
>
> Kedua sintax diatas, apa bedanya ? Biasanya saya selalu pakai .value ,
> tidak pernah pakai .text sekalipun itu format text dan tidak pernah ada
> masalah. Kalau pemakaiannya beda, apa masalahnya ?
>
>
>
> Mohon pencerahannya.
>
>
>
> Wassalamu alaikum Wr. Wb.
>
>
>
>
>
>
>
Pada sebuah cells, contoh 2 tidak bisa karena sifat properti Text pada
sebuah cells adalah read only.
Secara umum, jika mengambil nilai properti :
a. Text : yang diambil adalah yang tampak dan nilainya bertipe text.
b. Value : yang diambil adalah nilai yang sesuai datatype nya
c. Value2 (khusus untuk cells) : yang diambil adalah nilai aslilnya.
Contoh :
Jika di cells A1 diketik 2017-03-31 lalu menekan Enter
Kemudian di A1 di custom format dengan cara di klik kanan A1 -> format
cells -> tab Number -> pilih Custom -> textbox format diisi :
[$-421]dd-yyyy
lalu tekan OK
maka di cells A1 :
a. akan tampak dihadapan user berisi bunyi 31-2017
properti Text menghasilkan teks berbunyi 31-2017
b. walau di A1 sudah di Custom format, sejatinya di A1 ada nilai bertipe
datetime yang bernilai 2017-03-31 (atau dengan format regional setting
komputer setempat)
properti value akan menghasilkan datetime bernilai 2017-03-31
c. data bertipe datetime sejatinya adalah sebuah bilangan serial date.
2017-03-31 memiliki serial date senilai 42825
properti Value2 akan menghasilkan nilai bertipe double bernilai 42825
Pada sebuah activex controls, maka yang ada adalah properti text atau value
bila controls tersebut memilikinya dan tidak ada properti Value2. Sifatnya
read/write.
a. Pada textbox, kedua properti ini akan menyimpan nilai yang sama, yaitu
bertipe text
b. Pada listbox atau combobox, properti value dan text bisa berbeda isinya
karena tergantung properti BoundColumn dan TextColumn.
Jika properti ini bernilai sama, maka properti text dan value akan
menyimpan nilai yang sama.
Contoh :
Listbox atau combobox berisi 3 kolom, kolom ke-1 adalah Nama, kolom ke-2
adalah berat badan, kolom ke-3 Jenis kelamin
Jika boundcolumn di set bernilai 2 dan textcolumn diset bernilai 3,
maka properti value akan menghasilkan nilai dari kolom ke-2 yaitu nilai
berat badan
dan properti text akan menghasilkan nilai dari kolom ke-3 yaitu jenis
kelamin.
Regards,
Kid
2017-03-31 13:51 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Salam Be-Exceller,
>
> Mau Tanya, sintax .value dengan .text apa bedanya ?
>
>
>
> Contoh :
>
> 1. Cells(1,1).value="bla-bla-bla"
>
> 2. Cells(1,1).text="ba-bi-bu"
>
>
>
> Kedua sintax diatas, apa bedanya ? Biasanya saya selalu pakai .value ,
> tidak pernah pakai .text sekalipun itu format text dan tidak pernah ada
> masalah. Kalau pemakaiannya beda, apa masalahnya ?
>
>
>
> Mohon pencerahannya.
>
>
>
> Wassalamu alaikum Wr. Wb.
>
>
>
>
>
>
>
Fri Mar 31, 2017 1:10 am (PDT) . Posted by:
"Eira I Arie" cheivory_bridge
Yth. Mr. Kid
Langkah arahan Mr. Kid sudah saya lakukan :
- Langkah 1 = sudah dilakukan
- Langkah 2 = baris record semua sudah di hapus tetapi menyisakan baris record kosong excel table (selain header)
- Langkah 3 = sudah dilakukan
- Langkah 4 = sudah dilakukan dengan macro copasvalues contoh 2
- Langkah 5 = sudah dilakukan
Problemnya :
- Saat proses gabung, baris record hasil gabung mulai muncul di A3 (setelah sisa satu baris record kosong excel table yang dihapus pada langkah 2) - Jadi, hasil gabung tidak menempati excel table ..
- Saat proses hapus, terjadi debug .. tetapi jika record hasil gabung saya tempatkan manual di excel table (mulai A2 atau setelah header excel table) maka, proses hapus berjalan sukses ..
Sekian Mr. Kid, mohon solusinya.Terima kasih
On Friday, March 24, 2017 10:18 AM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Ari,
Coba begini :
1. blok seluruh cells di sheet gabung -> atur agar fill color adalah No Fill -> hapus seluruh conditional formatting yang ada di sheet gabung
2. blok baris records dari Excel table di sheet gabung (tanpa header di seluruh kolom Excel table) -> lakukan delete table rows
3. save workbook
4. Cara copy paste values :
sheets("nama sheet yang mau dicopy").range("a1").currentregion.offset(1).copy
with sheets("nama sheet gabung")
.cells( .rows.count , 1 ).end(xlup).offset(1).pastespecial xlpastevalues
end with
5. Cara hapus seluruh records dalam Excel table (misal Excel table di sheet gabung yang header-nya mulai dari A1)
with sheets("nama sheet gabung").range("a1").currentregion
.offset(1).resize( .rows.count -1 ).delete xlshiftup
end with
*** Setelah 5 langkah di atas dikerjakan, barulah memikirkan perbaikan proses copy yang di paste values beserta proses delete excel table rows
>> Jika hanya sheet tertentu saja yang akan di-copy lalu di-paste values ke sheet gabung, maka perlu menentukan pola penamaan sheet-nya.
Contoh 1 : sheet yang digabung hanya yang berawalah kata 'sheet'
dim sht as worksheet
with sheets("nama sheet gabung") for each sht in thisworkbook.worksheets
if lcase(left(sht.name,5))="sheet" then
sht.range("a1").currentregion.offset(1).copy
.cells( .rows.count , 1 ).end(xlup).offset(1).pastespecial xlpastevalues endif
next sht
end with
Contoh 2 : sheet yang digabung adalah selain yang bernama 'Gabung','a1','a2','a3','kid'
dim sht as worksheet, sShtName as string
sshtname="\gabung\a1\a2\a3\kid\"
with sheets("nama sheet gabung") for each sht in thisworkbook.worksheets
if instr(sshtname,"\" & lcase(sht.name) & "\")=0 then
sht.range("a1").currentregion.offset(1).copy
.cells( .rows.count , 1 ).end(xlup).offset(1).pastespecial xlpastevalues endif
next sht
end with
Regards,
Kid
On Thu, Mar 23, 2017 at 10:32 AM, Eira I Arie cheivory_bridge@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Yth. Pak HK dan Pak Lukman
file terlampir dari milis ini juga (sudah ditambahkan baris code "copypastevalue" arahan Pak HK) ..
Problemnya begini , Jika misalnya :
- pada sheet 1 , di kolom A diberi Conditional Formatting
- pada sheet 2 , di kolom C diberi warna sell kuning di beberapa data
- pada sheet gabung , dibuat excel table untuk wadah
setelah diproses gabung , dalam sheet gabung terdapat Conditional Formatting (sesuai di sheet 1) dan warna sell (sesuai sheet 2). keinginannya hanya "copy value" . ternyata hasilnya masih terdapat CF dan warna sell seperti contoh terlampir ..
terkadang , setelah proses tombol hapus, lalu proses gabung lagi maka, pada sheet gabung, format excel table menjadi hilang (jadinya range) ..
mohon solusi atas permasalahan di atas ..
Terima kasih
Ari
On Wednesday, March 22, 2017 7:46 PM, "lkm jktind lkmjktind@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:
Pak cheivory_bridge.
tolog lampirkan contoh file nya .
yang lengkap ya.
Salam
Lukman.
NB : Ada waktu luang dikit .
On Wed, Mar 22, 2017 at 3:26 PM, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
Coba tambahkan 2 perintah berikut ini:
Set rngGabung = Sheets("Gabung").Range("A2"). CurrentRegion
rngGabung.Value = rngGabung.value
seblm Application.CutCopyMode = False
Salam,HK
Sent from Yahoo Mail on Android
Yth. Pakar Excel
Mohon bantuannya ,
Saya dapat barisan code macro berikut (dari milis ini juga) :
Sub Gabung() Dim rngGabung As Range Dim sh As Worksheet Dim rngsh As Range Dim brs As Long Set rngGabung = Sheets("Gabung").Range("A2"). CurrentRegion Set rngGabung = rngGabung.Offset(1, 0).Resize(rngGabung.Rows.Count - 1) Application.ScreenUpdating = False rngGabung.ClearContents For Each sh In Worksheets If sh.Name <> "Gabung" Then If sh.Name <> "nim_nama"; Then If sh.Name <> "a2" Then If sh.Name <> "pivot_table" Then Set rngsh = sh.Range("A2").CurrentRegion Set rngsh = rngsh.Offset(1, 0).Resize(rngsh.Rows.Count - 1) brs = WorksheetFunction.CountA( Sheets("Gabung").Columns("A:A" )) rngsh.Copy Sheets("Gabung").Range("A" & brs + 1) End If End If End If End If Next sh Application.CutCopyMode = False Application.ScreenUpdating = TrueEnd Sub
Barisan code macro tersebut jika diterapkan hasilnya "copy paste" .. keinginan saya bagaimana biar hasilnya "copy VALUE" saja, mohon bantuannya merevisi barisan code macro tersebut ..
Terima kasih
ari
#yiv8975666513 #yiv8975666513 -- #yiv8975666513ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8975666513 #yiv8975666513ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8975666513 #yiv8975666513ygrp-mkp #yiv8975666513hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8975666513 #yiv8975666513ygrp-mkp #yiv8975666513ads {margin-bottom:10px;}#yiv8975666513 #yiv8975666513ygrp-mkp .yiv8975666513ad {padding:0 0;}#yiv8975666513 #yiv8975666513ygrp-mkp .yiv8975666513ad p {margin:0;}#yiv8975666513 #yiv8975666513ygrp-mkp .yiv8975666513ad a {color:#0000ff;text-decoration:none;}#yiv8975666513 #yiv8975666513ygrp-sponsor #yiv8975666513ygrp-lc {font-family:Arial;}#yiv8975666513 #yiv8975666513ygrp-sponsor #yiv8975666513ygrp-lc #yiv8975666513hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8975666513 #yiv8975666513ygrp-sponsor #yiv8975666513ygrp-lc .yiv8975666513ad {margin-bottom:10px;padding:0 0;}#yiv8975666513 #yiv8975666513actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8975666513 #yiv8975666513activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8975666513 #yiv8975666513activity span {font-weight:700;}#yiv8975666513 #yiv8975666513activity span:first-child {text-transform:uppercase;}#yiv8975666513 #yiv8975666513activity span a {color:#5085b6;text-decoration:none;}#yiv8975666513 #yiv8975666513activity span span {color:#ff7900;}#yiv8975666513 #yiv8975666513activity span .yiv8975666513underline {text-decoration:underline;}#yiv8975666513 .yiv8975666513attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv8975666513 .yiv8975666513attach div a {text-decoration:none;}#yiv8975666513 .yiv8975666513attach img {border:none;padding-right:5px;}#yiv8975666513 .yiv8975666513attach label {display:block;margin-bottom:5px;}#yiv8975666513 .yiv8975666513attach label a {text-decoration:none;}#yiv8975666513 blockquote {margin:0 0 0 4px;}#yiv8975666513 .yiv8975666513bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv8975666513 .yiv8975666513bold a {text-decoration:none;}#yiv8975666513 dd.yiv8975666513last p a {font-family:Verdana;font-weight:700;}#yiv8975666513 dd.yiv8975666513last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8975666513 dd.yiv8975666513last p span.yiv8975666513yshortcuts {margin-right:0;}#yiv8975666513 div.yiv8975666513attach-table div div a {text-decoration:none;}#yiv8975666513 div.yiv8975666513attach-table {width:400px;}#yiv8975666513 div.yiv8975666513file-title a, #yiv8975666513 div.yiv8975666513file-title a:active, #yiv8975666513 div.yiv8975666513file-title a:hover, #yiv8975666513 div.yiv8975666513file-title a:visited {text-decoration:none;}#yiv8975666513 div.yiv8975666513photo-title a, #yiv8975666513 div.yiv8975666513photo-title a:active, #yiv8975666513 div.yiv8975666513photo-title a:hover, #yiv8975666513 div.yiv8975666513photo-title a:visited {text-decoration:none;}#yiv8975666513 div#yiv8975666513ygrp-mlmsg #yiv8975666513ygrp-msg p a span.yiv8975666513yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8975666513 .yiv8975666513green {color:#628c2a;}#yiv8975666513 .yiv8975666513MsoNormal {margin:0 0 0 0;}#yiv8975666513 o {font-size:0;}#yiv8975666513 #yiv8975666513photos div {float:left;width:72px;}#yiv8975666513 #yiv8975666513photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv8975666513 #yiv8975666513photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8975666513 #yiv8975666513reco-category {font-size:77%;}#yiv8975666513 #yiv8975666513reco-desc {font-size:77%;}#yiv8975666513 .yiv8975666513replbq {margin:4px;}#yiv8975666513 #yiv8975666513ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv8975666513 #yiv8975666513ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8975666513 #yiv8975666513ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8975666513 #yiv8975666513ygrp-mlmsg select, #yiv8975666513 input, #yiv8975666513 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv8975666513 #yiv8975666513ygrp-mlmsg pre, #yiv8975666513 code {font:115% monospace;}#yiv8975666513 #yiv8975666513ygrp-mlmsg * {line-height:1.22em;}#yiv8975666513 #yiv8975666513ygrp-mlmsg #yiv8975666513logo {padding-bottom:10px;}#yiv8975666513 #yiv8975666513ygrp-msg p a {font-family:Verdana;}#yiv8975666513 #yiv8975666513ygrp-msg p#yiv8975666513attach-count span {color:#1E66AE;font-weight:700;}#yiv8975666513 #yiv8975666513ygrp-reco #yiv8975666513reco-head {color:#ff7900;font-weight:700;}#yiv8975666513 #yiv8975666513ygrp-reco {margin-bottom:20px;padding:0px;}#yiv8975666513 #yiv8975666513ygrp-sponsor #yiv8975666513ov li a {font-size:130%;text-decoration:none;}#yiv8975666513 #yiv8975666513ygrp-sponsor #yiv8975666513ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv8975666513 #yiv8975666513ygrp-sponsor #yiv8975666513ov ul {margin:0;padding:0 0 0 8px;}#yiv8975666513 #yiv8975666513ygrp-text {font-family:Georgia;}#yiv8975666513 #yiv8975666513ygrp-text p {margin:0 0 1em 0;}#yiv8975666513 #yiv8975666513ygrp-
Langkah arahan Mr. Kid sudah saya lakukan :
- Langkah 1 = sudah dilakukan
- Langkah 2 = baris record semua sudah di hapus tetapi menyisakan baris record kosong excel table (selain header)
- Langkah 3 = sudah dilakukan
- Langkah 4 = sudah dilakukan dengan macro copasvalues contoh 2
- Langkah 5 = sudah dilakukan
Problemnya :
- Saat proses gabung, baris record hasil gabung mulai muncul di A3 (setelah sisa satu baris record kosong excel table yang dihapus pada langkah 2) - Jadi, hasil gabung tidak menempati excel table ..
- Saat proses hapus, terjadi debug .. tetapi jika record hasil gabung saya tempatkan manual di excel table (mulai A2 atau setelah header excel table) maka, proses hapus berjalan sukses ..
Sekian Mr. Kid, mohon solusinya.Terima kasih
On Friday, March 24, 2017 10:18 AM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
Hai Ari,
Coba begini :
1. blok seluruh cells di sheet gabung -> atur agar fill color adalah No Fill -> hapus seluruh conditional formatting yang ada di sheet gabung
2. blok baris records dari Excel table di sheet gabung (tanpa header di seluruh kolom Excel table) -> lakukan delete table rows
3. save workbook
4. Cara copy paste values :
sheets("nama sheet yang mau dicopy").range("a1").currentregion.offset(1).copy
with sheets("nama sheet gabung")
.cells( .rows.count , 1 ).end(xlup).offset(1).pastespecial xlpastevalues
end with
5. Cara hapus seluruh records dalam Excel table (misal Excel table di sheet gabung yang header-nya mulai dari A1)
with sheets("nama sheet gabung").range("a1").currentregion
.offset(1).resize( .rows.count -1 ).delete xlshiftup
end with
*** Setelah 5 langkah di atas dikerjakan, barulah memikirkan perbaikan proses copy yang di paste values beserta proses delete excel table rows
>> Jika hanya sheet tertentu saja yang akan di-copy lalu di-paste values ke sheet gabung, maka perlu menentukan pola penamaan sheet-nya.
Contoh 1 : sheet yang digabung hanya yang berawalah kata 'sheet'
dim sht as worksheet
with sheets("nama sheet gabung") for each sht in thisworkbook.worksheets
if lcase(left(sht.name,5))="sheet" then
sht.range("a1").currentregion.offset(1).copy
.cells( .rows.count , 1 ).end(xlup).offset(1).pastespecial xlpastevalues endif
next sht
end with
Contoh 2 : sheet yang digabung adalah selain yang bernama 'Gabung','a1','a2','a3','kid'
dim sht as worksheet, sShtName as string
sshtname="\gabung\a1\a2\a3\kid\"
with sheets("nama sheet gabung") for each sht in thisworkbook.worksheets
if instr(sshtname,"\" & lcase(sht.name) & "\")=0 then
sht.range("a1").currentregion.offset(1).copy
.cells( .rows.count , 1 ).end(xlup).offset(1).pastespecial xlpastevalues endif
next sht
end with
Regards,
Kid
On Thu, Mar 23, 2017 at 10:32 AM, Eira I Arie cheivory_bridge@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Yth. Pak HK dan Pak Lukman
file terlampir dari milis ini juga (sudah ditambahkan baris code "copypastevalue" arahan Pak HK) ..
Problemnya begini , Jika misalnya :
- pada sheet 1 , di kolom A diberi Conditional Formatting
- pada sheet 2 , di kolom C diberi warna sell kuning di beberapa data
- pada sheet gabung , dibuat excel table untuk wadah
setelah diproses gabung , dalam sheet gabung terdapat Conditional Formatting (sesuai di sheet 1) dan warna sell (sesuai sheet 2). keinginannya hanya "copy value" . ternyata hasilnya masih terdapat CF dan warna sell seperti contoh terlampir ..
terkadang , setelah proses tombol hapus, lalu proses gabung lagi maka, pada sheet gabung, format excel table menjadi hilang (jadinya range) ..
mohon solusi atas permasalahan di atas ..
Terima kasih
Ari
On Wednesday, March 22, 2017 7:46 PM, "lkm jktind lkmjktind@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:
Pak cheivory_bridge.
tolog lampirkan contoh file nya .
yang lengkap ya.
Salam
Lukman.
NB : Ada waktu luang dikit .
On Wed, Mar 22, 2017 at 3:26 PM, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
Coba tambahkan 2 perintah berikut ini:
Set rngGabung = Sheets("
rngGabung.Value = rngGabung.value
seblm Application.
Salam,HK
Sent from Yahoo Mail on Android
Yth. Pakar Excel
Mohon bantuannya ,
Saya dapat barisan code macro berikut (dari milis ini juga) :
Sub Gabung() Dim rngGabung As Range Dim sh As Worksheet Dim rngsh As Range Dim brs As Long Set rngGabung = Sheets("
Barisan code macro tersebut jika diterapkan hasilnya "copy paste" .. keinginan saya bagaimana biar hasilnya "copy VALUE" saja, mohon bantuannya merevisi barisan code macro tersebut ..
Terima kasih
ari
#yiv8975666513 #yiv8975666513 -- #yiv8975666513ygrp-