Xin hỏi về Code check 1 checkbox trong 1 file khác.

[sakuraa]

Chào các cao thủ GPE,
Đầu tiên xin được nói em là Gà chính hạng, hic...
Nhờ các cao thủ chỉ em cách làm vấn đề như sau:

* Dữ kiện đầu:
- Có 2 file excel "A.xlx" & "B.xls" ở 1 ổ cố định D:\ chẳng hạn.
- Trong file A có 1 button "CommandButton1"
- Trong file B có 1 checkbox "CheckBox1"

* Mong muốn:
- Click vào button trong file A, thì open file B & check(value checkbox = true) chọn vào checkbox trong B !

Nghe thì đơn giản, mà sao e làm nó báo lỗi hoài
Thanks kiu vinamilk...

 

[Hai Lúa Miền Tây]

Chào các cao thủ GPE,
Đầu tiên xin được nói em là Gà chính hạng, hic...
Nhờ các cao thủ chỉ em cách làm vấn đề như sau:

* Dữ kiện đầu:
- Có 2 file excel "A.xlx" & "B.xls" ở 1 ổ cố định D:\ chẳng hạn.
- Trong file A có 1 button "CommandButton1"
- Trong file B có 1 checkbox "CheckBox1"

* Mong muốn:
- Click vào button trong file A, thì open file B & check(value checkbox = true) chọn vào checkbox trong B !

Nghe thì đơn giản, mà sao e làm nó báo lỗi hoài
Thanks kiu vinamilk...

Bạn thử chạy code sau nhé:

Private Sub CommandButton1_Click()
Application.Workbooks.Open ("C:\Users\Le Phat Dom\Desktop\Test\B.xls") [B][COLOR=Green]' Duong dan den file B cua ban[/COLOR][/B]
Workbooks("B").Sheets("Sheet1").CheckBox1.Value = True

End Sub

 

[sakuraa]

Bạn thử chạy code sau nhé:

Private Sub CommandButton1_Click()
Application.Workbooks.Open ("C:\Users\Le Phat Dom\Desktop\Test\B.xls") [B][COLOR=Green]' Duong dan den file B cua ban[/COLOR][/B]
Workbooks("B").Sheets("Sheet1").CheckBox1.Value = True

End Sub

Cảm ơn bạn lắm lắm....
Mà ko hiểu sao mình chạy nó vẫn báo lỗi ...
Run-time error "9":
Subscript out of range.

Bạn coi lại dùm mình ha, hic...

 

[ndu96081631]

Cảm ơn bạn lắm lắm....
Mà ko hiểu sao mình chạy nó vẫn báo lỗi ...
Run-time error "9":
Subscript out of range.

Bạn coi lại dùm mình ha, hic...

Code này rất bình thường mà bạn ---> Bấm nút Debug xem nó báo lỗi dòng nào?
Mà trong hình thì tôi thấy code của bạn hơi kỳ kỳ... ngay chổ D:\B.xls ấy ---> Dường như dấu \ bị đổi thành dấu gì gì

 

[sakuraa]

Private Sub CommandButton1_Click()
Application.Workbooks.Open ("C:\Users\Le Phat Dom\Desktop\Test\B.xls") [B][COLOR=Green]' Duong dan den file B cua ban[/COLOR][/B]
Workbooks("B[COLOR=red].xls[/COLOR]").Sheets("Sheet1").CheckBox1.Value = True

End Sub

Hic, mình quên.. thêm vào full-name của file thì ok rùi.
誠にご感謝ね.. (cám ơn bạn rất nhiều)

 

[ndu96081631]

Hic, mình quên.. thêm vào full-name của file thì ok rùi.
誠にご感謝ね.. (cám ơn bạn rất nhiều)

Bạn dùng cách này sẽ khỏi cần suy nghĩ đến đuôi file

Private Sub CommandButton1_Click()
  With Workbooks.Open("D:\B.xls")
    .Sheets("Sheet1").CheckBox1.Value = True
  End With
End Sub

Nguyên nhân gây lỗi này rất tinh tế, xem tại đây: Đố vui về VBA!

 

[sakuraa]

Code này rất bình thường mà bạn ---> Bấm nút Debug xem nó báo lỗi dòng nào?
Mà trong hình thì tôi thấy code của bạn hơi kỳ kỳ... ngay chổ D:\B.xls ấy ---> Dường như dấu \ bị đổi thành dấu gì gì

Cám ơn anh, tại e quên tên file nên bị "nhu" chút
Còn dấu "\" thành dấu "￥" là do máy công ty xài keyboard Japan nên nó bị vậy thui, ko sao anh..
Thanks.