EXG06 - Xây dựng add-in, thẻ lệnh quản lý công việc trên Excel

Chào bạn bạn có thể đẩy file lên được không?

chào bạn bạn phải gắn ra 1 sheets rồi if điều kiện đó nếu đúng thì dẫn nút bấm hay sự kiện cho ribon không thì có thể chuyển nút sang trạng thái không có gì.

Mình muốn xin ví dụ 1 đoạn code để 1 ribbon ví dụ tên là ribbon1 chuyển sang trạng thái không có gì đó thầy.

Chào bạn đây là một dạng bạn nhé:

Sub FCC(control As IRibbonControl)
    If TH.Range("D1").Value = "X" Then
        MsgBoxUni CHUYENMA("Vui lofng ddawng nhaajp vowsi quyeenf nhaajp vaf moji quyefn")
    ElseIf TH.Range("D1").Value = "N" Then
         BCC.Activate
    Else
         BCC.Activate
    End If
     anview Range("a4:z4")
    Application.StatusBar = CHUYENMA("Bajn ddang lafm vieejc owr barng chaasm coong")
End Sub

sao cả 2 deu activate vậy thầy

chào bạn với D1 = "X" mình đưa ra thoong báo, còn các quyền khác mình vẫn cho vào.

BCC la ten ribbon hay ten id cua ribbon hay ten tag cua ribbon vay thay

BCC là tên một sheets bạn

Ví dụ mình có 1 ribbon id là ribbon1 tag là ribbon_tag. Nếu Ô A1.value = "F" thì actice ribbon1 còn không thì ẩn ribbon1 mình dùng code như thế nào vậy thầy

Chào bạn chỉ có thể để ribon đó và khong làm gì thôi bạn nhé.

sao khi mình gán địa chỉ là ổ C thì nó báo lỗi còn ổ D thì nó tạo binh thuong vay thay, co cach nao gán vô ổ C duoc ko thây

Chào bạn bạn thử check file trước nhé xem có file trong ổ c không?

Option Explicit
Sub CheckFileExists()
Dim strFileName As String
Dim strFileExists As String
    strFileName = "C:\text"
    strFileExists = Dir(strFileName)
   If strFileExists = "" Then
        MsgBox "The selected file doesn't exist"
    Else
        MsgBox "The selected file exists"
    End If
End Sub

chương trình này nó tạo file mới mà thầy

mà mình xin đoạn code đọc dữ liệu file txt để dán vô ô A1 luôn duoc không thầy

Public Const UTF_8_ENCODING = "UTF-8"
Sub readFileExample1()
    Dim fileName As String
    Dim content As String
    fileName = "C:\TuanBa\NewTextDocument.txt"
    content = readFile(fileName, UTF_8_ENCODING)
    Cells(1, "A").Value = content
End Sub
Function readFile(fileName As String, charSet As String) As String
    Dim objStream As Object
    Set objStream = CreateObject("ADODB.Stream")
     
    objStream.charSet = charSet
    objStream.Open
     
    objStream.LoadFromFile (fileName)
    readFile = objStream.ReadText()
     
    Set objStream = Nothing
End Function

Cam on thầy

Cảm ơn bạn, chúc bạn học tốt

mình muốn làm tính năng đó là nếu ô A1 = T thì ẩn Tab id ="Toan_9" thì mình làm như thế nào vậy thầy

Chào bạn phần này excel tự động bạn nhé nên không điều chỉnh được.

Thầy cho mình hỏi sau khi mình dẫ làm xong 1 file đầy đủ các tool mình cần, giờ mình muốn add toàn bộ các tool này vô 1 file khác mặc nhiên mở của excel mình cần làm gì ạ. Giống tạo một cái tool add vô trong excel đó ạ

Chào bạn phần này có thể mình sẽ bổ xung sau bạn nhé, phần này là xây dựng add ins cho excel giống Kutools bạn đang sử dụng