Đổi tất cả dữ liệu sang dạng chuỗi trong vba (1 người xem)

[teaklee]

Chào mọi người, em có viết 1 hàm để truyền dữ liệu từ Sheet 1 qua sheet 2 khi người dùng chọn 1 MÃ Hàng trong sheet 2

With ShTrangChu.Range("g3:g" & [f65000].End(3).Row)
        .Value = "=IF(RC[-1]=0,0,HLOOKUP(R2C2,Data!R2C3:R180C250,MATCH(RC[-1],Data!R2C2:R198C2,0),0))"
        .Value = .Value
    End With

Em muốn chèn dấu " ' " ( nháy đơn) vào tất cả các cell, để đảm bảo khi in số liệu bên Sheet 2 không bị nhảy lung tung (số liệu dạng 02 - 07 (STT) bị hiểu thành ngày tháng, 05 bị hiểu là 5, tệ hơn 05 bị hiểu thành dạng ngày tháng).
Nhưng khổ nỗi em Format Cell thành dạng Text thì nó lại hiện nguyên cái công thức em truyền vào
=IF(RC[-1]=0,0,HLOOKUP(R2C2,Data!R2C3:R180C250,MATCH(RC[-1],Data!R2C2:R198C2,0),0))
Mọi người có cách nào giúp em với
Em chèn =IF(RC[-1]=0,0,HLOOKUP(R2C2,Data!R2C3:R180C250,MATCH(RC[-1]," ' "&Data!R2C2:R198C2,0),0))
vào sau .Value= thì sau nháy đơn nó hiểu thành ghi chú hết.
Mong các bác giúp em

 

[ndu96081631]

Chào mọi người, em có viết 1 hàm để truyền dữ liệu từ Sheet 1 qua sheet 2 khi người dùng chọn 1 MÃ Hàng trong sheet 2

With ShTrangChu.Range("g3:g" & [f65000].End(3).Row)
        .Value = "=IF(RC[-1]=0,0,HLOOKUP(R2C2,Data!R2C3:R180C250,MATCH(RC[-1],Data!R2C2:R198C2,0),0))"
        .Value = .Value
    End With

Em muốn chèn dấu " ' " ( nháy đơn) vào tất cả các cell, để đảm bảo khi in số liệu bên Sheet 2 không bị nhảy lung tung (số liệu dạng 02 - 07 (STT) bị hiểu thành ngày tháng, 05 bị hiểu là 5, tệ hơn 05 bị hiểu thành dạng ngày tháng).
Nhưng khổ nỗi em Format Cell thành dạng Text thì nó lại hiện nguyên cái công thức em truyền vào
=IF(RC[-1]=0,0,HLOOKUP(R2C2,Data!R2C3:R180C250,MATCH(RC[-1],Data!R2C2:R198C2,0),0))
Mọi người có cách nào giúp em với
Em chèn =IF(RC[-1]=0,0,HLOOKUP(R2C2,Data!R2C3:R180C250,MATCH(RC[-1]," ' "&Data!R2C2:R198C2,0),0))
vào sau .Value= thì sau nháy đơn nó hiểu thành ghi chú hết.
Mong các bác giúp em

Thử vầy:

.Value = "'" & .Value

 

[teaklee]

Được rồi bác, thank bác nhiều. Vậy mà em nghĩ mãi không ra