kienthuc2007
Thành viên mới
- Tham gia
- 16/8/07
- Bài viết
- 17
- Được thích
- 2
yeudoi đã viết:Bạn không nói dữ liệu như thế nào thì ai mà biết được. Còn file bạn đã là một form rồi đó, nhưng nó là sheetfrom bạn có thể nhập dữ liệu vào để in. Bạn có thể nói rõ hơn.
Bạn nên tìm file hướng dẫn cách Mail Merge của Dvu58 để thực hiện. Bảo đảm kết quả vượt sự mong đợi của bạn.kienthuc2007 đã viết:em muốn tạo một cái nhãn theo kiểu nhập liện bằng Form để in ra dán nhãn vào tập để chuẩn bị cho năm học mới ?
Vì là thành viên mới, bạn chỉ có thể tạo chú đề mới ở đây: Dành cho thành viên mới tham gia, nhưng bạn có quyền gửi bài trả lời trong tất cả các forum khác. Cho tới khi nào số bài của bạn > 30, thì bạn mới có quyền tạo chủ đề mới ở bất kỳ đâu.teutamteu đã viết:Chào các anh.
1. Không hiểu sao khi em tạo chủ đề mới ở một số forum, hệ thống báo bạn không đủ quyền do chưa đăng ký. Xin các anh chỉ cách để đăng bài lên các tất cả các mục.
Option Explicit
Private Sub Workbook_Activate()
If Val(Application.Version) >= 12 Then
If Dir(ThisWorkbook.Path & "\MenuAdd-in.xlam") <> "" Then
Workbooks.Open ThisWorkbook.Path & "\MenuAdd-in.xlam"
Else
MsgBox "The ?.xlam is not in the same folder as this workbook." & vbNewLine & _
"We can't create the menu on the Ribbon"
Exit Sub
End If
Else
Call WB_RDB_AddMenu
End If
Call WB_RDB_CreatePopUp
End Sub
Private Sub Workbook_Deactivate()
If Val(Application.Version) >= 12 Then
On Error Resume Next
Workbooks("MenuAdd-in.xlam").Close False
Else
Call WB_RDB_DelMenu
End If
Call WB_RDB_RemovePopUp
End Sub
Option Explicit
Option Private Module
Sub WB_RDB_DisplayPopUp()
If ActiveWorkbook.Name = ThisWorkbook.Name Then
On Error Resume Next
Application.CommandBars(ThisWorkbook.Sheets("MenuSheet").Range("B2").Value).ShowPopup
On Error GoTo 0
End If
End Sub
'' This sub is the callback routine for all ribbon buttons
'' Since Excel 11 doesn't know what a IRibbonControl is
'' we must dim Ctrl as Variant.
'' but then we can convert it to an IRibbonControl
'' within the sub (which we must do do get the Ctrl.ID property).
Sub BtnOnActionCall(Ctrl As Variant)
Dim Ctrl1 As IRibbonControl
Set Ctrl1 = Ctrl
Select Case Ctrl1.ID
Case "customButton1"
Call WB_RDB_DisplayPopUp
End Select
End Sub
Sub MyMacro1()
MsgBox "This macro 1."
End Sub
Sub MyMacro2()
MsgBox "This macro 2."
End Sub
Sub MyMacro3()
MsgBox "This macro 3."
End Sub
Sub MyMacro4()
MsgBox "This macro 4."
End Sub
Sub MyMacro5()
MsgBox "This macro 5."
End Sub
Sub MyMacro6()
MsgBox "This macro 6."
End Sub
Sub MyMacro7()
MsgBox "This macro 7."
End Sub
Sub MyMacro8()
MsgBox "This macro 8."
End Sub
Sub MyMacro9()
MsgBox "This macro 9."
End Sub
Sub MyMacro10()
MsgBox "This macro 10."
End Sub
Sub MyMacro11()
MsgBox "This macro 11."
End Sub
Sub MyMacro12()
MsgBox "This macro 12."
End Sub
Sub MyMacro13()
MsgBox "This macro 13."
End Sub
Sub MyMacro14()
MsgBox "This macro 14."
End Sub
Sub MyMacro15()
MsgBox "This macro 15."
End Sub
Option Explicit
Option Private Module
Sub WB_RDB_CreatePopUp()
Dim MenuSheet As Worksheet
Dim MenuItem As Object
Dim SubMenuItem As CommandBarButton
Dim Row As Integer
Dim MenuLevel, NextLevel, MacroName, Caption, Divider, FaceId
''''''''''''''''''''''''''''''''''''''''''''''''''''
' Location for menu data
Set MenuSheet = ThisWorkbook.Sheets("MenuSheet")
''''''''''''''''''''''''''''''''''''''''''''''''''''
' Make sure the menus aren't duplicated
Call WB_RDB_RemovePopUp
' Initialize the row counter
Row = 5
' Add the menu, menu items and submenu items using
' data stored on MenuSheet
' First we create a PopUp menu with the name of the value in B2
With Application.CommandBars.Add(ThisWorkbook.Sheets("MenuSheet"). _
Range("B2").Value, msoBarPopup, False, True)
Do Until IsEmpty(MenuSheet.Cells(Row, 1))
With MenuSheet
MenuLevel = .Cells(Row, 1)
Caption = .Cells(Row, 2)
MacroName = .Cells(Row, 3)
Divider = .Cells(Row, 4)
FaceId = .Cells(Row, 5)
NextLevel = .Cells(Row + 1, 1)
End With
Select Case MenuLevel
Case 2 ' A Menu Item
If NextLevel = 3 Then
Set MenuItem = .Controls.Add(Type:=msoControlPopup)
Else
Set MenuItem = .Controls.Add(Type:=msoControlButton)
MenuItem.OnAction = ThisWorkbook.Name & "!" & MacroName
End If
MenuItem.Caption = Caption
If FaceId <> "" Then MenuItem.FaceId = FaceId
If Divider Then MenuItem.BeginGroup = True
Case 3 ' A SubMenu Item
Set SubMenuItem = MenuItem.Controls.Add(Type:=msoControlButton)
SubMenuItem.Caption = Caption
SubMenuItem.OnAction = ThisWorkbook.Name & "!" & MacroName
If FaceId <> "" Then SubMenuItem.FaceId = FaceId
If Divider Then SubMenuItem.BeginGroup = True
End Select
Row = Row + 1
Loop
End With
End Sub
Sub WB_RDB_RemovePopUp()
On Error Resume Next
Application.CommandBars(ThisWorkbook.Sheets("MenuSheet").Range("B2").Value).Delete
On Error GoTo 0
End Sub
Sub WB_RDB_AddMenu()
Dim MenuItem As Object
WB_RDB_DelMenu
With CommandBars("Worksheet Menu bar").Controls.Add(Type:=msoControlButton, temporary:=True, before:=3)
.Style = msoButtonCaption
.Caption = "My Menu"
.TooltipText = "My favorite macro's"
.OnAction = ThisWorkbook.Name & "!WB_RDB_DisplayPopUp"
.Tag = "TagMenu1"
End With
End Sub
Sub WB_RDB_DelMenu()
On Error Resume Next
Application.CommandBars.FindControl(Tag:="TagMenu1").Delete
On Error GoTo 0
End Sub
Bạn vào trong phần file type trong My Computer để đổi lại. Ở cửa sổ My Computer hoặc Windows Explorer chọn Tools --> Folder Options --> chọn tab file types, chọn các định dạng mở rộng của bộ office (.xls của excel, .doc của word...) rồi nhấn vào change --> tìm đến chương trình cần liên kết (nhớ chọn vào check box "Always used the selected...Hiện nay tôi đang cài cả hai phiên bản office 2003 và 2007. Khi đó phiên bản 2007 sẽ được mặc định sử dụng trên máy. Cho tôi hỏi nếu muốn cho bộ office 2003 chạy mặc định thì làm thế nào???
các bạn giúp mình vẽ biểu đồ cột trong excel 2007 sao cho các cột liền kề nhau.