Hỏi nhanh - đáp nhanh

[boyxin]

Anh Boyxin code của anh chay rất nhanh, nhưng file bị động anh à. Nếu tại sheet data em thêm cột 7 và ko muốn sumif cột 7. Nhưng code của anh vẫn sumif luôn. Và nếu như em chỉ muốn sumif cột 2,4,6 thôi.
Code của anh em đọc mà ko hiểu, nên ko sửa theo ý mình được.

Thân!

Hi, sửa chỗ này nè (sumif từ cột 1 đến ...)
For i = 1 To Rng.Columns.Count - 1 sửa thành: For i = 2 To 6 step 2

Sub GPE_SUMIF()
Dim Rng As Range, Tmp As Range, clls As Range
[A5].CurrentRegion.Offset(1).ClearContents
Application.ScreenUpdating = False
Set Rng = Data.[A1].CurrentRegion
    ActiveWorkbook.Names.Add name:="Rng", RefersToR1C1:=Rng.Resize(, 1)
    Rng.Resize(, 1).AdvancedFilter Action:=2, CopyToRange:=[A5], Unique:=True
Set Tmp = Range([a6], [a65535].End(xlUp))
For i = 2 To 6 Step 2
    ActiveWorkbook.Names.Add name:="sRng", RefersToR1C1:=Rng.Resize(, 1).Offset(, i)
    Tmp.Offset(, i).FormulaR1C1 = "=SUMIF(Rng,RC1,sRng)"
    Tmp.Offset(, i) = Tmp.Offset(, i).Value
Next
Application.ScreenUpdating = True
    ActiveWorkbook.Names("Extract").Delete
    ActiveWorkbook.Names("Rng").Delete
    ActiveWorkbook.Names("sRng").Delete
End Sub

 

[ZzNHCzZ]

Định dạng Dữ Liệu

Xin chào anh chị!
Em có 1 Form Tỷ Giá. Khi nhập và Click nút Save thì Dữ Liệu sẽ được truyền vào Bảng excel.
Nhưng dữ liệu lại là dạng text.
Cho em hỏi có cách nào để định dạng lại được không ạ.

Em xin gửi File anh xem và góp ý giúp em ạ
Em cám ơn rất nhiều.

Thân!

 

[salam]

Theo mình thì nhân với 1 là được.

Range("C" & n + 2).Value = txtRoe * 1

 

[ZzNHCzZ]

Theo mình thì nhân với 1 là được.

Range("C" & n + 2).Value = txtRoe * 1

Thế còn Date thì sao anh? Range("A" & n + 2).Value = txtdate * 1 bị báo lổi
Cột A vẫn ở dạng text.

Thân!

 

[salam]

Bạn dùng thử xem.

        Range("A" & n + 2).Value = DateSerial(Year(txtDate), Month(txtDate), Day(txtDate)) 'From Mr ThuNghi
        Range("B" & n + 2).Value = txtCur
        Range("C" & n + 2).Value = txtRoe * 1

 

[ZzNHCzZ]

Icon Excel

Em đang tạo 1 số form có các nút lệnh. Em muốn gắn thêm các icon cho sinh động.
Cho em hỏi làm sao gắn icon vào button. Các icon của em excel ko đọc được (ko biết vì sao).
Anh chị nào có bộ icon thì cho em xin.
Em cám ơn!

 

[doanthuc]

sao mình đánh số vào excell 2007 thì k đánh đươc bình thường. Ví dụ: muốn đánh số 5 thì phải gõ là 50 thì no mới hiện ra số 5 còn gõ 5 thì nó hiện ra số 1. Giúp với thank you

 

[salam]

sao mình đánh số vào excell 2007 thì k đánh đươc bình thường. Ví dụ: muốn đánh số 5 thì phải gõ là 50 thì no mới hiện ra số 5 còn gõ 5 thì nó hiện ra số 1. Giúp với thank you

Bạn vào excel options/advanced bỏ chọn mục automatically insert a decimal point đi hoặc chọn 0 là được.

 

[thuydhhp]

Các anh chị ơi cho em hỏi chút xíu! trong một phần văn bản excel của em khi để bình thường thì không có chữ nhưng khi soi hoặc in ra lại có chữ ở chỗ đó! giúp em với!!!!

 

[Nguyễn Thị Thắm]

Trong Word, bạn right click vào trường số tiền lương, chọn Toggle Fieldcode, rồi bạn nhập thêm đoạn sau: "\# #,##0" vào cuối của Field đó, kết quả bạn sẽ thấy như thế này:

{MERGEFIELD tienluong \# #,##0 }

bạn right click vào trường số tiền lương, chọn Toggle Fieldcode, bạn sẽ được số tiền với format như sau: 5,000,000

Bạn ơi cho mình hỏi, mình làm giống như cách bạn chỉ nhưng làm lần đầu thì mình làm ra, nhưng khi mình tắt mình làm lại lần hai nó không ra.
Bạn có thể gửi về Email cho mình nha: nguyenthithặm@gmail.com

 

[incoi]

Không mở được đường link từ Excel.
Mình tạo đường link trong Excel. Ví dụ: www.giaiphapexcel.com. Tuy nhiên, khi click vào đường link thì Excel báo lỗi là: Cannot download the information you requested.
Mình không hiểu lỗi này là do Excel của mình bị lỗi hay là do nguyên nhân nào khác (vì mạng vẫn vào được bình thường).
Bạn nào đã gặp vấn đề này thì tư vấn giúp mình với!

 

[huuthang_bd]

Không mở được đường link từ Excel.
Mình tạo đường link trong Excel. Ví dụ: www.giaiphapexcel.com. Tuy nhiên, khi click vào đường link thì Excel báo lỗi là: Cannot download the information you requested.
Mình không hiểu lỗi này là do Excel của mình bị lỗi hay là do nguyên nhân nào khác (vì mạng vẫn vào được bình thường).
Bạn nào đã gặp vấn đề này thì tư vấn giúp mình với!

Bình thường thì sẽ làm được. Bạn gửi file của bạn lên đi, nếu không thì không biết được nguyên nhân đâu bạn.

 

[ahntuan77]

Có ai giúp mình với!
Mình tạo link trong excel nhưng khi mở nó báo " operations has been cancel due to restrictions"
ai sửa được báo lại email ahntuan77@yahoo.com. cám ơn anh em nhiều

 

[ndu96081631]

Có ai giúp mình với!
Mình tạo link trong excel nhưng khi mở nó báo " operations has been cancel due to restrictions"
ai sửa được báo lại email ahntuan77@yahoo.com. cám ơn anh em nhiều

Xem cách khắc phục tại đây:
http://www.giaiphapexcel.com/forum/showthread.php?t=11641
Bài số #1

 

[badboydontask1]

Bạn ơi xử lý giúp bài này với.

Trong file đính kèm nhé

 

[ndu96081631]

Trong file đính kèm nhé

Ủa... giãi rồi mà ta! Sao giờ hỏng thấy
???
Gữi lại đây

 

[hoangthuantp]

Em là thành viên mới tinh đây: học tập Excel cũng đang bập bẹ, mong các anh chị chỉ giúp: EM có câu hỏi này: ah trong bảng tính của em có rất nhiều các ô đã được định nghĩa tên (Define name) Nhưng giờ em muốn xóa nó thì làm thế nào các anh chị nhỉ? em cũng đã vào trong hộp Insert/name/Define để xóa nhưng xóa mỗi lần chỉ được một tên thôi. Làm sao mà xóa một lần được hết được. Mong nhận được hướng dẫn từ các anh chị!

 

[cadafi]

Em là thành viên mới tinh đây: học tập Excel cũng đang bập bẹ, mong các anh chị chỉ giúp: EM có câu hỏi này: ah trong bảng tính của em có rất nhiều các ô đã được định nghĩa tên (Define name) Nhưng giờ em muốn xóa nó thì làm thế nào các anh chị nhỉ? em cũng đã vào trong hộp Insert/name/Define để xóa nhưng xóa mỗi lần chỉ được một tên thôi. Làm sao mà xóa một lần được hết được. Mong nhận được hướng dẫn từ các anh chị!

Chào bạn,
Vấn đề bạn nêu ra đã có rất nhiều trên diễn đàn. Bạn chép đoạn Macro này vào Module:

Sub XoaName()
Dim mName As Name
 On Error Resume Next
For Each mName In ActiveWorkbook.Names
  mName.Delete
Next
End Sub

Sau đó ấn Alt+F8 để kích Macro này chạy.

Lưu ý: code sẽ xóa sạch tất cả cá Name đấy!

Các link để bạn tham khảo thêm:

http://www.google.com.vn/custom?dom...ode+xóa+name&sitesearch=www.giaiphapexcel.com

 

[Po_Pikachu]

Bạn có thể tìm kiếm 1 bài trong này và copy code đó vào VBA rồi chạy chúng thì sẽ có thể xóa hết tất cả các Name trên. http://www.google.com.vn/custom?dom...m&q=xóa+name&sitesearch=www.giaiphapexcel.com Nếu bạn không biết cách copy code + chạy VBA như thế nào thì làm theo hướng dẫn sau: +Bạn copy đoạn code đó trước rồi vào file Excel cần xóa name +Nhấn Alt + F11, sau khi cửa sổ VBA hiện ra bạn nhấp phải chuột vào tên Sheet -> chọn Insert -> Module. +Sau khi 1 trang trắng hiện ra -> bạn Paste đoạn code vào đó. +Tiếp theo trở lại cửa sổ Excel (cửa sổ bảng tính Excel ấy!) nhấn Alt + F8 -> Chọn tên Macro vừa Paste lúc nãy -> chọn Run để thực thi lệnh. Xong. Chúc thành công.

 

[hoangthuantp]

Bạn có thể tìm kiếm 1 bài trong này và copy code đó vào VBA rồi chạy chúng thì sẽ có thể xóa hết tất cả các Name trên.
http://www.google.com.vn/custom?dom...m&q=xóa+name&sitesearch=www.giaiphapexcel.com
Nếu bạn không biết cách copy code + chạy VBA như thế nào thì làm theo hướng dẫn sau:
+Bạn copy đoạn code đó trước rồi vào file Excel cần xóa name
+Nhấn Alt + F11, sau khi cửa sổ VBA hiện ra bạn nhấp phải chuột vào tên Sheet -> chọn Insert -> Module.
+Sau khi 1 trang trắng hiện ra -> bạn Paste đoạn code vào đó.
+Tiếp theo trở lại cửa sổ Excel (cửa sổ bảng tính Excel ấy!) nhấn Alt + F8 -> Chọn tên Macro vừa Paste lúc nãy -> chọn Run để thực thi lệnh.
Xong.
Chúc thành công.

Uh chân thành cảm ơn nhiều! Các anh trả lời nhanh quá! và hướng dẫn cũng rất tỷ mỉ nữa. Chắc còn phiền các anh chị nhiều!