Khắc phục lỗi Subcrip out of ranger (1 người xem)

[My 9914]

Các cao nhân có thể giúp em cách khắc phục lỗi này được không ạ, em tìm hiểu cách khắc phục biết được là có thể một phần do cách đưa file/ khai báo không đúng mảng cần lấy, tuy nhiên vẫn không khắc phục được lỗi sai ạ
Em mới chân ướt chân ráo, nên cần phải học hỏi nhiều hơn, mong nhận được chỉ giáo ạ.

 

[ptm0412]

Sheet "Material Thermal Faxar" có tồn tại không, hay có gõ đúng tên không?

 

[My 9914]

Sheet này có tồn tại, tên mình copy qua nên cũng đúng ạ

 

[HieuCD]

View attachment 255818View attachment 255822
Các cao nhân có thể giúp em ách khắc phục lỗi này được không ạ, em tìm hiểu cách khắc phục biết được là có thể một phần do cách đưa file/ khai báo không đúng mảng cần lấy, tuy nhiên vẫn không khắc phục được lỗi sai ạ
Em mới chân ướt chân ráo, nên cần phải học hỏi nhiều hơn, mong nhận được chỉ giáo ạ.

viết lại
set ws_1=worksheets("Material Thermal Faxar")

 

[My 9914]

viết lại
set ws_1=worksheets("Material Thermal Faxar")

Dạ, nó vẫn báo lỗi hệt như trên ạ

 

[HieuCD]

Dạ, nó vẫn báo lỗi hệt như trên ạ
View attachment 255823

Có thể tên sheet "Material Thermal Faxar" sai
Viết lại kiểu khác
viết lại
set ws_1=sheet1
hay
set ws_1=sheet2 gì gì đó

 

[befaint]

vẫn báo lỗi

Lỗi là đúng rồi.

Set workbook vào chỗ workbooks.open ấy.

Chép code hết lên đây. Cái hình xấu điên xấu đổ có làm ăn gì được đâu.

 

[ptm0412]

Lỗi là đúng rồi.
Set workbook vào chỗ workbooks.open

Nếu Workbook.Open không lỗi thì workbook vừa mở là active workbook, câu lệnh tiếp theo không có workbook dẫn đầu thì bị hiểu là activeworkbook, chưa bị lỗi

 

[befaint]

Nếu Workbook.Open không lỗi thì workbook vừa mở là active workbook, câu lệnh tiếp theo không có workbook dẫn đầu thì bị hiểu là activeworkbook, chưa bị lỗi

Vậy đáp án là bài #3 thôi anh.

 

[My 9914]

Lỗi là đúng rồi.

Set workbook vào chỗ workbooks.open ấy.

Chép code hết lên đây. Cái hình xấu điên xấu đổ có làm ăn gì được đâu.

Dạ, em xin bổ sung thêm ạ, em cảm ơn bạn đã chỉ ạ.
------------------------------
------------------------------
Sub Example()
Dim wb As String
Dim ws, ws_1 As Worksheet

With Application
.Calculation = xlCalculationManual
.EnableEvents = True
.ScreenUpdating = False
End With
'-------------
'-------------
wb = ActiveWorkbook.Name
Set ws = Workbooks(wb).Worksheets("Sheet1")

Workbooks.Open Filename:="J:\Production Share\Data Entry\AHP\Material & Plan Non RFID\Ke hoach don hang theo cell - AD .xlsb", UpdateLinks:=1, ReadOnly:=True
Set ws_1 = Workbooks("Ke hoach don hang theo cell - AD .xlsb").Worksheets("Material Thermal Faxar")

ws.Cells(1, 1) = ws_1.Cells(15, 3)
'-------------
'-------------
With Application
.Calculation = xlCalculationManual
.EnableEvents = True
.ScreenUpdating = False
End With
End Sub

 

[befaint]

Làm sao đặt được tên File có khoảng trắng ở cuối cùng hay vậy?

 

[ptm0412]

Làm sao đặt được tên File có khoảng trắng ở cuối cùng hay vậy?

View attachment 255834

Bình thường mờ.

 

[befaint]

Bình thường mờ.

View attachment 255835

Anh gửi file đó lên em xem với.

 

[truongvu317]

Bình thường mờ.

View attachment 255835

thì nó vốn bình thường mà bác, ký tự trắng thì có bị phạm "húy" trong đặt tên đâu, bác đặt là "A B C .xls " còn được.

 

[ptm0412]

Anh gửi file đó lên em xem với.

Mở được bình thường mờ

 

[befaint]

Mở được bình thường mờ

Anh gửi file đó lên em xem với.

Cái hình em không tính. Em còn đặt được tên file không có cái gì mà nhìn luôn ấy.

Vậy nên nếu đúng là anh đặt được tên file có khoảng trống ở cuối cùng thì gửi lên em tham khảo với.

 

[ptm0412]

Anh gửi file đó lên em xem với.

Cái hình em không tính. Em còn đặt được tên file không có cái gì mà nhìn luôn ấy.

Vậy nên nếu đúng là anh đặt được tên file có khoảng trống ở cuối cùng thì gửi lên em tham khảo với.

Từ thời DOS đã đặt được tên file "không có cái gì mà nhìn" rồi.
File tải từ GPE về, chỉ sửa thêm khoảng trắng thôi

 

[VetMini]

Lỗi là đúng rồi.
...

Nhìn kiểu làm ăn ẩu tả như vầy, giúp không có hứng.

 

[ptm0412]

Từ thời DOS đã đặt được tên file "không có cái gì mà nhìn" rồi.
File tải từ GPE về, chỉ sửa thêm khoảng trắng thôi

File mới tạo 22/03/2021 18:36

 

[My 9914]

Làm sao đặt được tên File có khoảng trắng ở cuối cùng hay vậy?

View attachment 255834

file này của bộ phận khác, mình chỉ làm báo cáo th ạ

 

[befaint]

File mới tạo 22/03/2021 18:36
View attachment 255850

(Không tính dùng CMD Dos, PowerShell).

Trên máy tính của em (Windows 10 64 bit), khi 'rename' thêm khoảng trắng (gõ phím spacebar) vào cuối tên file, rồi gõ Enter thì kết quả tên file đó tự động được loại bỏ khoảng trắng.

Không biết trên máy tính của anh có thêm khoảng trắng vào cuối tên file được theo một cách thông thường không ạ?

 

[ptm0412]

Không biết trên máy tính của anh có thêm khoảng trắng vào cuối tên file được theo một cách thông thường không ạ?

Rất bình thường nhé, Win 10, 64 bit

 

[befaint]

Rất bình thường nhé, Win 10, 64 bit

Anh bỏ check dòng như hình để cho Explorer ở dạng 'bình thường' rồi thực hiện xem được không anh?

 

[ptm0412]

Anh bỏ check dòng như hình để cho Explorer ở dạng 'bình thường' rồi thực hiện xem được không anh?

Nếu không show file name extension thì không được. Mà theo tôi, có show lên mới là bình thường.

 

[befaint]

theo tôi,

Theo ai đó có phần hơi chủ quan.

Theo mặc định của 'nó' đi anh.

 

[ptm0412]

Nếu không thấy đuôi, các file như hình sẽ giống nhau nêu không nới rộng cột



Khi làm việc trên Word, Excel và bất cứ phần mềm nào, không phân biệt được dạng của file trên application title. Nhất là Excel. Tôi cần thấy cái đó và chắc nhiều "ai đó" cũng cần thấy

 

[truongvu317]

ôi cần thấy cái đó và chắc nhiều "ai đó" cũng cần thấy

hehe, với phả anh book1.exe thì ngon cơm cả buổi bác nhể.

 

[befaint]

Nếu không thấy đuôi, các file như hình sẽ giống nhau nêu không nới rộng cột

View attachment 255909

Khi làm việc trên Word, Excel và bất cứ phần mềm nào, không phân biệt được dạng của file trên application title. Nhất là Excel. Tôi cần thấy cái đó và chắc nhiều "ai đó" cũng cần thấy

Không phải tự nhiên windows explorer mặc định không hiện đuôi file đâu anh.
Những ai cần làm gì tới cái đuôi đó, có khả năng kiểm soát được cái đuôi thì mới hiển thị ra.
Ai không rành như anh mà động đả vào đuôi xinh xinh ấy, lỡ tay làm mất đuôi là đứt cước ngay.
Những ai làm việc với máy tính nhiều, nhất là nhiều với Excel nữa thì chỉ cần nhìn vào icon file là biết liền. Nếu không chắc chắn thì click phải chuột vào file, tay còn lại ấn phím R là thấy liền. Thấy rồi ấn ESC tắt đi. Siêu nhanh khổng lồ luôn, mà tỏ ra rất nguy hiểm nữa.

 

[batman1]

Khi làm việc trên Word, Excel và bất cứ phần mềm nào, không phân biệt được dạng của file trên application title. Nhất là Excel. Tôi cần thấy cái đó và chắc nhiều "ai đó" cũng cần thấy

Tôi thì từ khi dùng Windows XP cho tới nay Windows 10 luôn luôn tôi có "hiện định dạng" tập tin.