Chủ đề: [help] xin code chuyển sheet
-
12-14-2013, 08:32 PM #1Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 3
[help] xin code chuyển sheet
e đang vướng ở vấn đề liên kết đến sheet khác ... ví dụ
Ban đầu e tạo nút ẩn hết tất cả các sheet trên sheet Menu
Sau đó tạo nút ấn D500 ở sheet Menu khi nhấn vào thì sẽ hiện đồng thời 2 sheet D510 và D520, nút ấn D600 ở sheet Menu thì khi nhấn vào sẽ hiện đồng thời 2 sheet D610 và D620, tương tự các nút ấn khác sẽ chuyển đến 2 sheet khác ...
Nhưng
em tìm trên GPE và cả google cũng chỉ có macro liên kết từ sheet này đến 1 sheet khác
Sub LinktoSheet()
With ActiveSheet
With Sheets(.Shapes(Application.Caller).AlternativeText )
.Visible = True: .Select
End With
.Visible = 2
End With
End Sub
ac nào biết giúp e với ... e cảm ơn !!!View more random threads:
- giúp minh kê khai hang tồn kho tính theo phương pháp bình quân
- Load hình vào UserForm
- Mình vừa thử chuyển thể trò chơi "Đấu trường 100" sang excel
- Giúp em vấn đề xóa 1 cột trong excel ( em cần rất gấp)
- Các ví dụ về Form, Combo box, list box ...rất hay
- Đồng hồ trên Excel
- Xin giúp đỡ code lệnh tìm kiếm vba
- viết code xong nhưng không thực thi lệnh
- MIDI Sound - Soạn nhạc trong Excel - Bài hát "Gọi đò"
- Tạo nút xóa cho sheet!
-
12-15-2013, 07:30 AM #2Banned
- Ngày tham gia
- Dec 2015
- Bài viết
- 0
Ðề: [help] xin code chuyển sheet
Gửi bởi jukohoivisao
Vào Ðề tài: Hỗ trợ code tạo mục lục. Code trong đó
Shapes(Application.Caller).AlternativeText . Tôi đoán cậu vào website nào của mẽo đọc mà ko hiểu . Đó là cách chỉ tạo nút là button dùng hyperlink hoặc Assign macro . Muốn assign macro, cậu phải create a new Sheet name (ví dụ mymacro) . Trang macro sẽ có vài procedure sheet1,sheet2 v.v.... để display
-
12-16-2013, 06:06 PM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: [help] xin code chuyển sheet
Gửi bởi Wind_Flower
Sub ListSheetsAndTitles()
Dim ws As Worksheet
Dim x As Integer
x = 1
Sheets("Mucluc").Range("A:A").Clear
For Each ws In Worksheets
Sheets("Mucluc").Cells(x, 1) = ws.Name & " " & ws.Cells(3, 1).Value
x = x + 1
Next ws
End Sub
mục đích của em là gộp 2 sheet lại làm 1 nhóm. VD tạo nút D500 ấn vào sẽ hiện D510 và D520, G600 sẽ hiện lên G610 và G620
e cảm ơn bác
-
12-17-2013, 07:18 PM #4Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: [help] xin code chuyển sheet
Gửi bởi jukohoivisao
ListSheetsAndTitles chỉ chuyển hạy ang Sheets . Ko có dính dáng gì Group hết . Câu hỏi của đề bài này là " xin code chuyển sheet " . Đâu có hỏi GROUP gì đâu ????
Group là trường hợp cậu có vài Sheets format giống nhau, muốn Edit cùng 1 lúc . Tôi chưa làm Group bao giờ . Tuy nhiên đây là 2 trang gướng dẫn chỉ cách Group . Chẳng hiểu có đúng ý cậu muốn hay ko. Hướng dẫn bằbg hình ảnh rõ ràng
How to Ungroup in Excel: 5 Steps (with Pictures) - wikiHow
http://www.wikihow.com/Group-anđOutline-ExcelĐata
Trường hợp muốn Group cho mục đích khác thì dùng wSheet.UsedRange.Rows.Group . Tùy cậu muốn chỉ định Sheets nào .
Tôi ko biết Excel cậu có structure ra sao , Tôi chỉ đoán ý cậu nói . Cách tạo button để chuyển sheets thì đã trả lời rồi
-
12-17-2013, 08:32 PM #5Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: [help] xin code chuyển sheet
bên GPE có giúp đỡ và được file này, em thấy code cũng khá dài và phải tạo vùng tham chiếu trên sheet chính MENU (có chứa dữ liệu của em). em muốn thay vùng tham chiếu bằng cách viết trực tiếp sheet mình muốn hiện trên code
Bác giúp em hiệu chỉnh chút được ko ạ, cảm ơn bác nhiều !!!
-
12-18-2013, 03:28 PM #6Silver member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: [help] xin code chuyển sheet
Gửi bởi jukohoivisao
1- Trong cái Module 1 , có Sub ShoworHideAllSheet() dài bỏ mẹ chẳng có khỉ gì . Do dó cậu la^'y code của tôi Muc Lục để tạo list các sheets trong workbook . Đơn giản vậy đó
2- Giờ cậu đã biếi tàm cái buttons rồi , not too bad
3- Giờ cậu paste Code này vào Module
4- Muốn Hide All thì:
Sub HideEmAll()
Sheet2.Columns("A:C").EntireColumn.Hidden = True
End Sub
5- Muốn chỉ hiện Column A (cột A) thì
Sub UnhideA()
Sheet2.Columns("A:A").EntireColumn.Hidden = False
End Sub
6- Muốn hiện cột B thì
Sub UnhideB()
Sheet2.Columns("A:A").EntireColumn.Hidden = False
End Sub
7- Tương tự hiện cột C
8- Muốn hiện hện hết
Sub UnhideAll()
Sheet2.Columns("A:C").EntireColumn.Hidden = False
End Sub
9-Muốn hide cột A và B
Sub hideAB()
Sheet2.Columns("A:B").EntireColumn.Hidden = True
End Sub
Giờ cậu chỉ định từng nút button
1- RIGHT click vào Hide All
2- Chọn Assign Macro
3- Chọn HideEmAll
Tương tự cho các Buttons khác
===========
Phần này extra cho cậu
Nếu muố Ẩn hay Hiện Sheets nào :
Hide Sheet1
Worksheets("Sheet1").Visible = False
Unhide Sheet 1
Worksheets("Sheet1").Visible = True
-
12-18-2013, 06:17 PM #7Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: [help] xin code chuyển sheet
Em chẳng hiểu các bác nói gì cả, cái gì mà
sheet D510 và D520
Mã nguồn PHP:[COLOR=#000000]
SheetD510[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Show[/COLOR]
-
12-18-2013, 06:45 PM #8Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: [help] xin code chuyển sheet
Gửi bởi Wind_Flower
VD: các sheet D510, D520, D530 ... làm về chủ đề tiền
các sheet F100, F120, F130 .... Làm về nguồn vốn
các sheet G100, G120, G130 ... làm về hàng tồn kho
còn ẩn hay hiện 1 sheet hoặc tất cả các sheet trong file thì em biết rồi, bác biết chỉ dùm em
Cảm ơn bác rất nhiều !!!
-
12-19-2013, 02:21 PM #9Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: [help] xin code chuyển sheet
Gửi bởi jukohoivisao
Sub UnhideAllSheets()
'Unhide all sheets in workbook.
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub
Sub HideD110D120Sheets()
Dim sh As Worksheet
Application.ScreenUpdating = False
On Error Resume Next
Sheet3.Visible = False ' D110
Sheet4.Visible = False ' D120
Sheet2.Activate
Application.ScreenUpdating = True
End Sub
-
12-19-2013, 04:23 PM #10Silver member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: [help] xin code chuyển sheet
Cách troub****oot để cậu thấy rõ code viết cái gì . Vidụ
Sub AnSheetG()
Const SHEETCHU = "MENU" ' tên sheet ch?, b?n s?a tên sheet ch? ? dây
Const VUNGTENSHEETS = "C1:C10" ' vùng ch?a tên các sheet c?n ch?a l?i, không ?n. N?u c?n s?a thì s?a ? dây
Dim rg As Range
Dim danhSach As String ' lap danh sach cac sheet se khong bi an
danhSach = SHEETCHU ' luon luon chua sheet chu khong an
For Each rg In Sheets(SHEETCHU).Range(VUNGTENSHEETS)
If rg.Value <> "" Then
danhSach = danhSach & NAMESTRDELIM & Trim(rg.Value)
MsgBox "danhSach: " & danhSach
MsgBox " rg.Value: " & rg.Value
MsgBox "VUNGTENSHEETS: " & VUNGTENSHEETS
End If
Next
danhSach = NAMESTRDELIM & danhSach & NAMESTRDELIM
AnChuaLaiSheets danhSach
Sheets(SHEETCHU).Select
End Sub
Ko có data, ko có Outline ( chỨng tỏ O có gì hide) !!!! Retreive cái gì trong đó ????
Đọc kỹ cái code
For Each rg In Sheets(SHEETCHU).Range(VUNGTENSHEETS)
If rg.Value <> "" Then
danhSach = danhSach & NAMESTRDELIM & Trim(rg.Value)
End If
Nếu C1:C10 mà BLANK thì ko hien ra Sheet D110, D120 .
Nếu đúng D110 , D120 thì hiện ra 2 Sheets . Có vậy thôi .
Trong cái Workbook của cậu, moi đâu ra VBA hide các sheets này ???
F100, F120, F130 .... Làm về nguồn vốn
các sheet G100, G120, G130 ... làm về hàng tồn kho
Are you kidding me ???
Group đâu mà ở trong này ??? Show me where is the command of Group in VBA
Where is the code for Sheets F100, F120, F130, G100, G120, G130
You want Group
Selection.Columns.Group
When you unhide all worsheets, do you see any Sheets F100, F120, F130, G100, G120, G130 .
Good Luck
Trứng rung Private Massager hay còn được gọi với cái tên trứng rung cá heo là sản phẩm nức danh giờ. Công dụng chính là giúp massage “cô bé”, hỗ trợ tạo cảm giác hưng phấn, mới lạ cho chị em “tự...
Các cặp đôi hoàn toàn có thể sử dụng chày rung điều khiển từ xa ở nơi công cộng