ghép giá trị các ô vẫn giữ nguyên định dạng mũ !

[hoangdiephb]

Tôi muốn ghép tex của 2 ô, giả sử A1 và B1, nhưng ở ô B1 là định dạng mũ, không thể dùng hàm concatenate được, có cao thủ nào cao thủ hơn tôi không xin chỉ giáo giùm, tôi xin cảm ơn

 

[ndu96081631]

Tôi muốn ghép tex của 2 ô, giả sử A1 và B1, nhưng ở ô B1 là định dạng mũ, không thể dùng hàm concatenate được, có cao thủ nào cao thủ hơn tôi không xin chỉ giáo giùm, tôi xin cảm ơn

Bài này không dễ ăn đâu ---> E rằng không có "cửa" dùng công thức, mà ngay cả nếu dùng code cũng không đơn giản tí nào

 

[MinhCong]

Tôi muốn ghép tex của 2 ô, giả sử A1 và B1, nhưng ở ô B1 là định dạng mũ, không thể dùng hàm concatenate được, có cao thủ nào cao thủ hơn tôi không xin chỉ giáo giùm, tôi xin cảm ơn

Bạn dùng thử cái này xem sao, không biết có đúng ý chưa?

Sub Noichuoi()
Dim i, j, n As Long
  With Sheet1
    For n = 1 To 8
      i = Len(.Cells(n, 1))
      j = Len(.Cells(n, 2))
      .Cells(n, 3).FormulaR1C1 = "=IF(RC[-2]="""","""",RC[-2]&RC[-1])"
      .Cells(n, 3).Copy
      Cells(n, 3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
      With Cells(n, 3).Characters(Start:=i + 1, Length:=j).Font
        .Superscript = True
      End With
        Cells(n, 3).Offset(1).Select
    Next
  End With
End Sub

 

[hoangdiephb]

Bạn dùng thử cái này xem sao, không biết có đúng ý chưa?

Sub Noichuoi()
Dim i, j, n As Long
With Sheet1
For n = 1 To 8
i = Len(.Cells(n, 1))
j = Len(.Cells(n, 2))
.Cells(n, 3).FormulaR1C1 = "=IF(RC[-2]="""","""",RC[-2]&RC[-1])"
.Cells(n, 3).Copy
Cells(n, 3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With Cells(n, 3).Characters(Start:=i + 1, Length:=j).Font
.Superscript = True
End With
Cells(n, 3).Offset(1).Select
Next
End With
End Sub

Cảm ơn bạn Minh Công đã giúp đỡ, xin bạn chỉ giáo giùm xem cách sử dụng code đó như thế nào với, chứ loại cao thủ mini như mình nhìn vào đó thì Pótay.com
Xin chân thành cảm ơn ban!

 

[MinhCong]

Cảm ơn bạn Minh Công đã giúp đỡ, xin bạn chỉ giáo giùm xem cách sử dụng code đó như thế nào với, chứ loại cao thủ mini như mình nhìn vào đó thì Pótay.com
Xin chân thành cảm ơn ban!

1/Bạn mở File excel lên, bấm Alt+F11 -> Vào insert Module -> Copy đoạn code trên và dán vào.
Đoạn code trên đúng cho file Bạn đưa lên, vị trí khác nhau (tức không phải là A1 và B1 như file Bạn gửi lên thì phải thay đổi lại code)
2/Trong sheet Bạn cần ghép chuỗi -> Vào view -> Toolbars -> chọn Form -> Bấm chọn nút Button để ra ngoài vẽ 1 cái nút. Lúc này sẽ xuất hiện 1 hộp thoại Assign marco -> Bạn bấm chọn chữ noichuoi -> OK
Ra ngoại bấm nút để xem kết quả

 

[hoangdiephb]

Cảm ơn MinhCong!

Cảm ơn bạn MinhCong đã nhiệt tình giúp đớ, nhưng chẳng biết mình làm sai chỗ nào mà nó lại không ra được, xin bạn chỉ giáo giùm.
Rất cảm ơn các bạn !

 

[vu_ctn]

Cảm ơn bạn MinhCong đã nhiệt tình giúp đớ, nhưng chẳng biết mình làm sai chỗ nào mà nó lại không ra được, xin bạn chỉ giáo giùm.
Rất cảm ơn các bạn !

doạn code cua bác Minh Công chạy rất ok, bạn định dạng lai ô C1 là General. chúc bạn thành công

 

[hoangdiephb]

1/Bạn mở File excel lên, bấm Alt+F11 -> Vào insert Module -> Copy đoạn code trên và dán vào.
Đoạn code trên đúng cho file Bạn đưa lên, vị trí khác nhau (tức không phải là A1 và B1 như file Bạn gửi lên thì phải thay đổi lại code)
2/Trong sheet Bạn cần ghép chuỗi -> Vào view -> Toolbars -> chọn Form -> Bấm chọn nút Button để ra ngoài vẽ 1 cái nút. Lúc này sẽ xuất hiện 1 hộp thoại Assign marco -> Bạn bấm chọn chữ noichuoi -> OK
Ra ngoại bấm nút để xem kết quả

Cảm ơn Minh Cong, mình đã làm được rồi, nhưng làm cách nào để di chuyển được nút nối chỗi đi ra chỗ khác, hoạc gán cho nó phím tắt nhỉ Minh Cong !

 

[vu_ctn]

Bạn nhấp phải vào nut noicuoi , cửa sổ hiện lện dấu nháy để move nút , bạn chỉ việt nhấp và nhả chuột vào vị trí nào bạn muốn

 

[yeudoi]

Cảm ơn Minh Cong, mình đã làm được rồi, nhưng làm cách nào để di chuyển được nút nối chỗi đi ra chỗ khác, hoạc gán cho nó phím tắt nhỉ Minh Cong !

Sub Noichuoi()
Dim i, j, n As Long
With Sheet1
For n = 1 To 8
i = Len(.Cells(n, 1))
j = Len(.Cells(n, 2))
.Cells(n, 3).FormulaR1C1 = "=IF(RC[-2]="""","""",RC[-2]&RC[-1])"
.Cells(n, 3).Copy
Cells(n, 3).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With Cells(n, 3).Characters(Start:=i + 1, Length:=j).Font
.Superscript = True
End With
Cells(n, 3).Offset(1).Select
Next
End With
End Sub

Trong đoạn code trên thì các số 3 được tô màu đỏ là số cột tính từ cột 1 vậy bạn muốn di chuyển đến đâu thì đổi số cột đó.
Còn n là dòng trong code là cho n từ dòng 1 đến dòng 8 muốn chuyển dòng nào thì nay số vào.
Muốn làm phím tắt thì vào tools/macro/macros chọn code muốn gán phím tắt bấm options

 

[hoangdiephb]

Chân thành cảm ơn tất cả các bạn đã giúp đỡ nhiệt tình

 

[xuanhienlx]

Nếu bạn chỉ cần định dạng mủ là 2,3 thì chỉ cần vào insert sybol rồi kiếm ký tự mũ 2,3 (font là :Trebuchet MS) còn định dạng mũ luôn thì ... các bạn trên đã viết code