15 Messages
Digest #2892
Messages
Sun Apr 27, 2014 4:49 pm (PDT) . Posted by:
"prazt" praztmath
Tidak diprotect Mr.Hendrik,setiap workbook barupun tombol yang saya maksud tersebut tetep tidak bisa aktif, jadi tidak aktifnya itu bukan pada workbook tertentu melainkan semua workbook.
Tadinya saya menaruh VBA di salah satu file untuk diabel cut and copy dan klik kanan, tapi setelah file tersebut saya close saya membuat file baru mau insert kolom, baris, delete dan clear kontens sudah tidak aktif. Code VBA yg saya maksud sbb ;
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application
..CellDragAndDrop = True
..OnKey "^c"
..OnKey "^v"
..OnKey "^x"
..OnKey "+{DEL}"
..OnKey "^{INSERT}"
..CutCopyMode = False
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) 'copy
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = True
Next Ctrl
End Sub
Private Sub Workbook_Open()
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_Activate()
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Right click menu deactivated." & vbCrLf & _
"For this file:", 16, ""
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
With Application
..CellDragAndDrop = True
..OnKey "^c"
..OnKey "^v"
..OnKey "^x"
..OnKey "+{DEL}"
..OnKey "^{INSERT}"
..CutCopyMode = True
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = True
Next Ctrl
End Sub
Sub Buka()
Application.EnableEvents = False
End Sub
Sub Tutup()
Application.EnableEvents = True
End Sub
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: 26 April 2014 18:12
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mengembalikan menu klik kanan yang hilang [1 Attachment]
Hi Prazt,
Coba cek apakah sheetnya diprotect.
Salam,
HK
On Saturday, 26 April 2014, 9:07, prazt <praztmath@gmail.com> wrote:
Assalamu'alaikum....
Master kok menu pada klik kanan diexcel saya ada yang tidak aktif/hilang (seperti gambar berikut), gimana cara mengaktifkan lagi master?
_____
<http://www.avast.com/>
Email ini bebas virus dan malware karena avast! Antivirus <http://www.avast.com/> proteksi aktif.
---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com
Tadinya saya menaruh VBA di salah satu file untuk diabel cut and copy dan klik kanan, tapi setelah file tersebut saya close saya membuat file baru mau insert kolom, baris, delete dan clear kontens sudah tidak aktif. Code VBA yg saya maksud sbb ;
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application
..CellDragAndDrop = True
..OnKey "^c"
..OnKey "^v"
..OnKey "^x"
..OnKey "+{DEL}"
..OnKey "^{INSERT}"
..CutCopyMode = False
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) 'copy
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = True
Next Ctrl
End Sub
Private Sub Workbook_Open()
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_Activate()
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Right click menu deactivated." & vbCrLf & _
"For this file:", 16, ""
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
With Application
..CellDragAndDrop = True
..OnKey "^c"
..OnKey "^v"
..OnKey "^x"
..OnKey "+{DEL}"
..OnKey "^{INSERT}"
..CutCopyMode = True
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = True
Next Ctrl
End Sub
Sub Buka()
Application.EnableEvents = False
End Sub
Sub Tutup()
Application.EnableEvents = True
End Sub
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: 26 April 2014 18:12
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mengembalikan menu klik kanan yang hilang [1 Attachment]
Hi Prazt,
Coba cek apakah sheetnya diprotect.
Salam,
HK
On Saturday, 26 April 2014, 9:07, prazt <praztmath@gmail.com> wrote:
Assalamu'alaikum....
Master kok menu pada klik kanan diexcel saya ada yang tidak aktif/hilang (seperti gambar berikut), gimana cara mengaktifkan lagi master?
_____
<http://www.avast.com/>
Email ini bebas virus dan malware karena avast! Antivirus <http://www.avast.com/> proteksi aktif.
---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com
Sun Apr 27, 2014 8:29 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Pak Prazt,
Barangkali ada macro yang nempel di "Personal Macro Workbook". Coba lihat di VBE Sheet.
Kalau ternyata tidak, barangkali sesepuh Be-Excel perlu turun tangan.
Salam,
HK
On Monday, 28 April 2014, 6:50, prazt <praztmath@gmail.com> wrote:
Tidak diprotect Mr.Hendrik,setiap workbook barupun tombol yang saya maksud tersebut tetep tidak bisa aktif, jadi tidak aktifnya itu bukan pada workbook tertentu melainkan semua workbook.
Tadinya saya menaruh VBA di salah satu file untuk diabel cut and copy dan klik kanan, tapi setelah file tersebut saya close saya membuat file baru mau insert kolom, baris, delete dan clear kontens sudah tidak aktif. Code VBA yg saya maksud sbb ;
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application
.CellDragAndDrop = True
.OnKey "^c"
.OnKey "^v"
.OnKey "^x"
.OnKey "+{DEL}"
.OnKey "^{INSERT}"
.CutCopyMode = False
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) 'copy
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = True
Next Ctrl
End Sub
Private Sub Workbook_Open()
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_Activate()
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Right click menu deactivated." & vbCrLf & _
"For this file:", 16, ""
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
With Application
.CellDragAndDrop = True
.OnKey "^c"
.OnKey "^v"
.OnKey "^x"
.OnKey "+{DEL}"
.OnKey "^{INSERT}"
.CutCopyMode = True
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = True
Next Ctrl
End Sub
Sub Buka()
Application.EnableEvents = False
End Sub
Sub Tutup()
Application.EnableEvents = True
End Sub
From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: 26 April 2014 18:12
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mengembalikan menu klik kanan yang hilang [1 Attachment]
Hi Prazt,
Coba cek apakah sheetnya diprotect.
Salam,
HK
On Saturday, 26 April 2014, 9:07, prazt <praztmath@gmail.com> wrote:
Assalamu'alaikum....
Master kok menu pada klik kanan diexcel saya ada yang tidak aktif/hilang (seperti gambar berikut), gimana cara mengaktifkan lagi master?
________________________________
Email ini bebas virus dan malware karena avast! Antivirus proteksi aktif.
________________________________
Email ini bebas virus dan malware karena avast! Antivirus proteksi aktif.
Barangkali ada macro yang nempel di "Personal Macro Workbook". Coba lihat di VBE Sheet.
Kalau ternyata tidak, barangkali sesepuh Be-Excel perlu turun tangan.
Salam,
HK
On Monday, 28 April 2014, 6:50, prazt <praztmath@gmail.com> wrote:
Tidak diprotect Mr.Hendrik,setiap workbook barupun tombol yang saya maksud tersebut tetep tidak bisa aktif, jadi tidak aktifnya itu bukan pada workbook tertentu melainkan semua workbook.
Tadinya saya menaruh VBA di salah satu file untuk diabel cut and copy dan klik kanan, tapi setelah file tersebut saya close saya membuat file baru mau insert kolom, baris, delete dan clear kontens sudah tidak aktif. Code VBA yg saya maksud sbb ;
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application
.CellDragAndDrop = True
.OnKey "^c"
.OnKey "^v"
.OnKey "^x"
.OnKey "+{DEL}"
.OnKey "^{INSERT}"
.CutCopyMode = False
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) 'copy
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = True
Next Ctrl
End Sub
Private Sub Workbook_Open()
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_Activate()
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Right click menu deactivated." & vbCrLf & _
"For this file:", 16, ""
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
With Application
.CellDragAndDrop = True
.OnKey "^c"
.OnKey "^v"
.OnKey "^x"
.OnKey "+{DEL}"
.OnKey "^{INSERT}"
.CutCopyMode = True
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = True
Next Ctrl
End Sub
Sub Buka()
Application.EnableEvents = False
End Sub
Sub Tutup()
Application.EnableEvents = True
End Sub
From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: 26 April 2014 18:12
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mengembalikan menu klik kanan yang hilang [1 Attachment]
Hi Prazt,
Coba cek apakah sheetnya diprotect.
Salam,
HK
On Saturday, 26 April 2014, 9:07, prazt <praztmath@gmail.com> wrote:
Assalamu'alaikum....
Master kok menu pada klik kanan diexcel saya ada yang tidak aktif/hilang (seperti gambar berikut), gimana cara mengaktifkan lagi master?
____________
Email ini bebas virus dan malware karena avast! Antivirus proteksi aktif.
____________
Email ini bebas virus dan malware karena avast! Antivirus proteksi aktif.
Mon Apr 28, 2014 2:26 am (PDT) . Posted by:
"prazt" praztmath
Tidak ada Mr.Hendrik...
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: 28 April 2014 10:29
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mengembalikan menu klik kanan yang hilang [1 Attachment]
Pak Prazt,
Barangkali ada macro yang nempel di "Personal Macro Workbook". Coba lihat di VBE Sheet.
Kalau ternyata tidak, barangkali sesepuh Be-Excel perlu turun tangan. *:) happy <https://s.yimg.com/ok/u/assets/img/emoticons/emo1.gif>
Salam,
HK
On Monday, 28 April 2014, 6:50, prazt <praztmath@gmail.com> wrote:
Tidak diprotect Mr.Hendrik,setiap workbook barupun tombol yang saya maksud tersebut tetep tidak bisa aktif, jadi tidak aktifnya itu bukan pada workbook tertentu melainkan semua workbook.
Tadinya saya menaruh VBA di salah satu file untuk diabel cut and copy dan klik kanan, tapi setelah file tersebut saya close saya membuat file baru mau insert kolom, baris, delete dan clear kontens sudah tidak aktif. Code VBA yg saya maksud sbb ;
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application
..CellDragAndDrop = True
..OnKey "^c"
..OnKey "^v"
..OnKey "^x"
..OnKey "+{DEL}"
..OnKey "^{INSERT}"
..CutCopyMode = False
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) 'copy
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = True
Next Ctrl
End Sub
Private Sub Workbook_Open()
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_Activate()
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Right click menu deactivated." & vbCrLf & _
"For this file:", 16, ""
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
With Application
..CellDragAndDrop = True
..OnKey "^c"
..OnKey "^v"
..OnKey "^x"
..OnKey "+{DEL}"
..OnKey "^{INSERT}"
..CutCopyMode = True
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = True
Next Ctrl
End Sub
Sub Buka()
Application.EnableEvents = False
End Sub
Sub Tutup()
Application.EnableEvents = True
End Sub
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: 26 April 2014 18:12
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mengembalikan menu klik kanan yang hilang [1 Attachment]
Hi Prazt,
Coba cek apakah sheetnya diprotect.
Salam,
HK
On Saturday, 26 April 2014, 9:07, prazt <praztmath@gmail.com> wrote:
Assalamu'alaikum....
Master kok menu pada klik kanan diexcel saya ada yang tidak aktif/hilang (seperti gambar berikut), gimana cara mengaktifkan lagi master?
_____
<http://www.avast.com/>
Email ini bebas virus dan malware karena avast! Antivirus <http://www.avast.com/> proteksi aktif.
_____
<http://www.avast.com/>
Email ini bebas virus dan malware karena avast! Antivirus <http://www.avast.com/> proteksi aktif.
---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: 28 April 2014 10:29
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mengembalikan menu klik kanan yang hilang [1 Attachment]
Pak Prazt,
Barangkali ada macro yang nempel di "Personal Macro Workbook". Coba lihat di VBE Sheet.
Kalau ternyata tidak, barangkali sesepuh Be-Excel perlu turun tangan. *:) happy <https://s.yimg.com/ok/u/assets/img/emoticons/emo1.gif>
Salam,
HK
On Monday, 28 April 2014, 6:50, prazt <praztmath@gmail.com> wrote:
Tidak diprotect Mr.Hendrik,setiap workbook barupun tombol yang saya maksud tersebut tetep tidak bisa aktif, jadi tidak aktifnya itu bukan pada workbook tertentu melainkan semua workbook.
Tadinya saya menaruh VBA di salah satu file untuk diabel cut and copy dan klik kanan, tapi setelah file tersebut saya close saya membuat file baru mau insert kolom, baris, delete dan clear kontens sudah tidak aktif. Code VBA yg saya maksud sbb ;
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
With Application
..CellDragAndDrop = True
..OnKey "^c"
..OnKey "^v"
..OnKey "^x"
..OnKey "+{DEL}"
..OnKey "^{INSERT}"
..CutCopyMode = False
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) 'copy
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = True
Next Ctrl
End Sub
Private Sub Workbook_Open()
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_Activate()
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox "Right click menu deactivated." & vbCrLf & _
"For this file:", 16, ""
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.CutCopyMode = False
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
With Application
.CutCopyMode = False
.CellDragAndDrop = False
.OnKey "^c", ""
.OnKey "^v", ""
.OnKey "^x", ""
.OnKey "+{DEL}", ""
.OnKey "^{INSERT}", ""
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = False
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = False
Next Ctrl
End Sub
Private Sub Workbook_Deactivate()
On Error Resume Next
With Application
..CellDragAndDrop = True
..OnKey "^c"
..OnKey "^v"
..OnKey "^x"
..OnKey "+{DEL}"
..OnKey "^{INSERT}"
..CutCopyMode = True
End With
Dim Ctrl As Office.CommandBarControl
For Each Ctrl In Application.CommandBars.FindControls(ID:=19) ' Copy
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=21) ' Cut
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=22) ' Paste
Ctrl.Enabled = True
Next Ctrl
For Each Ctrl In Application.CommandBars.FindControls(ID:=755) ' Paste Special
Ctrl.Enabled = True
Next Ctrl
End Sub
Sub Buka()
Application.EnableEvents = False
End Sub
Sub Tutup()
Application.EnableEvents = True
End Sub
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: 26 April 2014 18:12
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] mengembalikan menu klik kanan yang hilang [1 Attachment]
Hi Prazt,
Coba cek apakah sheetnya diprotect.
Salam,
HK
On Saturday, 26 April 2014, 9:07, prazt <praztmath@gmail.com> wrote:
Assalamu'alaikum....
Master kok menu pada klik kanan diexcel saya ada yang tidak aktif/hilang (seperti gambar berikut), gimana cara mengaktifkan lagi master?
_____
<http://www.avast.com/>
Email ini bebas virus dan malware karena avast! Antivirus <http://www.avast.com/> proteksi aktif.
_____
<http://www.avast.com/>
Email ini bebas virus dan malware karena avast! Antivirus <http://www.avast.com/> proteksi aktif.
---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com
Sun Apr 27, 2014 11:46 pm (PDT) . Posted by:
"Rahasus Pae" rattip25
Dear Be-Exceler,
Saya ingin mengidentifikasi no kode original part dari setiap vendor dari
ribuan SKU yang ada, salah satu vendor mempunya struktur part AHHAAAA
(A=angka, H=huruf), bagaimana cara mengidentifikasikan dengan fungsi excel.
Jadi setiap part yang berstruktur AHHAAAA akan teridentifikasi sebagai
vendor "X".
Code Description Vendor 9DK2519 Joint Bar Fertech SA
Xie-Xie, brothers and sisters.
Rahas.
Saya ingin mengidentifikasi no kode original part dari setiap vendor dari
ribuan SKU yang ada, salah satu vendor mempunya struktur part AHHAAAA
(A=angka, H=huruf), bagaimana cara mengidentifikasikan dengan fungsi excel.
Jadi setiap part yang berstruktur AHHAAAA akan teridentifikasi sebagai
vendor "X"
Code Description Vendor 9DK2519 Joint Bar Fertech SA
Xie-Xie, brothers and sisters.
Rahas.
Mon Apr 28, 2014 12:22 am (PDT) . Posted by:
"egidia seftyanaputri"
Dear Rahas,
asumsi data ada di a1
coba gunakan fungsi IF untuk melakukan pengujian dengan cara sbb:
- pengujian dilakukan dengan multi kriteria, berarti menggunakan
operator And yang setara dengan perkalian atau *
- And( logika1 , logika2 , logika3 , ... , logika_n ) atau
- ( logika1 ) * ( logika2 ) * ( logika3 ) * ( .... ) * ( logika_n )
- uji apakah panjang SKU = 7 dengan menggunakan ungsi Len
- Len( a1 ) = 7
- uji apakah 1 karakter paling kiri adalah Angka dengan menggunakan
fungsi Left di dalam fungsi IsNumeric
- IsNumeric( --Left( a1 , 1) )
- uji apakah karakter kedua dan ketiga adalah Huruf dengan
menggunakan fungsi Mid di dalam fungsi IsText
- IsText( Mid( a1 , 2 , 2) )
- uji apakah 4 karakter di sebelah kanan adalah Angka dengan
menggunakan fungsi Right di dalam fungsi IsNumeric
- IsNumeric( --Right( a1 , 4 ) )
- Jika cara melakukan pengujiannya sudah bisa, maka cukup mudah untuk
menentukan kode SKU itu milik vendor mana, karena syntax dari fungsi IF
adalah sbb:
- =If( nilai_yang_diuji
,nilai_jika_hasil_pengujian_terpenuhi_atau_bernilai_TRUE
, nilai_jika_hasil_pengujian_tidak_terpenuhi_atau_bernilai_FALSE )
Perhatikan, bahwa ada tanda minus 2 kali atau -- di depan setiap fungsi
Text yang akan diuji nilainya sebagai Angka atau Numeric, tanda dobel minus
tersebut adalah untuk mengubah format Text menjadi Numeric.
Rgds,
Egidia Seftyana Putri
ps: jika solusi di atas dirasa bermanfaat, Putri minta didoakan untuk
kesehatan dan kesembuhan Putri :)
Pada 28 April 2014 13.46, Rahasus Pae <rahasus.pae@gmail.com> menulis:
>
>
> Dear Be-Exceler,
>
> Saya ingin mengidentifikasi no kode original part dari setiap vendor dari
> ribuan SKU yang ada, salah satu vendor mempunya struktur part AHHAAAA
> (A=angka, H=huruf), bagaimana cara mengidentifikasikan dengan fungsi excel.
>
> Jadi setiap part yang berstruktur AHHAAAA akan teridentifikasi sebagai
> vendor "X".
>
> Code Description Vendor 9DK2519 Joint Bar Fertech SA
>
> Xie-Xie, brothers and sisters.
>
> Rahas.
>
>
>
asumsi data ada di a1
coba gunakan fungsi IF untuk melakukan pengujian dengan cara sbb:
- pengujian dilakukan dengan multi kriteria, berarti menggunakan
operator And yang setara dengan perkalian atau *
- And( logika1 , logika2 , logika3 , ... , logika_n ) atau
- ( logika1 ) * ( logika2 ) * ( logika3 ) * ( .... ) * ( logika_n )
- uji apakah panjang SKU = 7 dengan menggunakan ungsi Len
- Len( a1 ) = 7
- uji apakah 1 karakter paling kiri adalah Angka dengan menggunakan
fungsi Left di dalam fungsi IsNumeric
- IsNumeric( --Left( a1 , 1) )
- uji apakah karakter kedua dan ketiga adalah Huruf dengan
menggunakan fungsi Mid di dalam fungsi IsText
- IsText( Mid( a1 , 2 , 2) )
- uji apakah 4 karakter di sebelah kanan adalah Angka dengan
menggunakan fungsi Right di dalam fungsi IsNumeric
- IsNumeric( --Right( a1 , 4 ) )
- Jika cara melakukan pengujiannya sudah bisa, maka cukup mudah untuk
menentukan kode SKU itu milik vendor mana, karena syntax dari fungsi IF
adalah sbb:
- =If( nilai_yang_diuji
,nilai_jika_hasil_pengujian_terpenuhi_atau_bernilai_TRUE
, nilai_jika_hasil_pengujian_tidak_terpenuhi_atau_bernilai_FALSE )
Perhatikan, bahwa ada tanda minus 2 kali atau -- di depan setiap fungsi
Text yang akan diuji nilainya sebagai Angka atau Numeric, tanda dobel minus
tersebut adalah untuk mengubah format Text menjadi Numeric.
Rgds,
Egidia Seftyana Putri
ps: jika solusi di atas dirasa bermanfaat, Putri minta didoakan untuk
kesehatan dan kesembuhan Putri :)
Pada 28 April 2014 13.46, Rahasus Pae <rahasus.pae@gmail.com> menulis:
>
>
> Dear Be-Exceler,
>
> Saya ingin mengidentifikasi no kode original part dari setiap vendor dari
> ribuan SKU yang ada, salah satu vendor mempunya struktur part AHHAAAA
> (A=angka, H=huruf), bagaimana cara mengidentifikasikan dengan fungsi excel.
>
> Jadi setiap part yang berstruktur AHHAAAA akan teridentifikasi sebagai
> vendor "X"
>
> Code Description Vendor 9DK2519 Joint Bar Fertech SA
>
> Xie-Xie, brothers and sisters.
>
> Rahas.
>
>
>
Mon Apr 28, 2014 1:48 am (PDT) . Posted by:
"kiki tanjung" kieki_e
Dear Putri dan Rahas
Ikutan nimbrung ya..
Semoga Putri cepat diberikan kesehatan..amiin
Back to topic, solusi yang Putri jabarkan itu ampuh, tapi kira2 ada alternatif ampuh yg lain ga?
Soalnya saya punya persoalan yang kurang lebih sama. Jika formula2 itu diaplikasikan dalam satu worksheet yang berisi ribuan data, file excel akan membengkak dan menjadi lambat.
Mohon solusi nya ya..
On Monday, April 28, 2014 2:23 PM, egidia seftyanaputri <egidia.s.putri@gmail.com> wrote:
Dear Rahas,
asumsi data ada di a1
coba gunakan fungsi IF untuk melakukan pengujian dengan cara sbb:
* pengujian dilakukan dengan multi kriteria, berarti menggunakan operator And yang setara dengan perkalian atau *
* And( logika1 , logika2 , logika3 , ... , logika_n ) atau
* ( logika1 ) * ( logika2 ) * ( logika3 ) * ( .... ) * ( logika_n )
* uji apakah panjang SKU = 7 dengan menggunakan ungsi Len
* Len( a1 ) = 7
* uji apakah 1 karakter paling kiri adalah Angka dengan menggunakan fungsi Left di dalam fungsi IsNumeric
* IsNumeric( --Left( a1 ,1) )
* uji apakah karakter kedua dan ketiga adalah Huruf dengan menggunakan fungsi Mid di dalam fungsi IsText
* IsText( Mid( a1 ,2 ,2) )
* uji apakah 4 karakter di sebelah kanan adalah Angka dengan menggunakan fungsi Right di dalam fungsi IsNumeric
* IsNumeric( --Right( a1 ,4 ) )
* Jika cara melakukan pengujiannya sudah bisa, maka cukup mudah untuk menentukan kode SKU itu milik vendor mana, karena syntax dari fungsi IF adalah sbb:
* =If( nilai_yang_diuji ,nilai_jika_hasil_pengujian_terpenuhi_atau_bernilai_TRUE , nilai_jika_hasil_pengujian_tidak_terpenuhi_atau_bernilai_FALSE )
Perhatikan, bahwa ada tanda minus 2 kali atau -- di depan setiap fungsi Text yang akan diuji nilainya sebagai Angka atau Numeric, tanda dobel minus tersebut adalah untuk mengubah format Text menjadi Numeric.
Rgds,
Egidia Seftyana Putri
ps: jika solusi di atas dirasa bermanfaat, Putri minta didoakan untuk kesehatan dan kesembuhan Putri :)
Pada 28 April 2014 13.46, Rahasus Pae <rahasus.pae@gmail.com> menulis:
>
>Dear Be-Exceler,
>
>
>Saya ingin mengidentifikasi no kode original part dari setiap vendor dari ribuan SKU yang ada, salah satu vendor mempunya struktur part AHHAAAA (A=angka, H=huruf), bagaimana cara mengidentifikasikan dengan fungsi excel.
>
>
>Jadi setiap part yang berstruktur AHHAAAA akan teridentifikasi sebagai vendor "X".
>
>
>Code Description Vendor
>9DK2519 Joint Bar Fertech SA
>
>
>Xie-Xie, brothers and sisters.
>
>
>Rahas.
Ikutan nimbrung ya..
Semoga Putri cepat diberikan kesehatan..amiin
Back to topic, solusi yang Putri jabarkan itu ampuh, tapi kira2 ada alternatif ampuh yg lain ga?
Soalnya saya punya persoalan yang kurang lebih sama. Jika formula2 itu diaplikasikan dalam satu worksheet yang berisi ribuan data, file excel akan membengkak dan menjadi lambat.
Mohon solusi nya ya..
On Monday, April 28, 2014 2:23 PM, egidia seftyanaputri <egidia.s.putri@gmail.com> wrote:
Dear Rahas,
asumsi data ada di a1
coba gunakan fungsi IF untuk melakukan pengujian dengan cara sbb:
* pengujian dilakukan dengan multi kriteria, berarti menggunakan operator And yang setara dengan perkalian atau *
* And( logika1 , logika2 , logika3 , ... , logika_n ) atau
* ( logika1 ) * ( logika2 ) * ( logika3 ) * ( .... ) * ( logika_n )
* uji apakah panjang SKU = 7 dengan menggunakan ungsi Len
* Len( a1 ) = 7
* uji apakah 1 karakter paling kiri adalah Angka dengan menggunakan fungsi Left di dalam fungsi IsNumeric
* IsNumeric( --Left( a1 ,1) )
* uji apakah karakter kedua dan ketiga adalah Huruf dengan menggunakan fungsi Mid di dalam fungsi IsText
* IsText( Mid( a1 ,2 ,2) )
* uji apakah 4 karakter di sebelah kanan adalah Angka dengan menggunakan fungsi Right di dalam fungsi IsNumeric
* IsNumeric( --Right( a1 ,4 ) )
* Jika cara melakukan pengujiannya sudah bisa, maka cukup mudah untuk menentukan kode SKU itu milik vendor mana, karena syntax dari fungsi IF adalah sbb:
* =If( nilai_yang_diuji ,nilai_jika_hasil_pengujian_terpenuhi_atau_bernilai_TRUE , nilai_jika_hasil_pengujian_tidak_terpenuhi_atau_bernilai_FALSE )
Perhatikan, bahwa ada tanda minus 2 kali atau -- di depan setiap fungsi Text yang akan diuji nilainya sebagai Angka atau Numeric, tanda dobel minus tersebut adalah untuk mengubah format Text menjadi Numeric.
Rgds,
Egidia Seftyana Putri
ps: jika solusi di atas dirasa bermanfaat, Putri minta didoakan untuk kesehatan dan kesembuhan Putri :)
Pada 28 April 2014 13.46, Rahasus Pae <rahasus.pae@gmail.com> menulis:
>
>Dear Be-Exceler,
>
>
>Saya ingin mengidentifikasi no kode original part dari setiap vendor dari ribuan SKU yang ada, salah satu vendor mempunya struktur part AHHAAAA (A=angka, H=huruf), bagaimana cara mengidentifikasikan dengan fungsi excel.
>
>
>Jadi setiap part yang berstruktur AHHAAAA akan teridentifikasi sebagai vendor "X"
>
>
>Code Description Vendor
>9DK2519 Joint Bar Fertech SA
>
>
>Xie-Xie, brothers and sisters.
>
>
>Rahas.
Mon Apr 28, 2014 1:54 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Assalamu'alaikum wr. wb.
Dear BeExceller,
Mari kita doakan bersama untuk kesembuhan mbak Putri.
Semoga Allah mengangkat segala penyakit yang dibebankan kepada mbak Putri
dan
Semoga Allah memberikan kesembuhan yang sempurna kepada mbak Putri.
*AL FATIHAH*
Amin Ya Rabb Al Alamin
Wassalamu'alaikum wr. wb.
Kid.
2014-04-28 14:22 GMT+07:00 egidia seftyanaputri <egidia.s.putri@gmail.com>:
>
>
> Dear Rahas,
>
> asumsi data ada di a1
> coba gunakan fungsi IF untuk melakukan pengujian dengan cara sbb:
>
> - pengujian dilakukan dengan multi kriteria, berarti menggunakan
> operator And yang setara dengan perkalian atau *
> - And( logika1 , logika2 , logika3 , ... , logika_n ) atau
> - ( logika1 ) * ( logika2 ) * ( logika3 ) * ( .... ) * ( logika_n )
> - uji apakah panjang SKU = 7 dengan menggunakan ungsi Len
> - Len( a1 ) = 7
> - uji apakah 1 karakter paling kiri adalah Angka dengan menggunakan
> fungsi Left di dalam fungsi IsNumeric
> - IsNumeric( --Left( a1 , 1) )
> - uji apakah karakter kedua dan ketiga adalah Huruf dengan
> menggunakan fungsi Mid di dalam fungsi IsText
> - IsText( Mid( a1 , 2 , 2) )
> - uji apakah 4 karakter di sebelah kanan adalah Angka dengan
> menggunakan fungsi Right di dalam fungsi IsNumeric
> - IsNumeric( --Right( a1 , 4 ) )
> - Jika cara melakukan pengujiannya sudah bisa, maka cukup mudah
> untuk menentukan kode SKU itu milik vendor mana, karena syntax dari fungsi
> IF adalah sbb:
> - =If( nilai_yang_diuji ,nilai_jika_hasil_pengujian_terpenuhi_atau_bernilai_TRUE
> , nilai_jika_hasil_pengujian_tidak_terpenuhi_atau_bernilai_FALSE )
>
> Perhatikan, bahwa ada tanda minus 2 kali atau -- di depan setiap fungsi
> Text yang akan diuji nilainya sebagai Angka atau Numeric, tanda dobel minus
> tersebut adalah untuk mengubah format Text menjadi Numeric.
>
> Rgds,
>
>
> Egidia Seftyana Putri
>
> ps: jika solusi di atas dirasa bermanfaat, Putri minta didoakan untuk
> kesehatan dan kesembuhan Putri :)
>
>
> Pada 28 April 2014 13.46, Rahasus Pae <rahasus.pae@gmail.com> menulis:
>
>
>>
>> Dear Be-Exceler,
>>
>> Saya ingin mengidentifikasi no kode original part dari setiap vendor dari
>> ribuan SKU yang ada, salah satu vendor mempunya struktur part AHHAAAA
>> (A=angka, H=huruf), bagaimana cara mengidentifikasikan dengan fungsi excel.
>>
>> Jadi setiap part yang berstruktur AHHAAAA akan teridentifikasi sebagai
>> vendor "X".
>>
>> Code Description Vendor 9DK2519 Joint Bar Fertech SA
>>
>> Xie-Xie, brothers and sisters.
>>
>> Rahas.
>>
>>
>
Dear BeExceller,
Mari kita doakan bersama untuk kesembuhan mbak Putri.
Semoga Allah mengangkat segala penyakit yang dibebankan kepada mbak Putri
dan
Semoga Allah memberikan kesembuhan yang sempurna kepada mbak Putri.
*AL FATIHAH*
Amin Ya Rabb Al Alamin
Wassalamu'alaikum wr. wb.
Kid.
2014-04-28 14:22 GMT+07:00 egidia seftyanaputri <egidia.s.putri@gmail.com>:
>
>
> Dear Rahas,
>
> asumsi data ada di a1
> coba gunakan fungsi IF untuk melakukan pengujian dengan cara sbb:
>
> - pengujian dilakukan dengan multi kriteria, berarti menggunakan
> operator And yang setara dengan perkalian atau *
> - And( logika1 , logika2 , logika3 , ... , logika_n ) atau
> - ( logika1 ) * ( logika2 ) * ( logika3 ) * ( .... ) * ( logika_n )
> - uji apakah panjang SKU = 7 dengan menggunakan ungsi Len
> - Len( a1 ) = 7
> - uji apakah 1 karakter paling kiri adalah Angka dengan menggunakan
> fungsi Left di dalam fungsi IsNumeric
> - IsNumeric( --Left( a1 , 1) )
> - uji apakah karakter kedua dan ketiga adalah Huruf dengan
> menggunakan fungsi Mid di dalam fungsi IsText
> - IsText( Mid( a1 , 2 , 2) )
> - uji apakah 4 karakter di sebelah kanan adalah Angka dengan
> menggunakan fungsi Right di dalam fungsi IsNumeric
> - IsNumeric( --Right( a1 , 4 ) )
> - Jika cara melakukan pengujiannya sudah bisa, maka cukup mudah
> untuk menentukan kode SKU itu milik vendor mana, karena syntax dari fungsi
> IF adalah sbb:
> - =If( nilai_yang_diuji ,nilai_jika_hasil_pengujian_terpenuhi_atau_bernilai_TRUE
> , nilai_jika_hasil_pengujian_tidak_terpenuhi_atau_bernilai_FALSE )
>
> Perhatikan, bahwa ada tanda minus 2 kali atau -- di depan setiap fungsi
> Text yang akan diuji nilainya sebagai Angka atau Numeric, tanda dobel minus
> tersebut adalah untuk mengubah format Text menjadi Numeric.
>
> Rgds,
>
>
> Egidia Seftyana Putri
>
> ps: jika solusi di atas dirasa bermanfaat, Putri minta didoakan untuk
> kesehatan dan kesembuhan Putri :)
>
>
> Pada 28 April 2014 13.46, Rahasus Pae <rahasus.pae@gmail.com> menulis:
>
>
>>
>> Dear Be-Exceler,
>>
>> Saya ingin mengidentifikasi no kode original part dari setiap vendor dari
>> ribuan SKU yang ada, salah satu vendor mempunya struktur part AHHAAAA
>> (A=angka, H=huruf), bagaimana cara mengidentifikasikan dengan fungsi excel.
>>
>> Jadi setiap part yang berstruktur AHHAAAA akan teridentifikasi sebagai
>> vendor "X"
>>
>> Code Description Vendor 9DK2519 Joint Bar Fertech SA
>>
>> Xie-Xie, brothers and sisters.
>>
>> Rahas.
>>
>>
>
Mon Apr 28, 2014 2:07 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak Rahasus,
Bagaimana kalau di sebuah sheet dibuat tabel yang baik berisi kolom-kolom :
(misal diberi nama sheet vendor)
code, nama vendor, dan kolom lainnya yang dibutuhkan.
Pada sheet lain yang berisi data (misal pada sheet data_harian), tambahkan
sebuah kolom di paling kanan atau paling kiri yag berisi fungsi Match yang
melookup kode di sheet data ke kolom code di sheet vendor.
Wassalam,
Kid.
2014-04-28 13:46 GMT+07:00 Rahasus Pae <rahasus.pae@gmail.com>:
>
>
> Dear Be-Exceler,
>
> Saya ingin mengidentifikasi no kode original part dari setiap vendor dari
> ribuan SKU yang ada, salah satu vendor mempunya struktur part AHHAAAA
> (A=angka, H=huruf), bagaimana cara mengidentifikasikan dengan fungsi excel.
>
> Jadi setiap part yang berstruktur AHHAAAA akan teridentifikasi sebagai
> vendor "X".
>
> Code Description Vendor 9DK2519 Joint Bar Fertech SA
>
> Xie-Xie, brothers and sisters.
>
> Rahas.
>
>
>
Bagaimana kalau di sebuah sheet dibuat tabel yang baik berisi kolom-kolom :
(misal diberi nama sheet vendor)
code, nama vendor, dan kolom lainnya yang dibutuhkan.
Pada sheet lain yang berisi data (misal pada sheet data_harian), tambahkan
sebuah kolom di paling kanan atau paling kiri yag berisi fungsi Match yang
melookup kode di sheet data ke kolom code di sheet vendor.
Wassalam,
Kid.
2014-04-28 13:46 GMT+07:00 Rahasus Pae <rahasus.pae@gmail.com>:
>
>
> Dear Be-Exceler,
>
> Saya ingin mengidentifikasi no kode original part dari setiap vendor dari
> ribuan SKU yang ada, salah satu vendor mempunya struktur part AHHAAAA
> (A=angka, H=huruf), bagaimana cara mengidentifikasikan dengan fungsi excel.
>
> Jadi setiap part yang berstruktur AHHAAAA akan teridentifikasi sebagai
> vendor "X"
>
> Code Description Vendor 9DK2519 Joint Bar Fertech SA
>
> Xie-Xie, brothers and sisters.
>
> Rahas.
>
>
>
Mon Apr 28, 2014 3:40 am (PDT) . Posted by:
"Rahasus Pae" rattip25
Dear Be-exceler,
Karena susunan 9DK2519 semua karakter akan dikenal sebagai text, pun
misalnya ada kode 82-566926-40, maka logika ke-2 untuk karakter ke 2 dan ke
3 tetap akan di kenal sebagai text meskipun itu angka, maka baik 9DK2519
dan 82-566926-40, hasil logika ke dua akan bernilai "TRUE".
Saya mempunya hasil sebagai berikut terlampir.
Mungkin ada ide lain dari temen2 be-exceler.
Dari Mr. Kid memang solusi, tetapi saat hal itu belum tersedia....jadi mo
gak mo.
Salam,
Rahas.
2014-04-28 15:33 GMT+07:00 kiki tanjung <kieki_e@yahoo.com>:
>
>
> Dear Putri dan Rahas
> Ikutan nimbrung ya..
>
> Semoga Putri cepat diberikan kesehatan..amiin
>
> Back to topic, solusi yang Putri jabarkan itu ampuh, tapi kira2 ada
> alternatif ampuh yg lain ga?
>
> Soalnya saya punya persoalan yang kurang lebih sama. Jika formula2 itu
> diaplikasikan dalam satu worksheet yang berisi ribuan data, file excel akan
> membengkak dan menjadi lambat.
>
> Mohon solusi nya ya..
>
> On Monday, April 28, 2014 2:23 PM, egidia seftyanaputri <
> egidia.s.putri@gmail.com> wrote:
>
> Dear Rahas,
>
> asumsi data ada di a1
> coba gunakan fungsi IF untuk melakukan pengujian dengan cara sbb:
>
> - pengujian dilakukan dengan multi kriteria, berarti menggunakan
> operator And yang setara dengan perkalian atau *
> - And( logika1 , logika2 , logika3 , ... , logika_n ) atau
> - ( logika1 ) * ( logika2 ) * ( logika3 ) * ( .... ) * ( logika_n )
>
>
> - uji apakah panjang SKU = 7 dengan menggunakan ungsi Len
>
>
> - Len( a1 ) = 7
>
>
> - uji apakah 1 karakter paling kiri adalah Angka dengan menggunakan
> fungsi Left di dalam fungsi IsNumeric
>
>
> - IsNumeric( --Left( a1 , 1) )
>
>
> - uji apakah karakter kedua dan ketiga adalah Huruf dengan menggunakan
> fungsi Mid di dalam fungsi IsText
>
>
> - IsText( Mid( a1 , 2 , 2) )
>
>
> - uji apakah 4 karakter di sebelah kanan adalah Angka dengan
> menggunakan fungsi Right di dalam fungsi IsNumeric
>
>
> - IsNumeric( --Right( a1 , 4 ) )
>
>
> - Jika cara melakukan pengujiannya sudah bisa, maka cukup mudah untuk
> menentukan kode SKU itu milik vendor mana, karena syntax dari fungsi IF
> adalah sbb:
>
>
> - =If( nilai_yang_diuji ,nilai_jika_hasil_pengujian_terpenuhi_atau_bernilai_TRUE
> , nilai_jika_hasil_pengujian_tidak_terpenuhi_atau_bernilai_FALSE )
>
> Perhatikan, bahwa ada tanda minus 2 kali atau -- di depan setiap fungsi
> Text yang akan diuji nilainya sebagai Angka atau Numeric, tanda dobel minus
> tersebut adalah untuk mengubah format Text menjadi Numeric.
>
> Rgds,
>
>
> Egidia Seftyana Putri
>
> ps: jika solusi di atas dirasa bermanfaat, Putri minta didoakan untuk
> kesehatan dan kesembuhan Putri :)
>
>
> Pada 28 April 2014 13.46, Rahasus Pae <rahasus.pae@gmail.com> menulis:
>
>
> Dear Be-Exceler,
>
> Saya ingin mengidentifikasi no kode original part dari setiap vendor dari
> ribuan SKU yang ada, salah satu vendor mempunya struktur part AHHAAAA
> (A=angka, H=huruf), bagaimana cara mengidentifikasikan dengan fungsi excel.
>
> Jadi setiap part yang berstruktur AHHAAAA akan teridentifikasi sebagai
> vendor "X".
>
> CodeDescriptionVendor9DK2519Joint BarFertech SA
>
> Xie-Xie, brothers and sisters.
>
> Rahas.
>
>
>
>
>
Karena susunan 9DK2519 semua karakter akan dikenal sebagai text, pun
misalnya ada kode 82-566926-40, maka logika ke-2 untuk karakter ke 2 dan ke
3 tetap akan di kenal sebagai text meskipun itu angka, maka baik 9DK2519
dan 82-566926-40, hasil logika ke dua akan bernilai "TRUE".
Saya mempunya hasil sebagai berikut terlampir.
Mungkin ada ide lain dari temen2 be-exceler.
Dari Mr. Kid memang solusi, tetapi saat hal itu belum tersedia....jadi mo
gak mo.
Salam,
Rahas.
2014-04-28 15:33 GMT+07:00 kiki tanjung <kieki_e@yahoo.com>:
>
>
> Dear Putri dan Rahas
> Ikutan nimbrung ya..
>
> Semoga Putri cepat diberikan kesehatan..amiin
>
> Back to topic, solusi yang Putri jabarkan itu ampuh, tapi kira2 ada
> alternatif ampuh yg lain ga?
>
> Soalnya saya punya persoalan yang kurang lebih sama. Jika formula2 itu
> diaplikasikan dalam satu worksheet yang berisi ribuan data, file excel akan
> membengkak dan menjadi lambat.
>
> Mohon solusi nya ya..
>
> On Monday, April 28, 2014 2:23 PM, egidia seftyanaputri <
> egidia.s.putri@gmail.com> wrote:
>
> Dear Rahas,
>
> asumsi data ada di a1
> coba gunakan fungsi IF untuk melakukan pengujian dengan cara sbb:
>
> - pengujian dilakukan dengan multi kriteria, berarti menggunakan
> operator And yang setara dengan perkalian atau *
> - And( logika1 , logika2 , logika3 , ... , logika_n ) atau
> - ( logika1 ) * ( logika2 ) * ( logika3 ) * ( .... ) * ( logika_n )
>
>
> - uji apakah panjang SKU = 7 dengan menggunakan ungsi Len
>
>
> - Len( a1 ) = 7
>
>
> - uji apakah 1 karakter paling kiri adalah Angka dengan menggunakan
> fungsi Left di dalam fungsi IsNumeric
>
>
> - IsNumeric( --Left( a1 , 1) )
>
>
> - uji apakah karakter kedua dan ketiga adalah Huruf dengan menggunakan
> fungsi Mid di dalam fungsi IsText
>
>
> - IsText( Mid( a1 , 2 , 2) )
>
>
> - uji apakah 4 karakter di sebelah kanan adalah Angka dengan
> menggunakan fungsi Right di dalam fungsi IsNumeric
>
>
> - IsNumeric( --Right( a1 , 4 ) )
>
>
> - Jika cara melakukan pengujiannya sudah bisa, maka cukup mudah untuk
> menentukan kode SKU itu milik vendor mana, karena syntax dari fungsi IF
> adalah sbb:
>
>
> - =If( nilai_yang_diuji ,nilai_jika_hasil_pengujian_terpenuhi_atau_bernilai_TRUE
> , nilai_jika_hasil_pengujian_tidak_terpenuhi_atau_bernilai_FALSE )
>
> Perhatikan, bahwa ada tanda minus 2 kali atau -- di depan setiap fungsi
> Text yang akan diuji nilainya sebagai Angka atau Numeric, tanda dobel minus
> tersebut adalah untuk mengubah format Text menjadi Numeric.
>
> Rgds,
>
>
> Egidia Seftyana Putri
>
> ps: jika solusi di atas dirasa bermanfaat, Putri minta didoakan untuk
> kesehatan dan kesembuhan Putri :)
>
>
> Pada 28 April 2014 13.46, Rahasus Pae <rahasus.pae@gmail.com> menulis:
>
>
> Dear Be-Exceler,
>
> Saya ingin mengidentifikasi no kode original part dari setiap vendor dari
> ribuan SKU yang ada, salah satu vendor mempunya struktur part AHHAAAA
> (A=angka, H=huruf), bagaimana cara mengidentifikasikan dengan fungsi excel.
>
> Jadi setiap part yang berstruktur AHHAAAA akan teridentifikasi sebagai
> vendor "X"
>
> CodeDescriptionVend
>
> Xie-Xie, brothers and sisters.
>
> Rahas.
>
>
>
>
>
Mon Apr 28, 2014 12:57 am (PDT) . Posted by:
"Marvell Christian"
Tks bro & mbak fitri juga...hehehehehe
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Senin, 21 April 2014 9:10
Judul: Re: [belajar-excel] Menghitung jumlah data dengan multi kriteria
Hai Marvel
coba formula :
=SUMPRODUCT(1/COUNTIFS($C$4:$C$7,$C$4:$C$7,$D$4:$D$7,$D$4:$D$7,$E$4:$E$7,$E$4:$E$7,$K$4:$K$7,$K$4:$K$7))
Wassalam,
Kid.
2014-04-21 7:04 GMT+07:00 Marvell Christian <marvellchristian@yahoo.com>:
>Dear Moderator,
>Mohon bantuan solusinya dimana saya mempunyai problem menghitung jumlah truk namun ada truk yang sama dan memiliki DO yang sama pada hari yang sama. Bagaimana formulanya untuk menghitung jumlah data dengan multi kriteria dan untuk data yang sama hanya menampilkan 1 data saja. Tks
>
>Rgds,
>MCS
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Senin, 21 April 2014 9:10
Judul: Re: [belajar-excel] Menghitung jumlah data dengan multi kriteria
Hai Marvel
coba formula :
=SUMPRODUCT(1/COUNTIFS($C$4:$C$7,$C$4:$C$7,$D$4:$D$7,$D$4:$D$7,$E$4:$E$7,$E$4:$E$7,$K$4:$K$7,$K$4:$K$7))
Wassalam,
Kid.
2014-04-21 7:04 GMT+07:00 Marvell Christian <marvellchristian@yahoo.com>:
>Dear Moderator,
>Mohon bantuan solusinya dimana saya mempunyai problem menghitung jumlah truk namun ada truk yang sama dan memiliki DO yang sama pada hari yang sama. Bagaimana formulanya untuk menghitung jumlah data dengan multi kriteria dan untuk data yang sama hanya menampilkan 1 data saja. Tks
>
>Rgds,
>MCS
Mon Apr 28, 2014 1:04 am (PDT) . Posted by:
"Marvell Christian"
Dear admin,
Mohon bantuannya, dimana saya ingin mencari dan menghitung suatu data dari dalam tabel (terlampir). Tks
Rgds,
MCS
Mohon bantuannya, dimana saya ingin mencari dan menghitung suatu data dari dalam tabel (terlampir). Tks
Rgds,
MCS
Mon Apr 28, 2014 3:40 am (PDT) . Posted by:
"Heri Pamungkas ( Gmail )" dchoosen88
السَّÙ„َامُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ
Semangat pagi,.
Hehehe,...
Mau tanya, saya lihat di tabelnya ada rumusnya.
Bolehkah kalo rumus itu saya taruh di perhitungan ?!
Kalau boleh, Tulis di kolom D2 :
=(PI()*(1,9)
ÙˆَالسَّÙ„َامُ عَÙ„َÙŠْÙƒُÙ…ْ ÙˆَرَØْÙ…َØ©ُ اللهِ ÙˆَبَرَÙƒَاتُÙ‡ُ
Warm Regards,
On 28/04/2014 7:46, Marvell Christian wrote:
> Dear admin,
> Mohon bantuannya, dimana saya ingin mencari dan menghitung suatu data
> dari dalam tabel (terlampir). Tks
> Rgds,
> MCS
>
Mon Apr 28, 2014 2:51 am (PDT) . Posted by:
"Hendrik Karnadi" hendrikkarnadi
Semoga mbak Putri cepat sembuh.
Salam,
HK
Sent from Samsung Mobile
-------- Original message --------
Subject:Re: [belajar-excel] Mengidentifikasi Kode Part
From:"Mr. Kid" <mr.nmkid@gmail.com>
To:BeExcel <belajar-excel@yahoogroups.com>
Cc:
Assalamu'alaikum wr. wb.
Dear BeExceller,
Mari kita doakan bersama untuk kesembuhan mbak Putri.
Semoga Allah mengangkat segala penyakit yang dibebankan kepada mbak Putri
dan
Semoga Allah memberikan kesembuhan yang sempurna kepada mbak Putri.
AL FATIHAH
Amin Ya Rabb Al Alamin
Wassalamu'alaikum wr. wb.
Kid.
2014-04-28 14:22 GMT+07:00 egidia seftyanaputri <egidia.s.putri@gmail.com>:
Dear Rahas,
asumsi data ada di a1
coba gunakan fungsi IF untuk melakukan pengujian dengan cara sbb:
pengujian dilakukan dengan multi kriteria, berarti menggunakan operator And yang setara dengan perkalian atau *
And( logika1 , logika2 , logika3 , ... , logika_n ) atau
( logika1 ) * ( logika2 ) * ( logika3 ) * ( .... ) * ( logika_n )
uji apakah panjang SKU = 7 dengan menggunakan ungsi Len
Len( a1 ) = 7
uji apakah 1 karakter paling kiri adalah Angka dengan menggunakan fungsi Left di dalam fungsi IsNumeric
IsNumeric( --Left( a1 , 1) )
uji apakah karakter kedua dan ketiga adalah Huruf dengan menggunakan fungsi Mid di dalam fungsi IsText
IsText( Mid( a1 , 2 , 2) )
uji apakah 4 karakter di sebelah kanan adalah Angka dengan menggunakan fungsi Right di dalam fungsi IsNumeric
IsNumeric( --Right( a1 , 4 ) )
Jika cara melakukan pengujiannya sudah bisa, maka cukup mudah untuk menentukan kode SKU itu milik vendor mana, karena syntax dari fungsi IF adalah sbb:
=If( nilai_yang_diuji , nilai_jika_hasil_pengujian_terpenuhi_atau_bernilai_TRUE , nilai_jika_hasil_pengujian_tidak_terpenuhi_atau_bernilai_FALSE )
Perhatikan, bahwa ada tanda minus 2 kali atau -- di depan setiap fungsi Text yang akan diuji nilainya sebagai Angka atau Numeric, tanda dobel minus tersebut adalah untuk mengubah format Text menjadi Numeric.
Rgds,
Egidia Seftyana Putri
ps: jika solusi di atas dirasa bermanfaat, Putri minta didoakan untuk kesehatan dan kesembuhan Putri :)
Pada 28 April 2014 13.46, Rahasus Pae <rahasus.pae@gmail.com> menulis:
Dear Be-Exceler,
Saya ingin mengidentifikasi no kode original part dari setiap vendor dari ribuan SKU yang ada, salah satu vendor mempunya struktur part AHHAAAA (A=angka, H=huruf), bagaimana cara mengidentifikasikan dengan fungsi excel.
Jadi setiap part yang berstruktur AHHAAAA akan teridentifikasi sebagai vendor "X".
Code Description Vendor
9DK2519 Joint Bar Fertech SA
Xie-Xie, brothers and sisters.
Rahas.
Salam,
HK
Sent from Samsung Mobile
-------- Original message --------
Subject:Re: [belajar-excel] Mengidentifikasi Kode Part
From:"Mr. Kid" <mr.nmkid@gmail.com>
To:BeExcel <belajar-excel@yahoogroups.com>
Cc:
Assalamu'alaikum wr. wb.
Dear BeExceller,
Mari kita doakan bersama untuk kesembuhan mbak Putri.
Semoga Allah mengangkat segala penyakit yang dibebankan kepada mbak Putri
dan
Semoga Allah memberikan kesembuhan yang sempurna kepada mbak Putri.
AL FATIHAH
Amin Ya Rabb Al Alamin
Wassalamu'alaikum wr. wb.
Kid.
2014-04-28 14:22 GMT+07:00 egidia seftyanaputri <egidia.s.putri@gmail.com>:
Dear Rahas,
asumsi data ada di a1
coba gunakan fungsi IF untuk melakukan pengujian dengan cara sbb:
pengujian dilakukan dengan multi kriteria, berarti menggunakan operator And yang setara dengan perkalian atau *
And( logika1 , logika2 , logika3 , ... , logika_n ) atau
( logika1 ) * ( logika2 ) * ( logika3 ) * ( .... ) * ( logika_n )
uji apakah panjang SKU = 7 dengan menggunakan ungsi Len
Len( a1 ) = 7
uji apakah 1 karakter paling kiri adalah Angka dengan menggunakan fungsi Left di dalam fungsi IsNumeric
IsNumeric( --Left( a1 , 1) )
uji apakah karakter kedua dan ketiga adalah Huruf dengan menggunakan fungsi Mid di dalam fungsi IsText
IsText( Mid( a1 , 2 , 2) )
uji apakah 4 karakter di sebelah kanan adalah Angka dengan menggunakan fungsi Right di dalam fungsi IsNumeric
IsNumeric( --Right( a1 , 4 ) )
Jika cara melakukan pengujiannya sudah bisa, maka cukup mudah untuk menentukan kode SKU itu milik vendor mana, karena syntax dari fungsi IF adalah sbb:
=If( nilai_yang_diuji , nilai_jika_hasil_pengujian_terpenuhi_atau_bernilai_TRUE , nilai_jika_hasil_pengujian_tidak_terpenuhi_atau_bernilai_FALSE )
Perhatikan, bahwa ada tanda minus 2 kali atau -- di depan setiap fungsi Text yang akan diuji nilainya sebagai Angka atau Numeric, tanda dobel minus tersebut adalah untuk mengubah format Text menjadi Numeric.
Rgds,
Egidia Seftyana Putri
ps: jika solusi di atas dirasa bermanfaat, Putri minta didoakan untuk kesehatan dan kesembuhan Putri :)
Pada 28 April 2014 13.46, Rahasus Pae <rahasus.pae@gmail.com> menulis:
Dear Be-Exceler,
Saya ingin mengidentifikasi no kode original part dari setiap vendor dari ribuan SKU yang ada, salah satu vendor mempunya struktur part AHHAAAA (A=angka, H=huruf), bagaimana cara mengidentifikasikan dengan fungsi excel.
Jadi setiap part yang berstruktur AHHAAAA akan teridentifikasi sebagai vendor "X"
Code Description Vendor
9DK2519 Joint Bar Fertech SA
Xie-Xie, brothers and sisters.
Rahas.
Mon Apr 28, 2014 3:20 am (PDT) . Posted by:
"Ahmad Syaifullah Lubis" syaifullah
Dear mederator,
sumbang saran, grooup BeExceller mempunyai baju komunitas BeExceller. saya ingin memilikinya... boleh dong.
salam, semoga sukses kopdar 2.
ASL
To: belajar-excel@yahoogroups.com
From: dedy.rauf@gmail.com
Date: Mon, 14 Apr 2014 18:26:34 +0700
Subject: Re: [belajar-excel] Kopdar 2 Yuk
setuju, tolong kbaari infonya lebih lanjut ya 0856 554 664 80
2014-04-10 7:30 GMT+07:00 ijay <dieries1304@gmail.com>:
Siap setuju sekali. Apakah agendanya ada mengakomodir bagi pemula "VBA dari nol"...trims
ijayFrom: belajar-excel-owner@yahoogroups.com
Sender: belajar-excel@yahoogroups.com
Date: 08 Apr 2014 10:01:47 -0700To: <belajar-excel@yahoogroups.com>ReplyTo: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Kopdar 2 Yuk
Assalamu'alaikum Wr. Wb.
Dear BeExceller,
Kopdar 1 telah dilaksanakan tahun lalu. Moderator berencana mengadakan acara kopdar 2. Tema kopdar kali ini adalah Belajar Macro. Sebuah tema yang sangat sederhana bagi yang sudah mahir atau yang telah terbiasa dengan Excel VBA, tetapi relatif jarang digunakan oleh pengguna Excel ditempat kerjanya karena sering dicap sebagai sesuatu yang rumit.
Akhir-akhir ini, di milis berseliweran topik tentang VBA. Saking seringnya berseliweran, bisa jadi membuat BeExceller yang masih belum mengenalnya ada yang menjadi enggan untuk mempelajarinya dan ada yang malah menjadi bersemangat untuk mempelajarinya. Hal ini menjadi salah satu latar belakang diadakannya kopdar 2, sebagai sarana untuk mengenalkan dasar-dasar tentang Excel VBA (Macro).
Target utama dalam kopdar 2 ini tetaplah untuk mempererat silaturahmi antar BeExceller. Jadi, janganlah dikarenakan tema kopdar yang telah dikuasai maka menjadi enggan untuk saling mengenal antar BeExceller. Silaturahmi yang baik akan membuka banyak pintu rahmat Allah.
Insya Allah acara akan diadakan pada :
hari, tanggal : Minggu, 11 Mei 2014
waktu : 08:00 - 16:00
kapasitas : 30 sampai 50 orang tergantung ruang yang didapatkan.
lokasi : sedang dalam pencarian dengan area sekitar jalan Pemuda, Salemba, atau Suprapto dan tidak menutup kemungkinan di area lain yang mudah diakses oleh BeExceller yang ada di Jabodetabek maupun yang dari luar kota.
donasi : sedang dihitung oleh tim panitia dan Alhamdulillah sisa acara kopdar 1 bisa menjadi modal awal untuk penyelenggaraan kopdar 2 kali ini.
Dukungan BeExceller seluruhnya akan bermanfaat dalam usaha mewujudkan acara kopdar 2 ini. Tim panitia kopdar masih butuh tenaga relawan dari BeExceller. Silakan hubungi Pak Aliff atau Pak Opick untuk yang bersedia membantu tim panitia. Masukan dari seluruh BeExceller tentang lokasi dan informasi ruang yang bisa dipinjam atau disewa untuk acara kopdar 2 kali ini sangatlah diharapkan.
Informasi lebih lanjut tentang detil kopdar 2 akan disampaikan lebih detil oleh moderator dan tim panitia.
Wassalamu'alaikum Wr. Wb.
Moderator Belajar-Excel
sumbang saran, grooup BeExceller mempunyai baju komunitas BeExceller. saya ingin memilikinya... boleh dong.
salam, semoga sukses kopdar 2.
ASL
To: belajar-excel@yahoogroups.com
From: dedy.rauf@gmail.com
Date: Mon, 14 Apr 2014 18:26:34 +0700
Subject: Re: [belajar-excel] Kopdar 2 Yuk
setuju, tolong kbaari infonya lebih lanjut ya 0856 554 664 80
2014-04-10 7:30 GMT+07:00 ijay <dieries1304@gmail.com>:
Siap setuju sekali. Apakah agendanya ada mengakomodir bagi pemula "VBA dari nol"...trims
ijayFrom: belajar-excel-owner@yahoogroups.com
Sender: belajar-excel@yahoogroups.com
Date: 08 Apr 2014 10:01:47 -0700To: <belajar-excel@yahoogroups.com>ReplyTo: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Kopdar 2 Yuk
Assalamu'
Dear BeExceller,
Kopdar 1 telah dilaksanakan tahun lalu. Moderator berencana mengadakan acara kopdar 2. Tema kopdar kali ini adalah Belajar Macro. Sebuah tema yang sangat sederhana bagi yang sudah mahir atau yang telah terbiasa dengan Excel VBA, tetapi relatif jarang digunakan oleh pengguna Excel ditempat kerjanya karena sering dicap sebagai sesuatu yang rumit.
Akhir-akhir ini, di milis berseliweran topik tentang VBA. Saking seringnya berseliweran, bisa jadi membuat BeExceller yang masih belum mengenalnya ada yang menjadi enggan untuk mempelajarinya dan ada yang malah menjadi bersemangat untuk mempelajarinya. Hal ini menjadi salah satu latar belakang diadakannya kopdar 2, sebagai sarana untuk mengenalkan dasar-dasar tentang Excel VBA (Macro).
Target utama dalam kopdar 2 ini tetaplah untuk mempererat silaturahmi antar BeExceller. Jadi, janganlah dikarenakan tema kopdar yang telah dikuasai maka menjadi enggan untuk saling mengenal antar BeExceller. Silaturahmi yang baik akan membuka banyak pintu rahmat Allah.
Insya Allah acara akan diadakan pada :
hari, tanggal : Minggu, 11 Mei 2014
waktu : 08:00 - 16:00
kapasitas : 30 sampai 50 orang tergantung ruang yang didapatkan.
lokasi : sedang dalam pencarian dengan area sekitar jalan Pemuda, Salemba, atau Suprapto dan tidak menutup kemungkinan di area lain yang mudah diakses oleh BeExceller yang ada di Jabodetabek maupun yang dari luar kota.
donasi : sedang dihitung oleh tim panitia dan Alhamdulillah sisa acara kopdar 1 bisa menjadi modal awal untuk penyelenggaraan kopdar 2 kali ini.
Dukungan BeExceller seluruhnya akan bermanfaat dalam usaha mewujudkan acara kopdar 2 ini. Tim panitia kopdar masih butuh tenaga relawan dari BeExceller. Silakan hubungi Pak Aliff atau Pak Opick untuk yang bersedia membantu tim panitia. Masukan dari seluruh BeExceller tentang lokasi dan informasi ruang yang bisa dipinjam atau disewa untuk acara kopdar 2 kali ini sangatlah diharapkan.
Informasi lebih lanjut tentang detil kopdar 2 akan disampaikan lebih detil oleh moderator dan tim panitia.
Wassalamu'
Moderator Belajar-Excel
Mon Apr 28, 2014 3:20 am (PDT) . Posted by:
"Bagus" bagus4bls
Hi mcs;
Sila lihat file terlampir..
Helper ada di row 3
Wassalam
~ Bagus ~
----- Original Message -----
From: Marvell Christian
To: belajar-excel@yahoogroups.com
Sent: Monday, April 28, 2014 7:46 AM
Subject: [***SPAM*** Score/Req: 05.20/5.0] [belajar-excel] Mencari data dalam tabel [1 Attachment]
Dear admin,
Mohon bantuannya, dimana saya ingin mencari dan menghitung suatu data dari dalam tabel (terlampir). Tks
Rgds,
MCS
Sila lihat file terlampir..
Helper ada di row 3
Wassalam
~ Bagus ~
----- Original Message -----
From: Marvell Christian
To: belajar-excel@yahoogroups.com
Sent: Monday, April 28, 2014 7:46 AM
Subject: [***SPAM*** Score/Req: 05.20/5.0] [belajar-excel] Mencari data dalam tabel [1 Attachment]
Dear admin,
Mohon bantuannya, dimana saya ingin mencari dan menghitung suatu data dari dalam tabel (terlampir). Tks
Rgds,
MCS
=====================================================================
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