Hỏi 1 tí về Comment và Define Name?

[anhtuan1066]

Tôi có 2 vấn đề cần thọ giáo các bạn:
1/- Về Comment: Khi ta chèn 1 Picture nào đó vào Comment thì có cách nào cho Picture ấy thay đỗi theo sự thay đỗi của 1 cell ko? VD: Cell A1=1 thì comment là Pic01.jpg, cell A1=2 thì comment là Pic02.jpg... van.. van...
2/-Về define Name: Tôi có 1 file gồm 5 sheet (cấu trúc dử liệu hoàn toàn giống nhau). Sheet 1 tôi đặt Name là TEN1, Refers to =Sheet1!$A$1:$C$10. Sheet 2 tôi đặt Name là TEN2, Refers to =Sheet2!$A$1:$C$10.... van.. van... đến Sheet 5, Name là TEN5, Refers to =Sheet5!$A$1:$C$10
Rõ ràng việc đặt Name này có vẽ dư thừa, vì Name nào cũng tham chiếu đến $A$1:$C$10
Vậy có cách nào đặt 1 Name duy nhất lại có thể dùng dc cho 5 sheet ko?
Mong nhận dc sự giúp đở!
ANH TUẤN

 

[Mr Okebab]

Tôi có 2 vấn đề cần thọ giáo các bạn:
1/- Về Comment: Khi ta chèn 1 Picture nào đó vào Comment thì có cách nào cho Picture ấy thay đỗi theo sự thay đỗi của 1 cell ko? VD: Cell A1=1 thì comment là Pic01.jpg, cell A1=2 thì comment là Pic02.jpg... van.. van...
2/-Về define Name: Tôi có 1 file gồm 5 sheet (cấu trúc dử liệu hoàn toàn giống nhau). Sheet 1 tôi đặt Name là TEN1, Refers to =Sheet1!$A$1:$C$10. Sheet 2 tôi đặt Name là TEN2, Refers to =Sheet2!$A$1:$C$10.... van.. van... đến Sheet 5, Name là TEN5, Refers to =Sheet5!$A$1:$C$10
Rõ ràng việc đặt Name này có vẽ dư thừa, vì Name nào cũng tham chiếu đến $A$1:$C$10
Vậy có cách nào đặt 1 Name duy nhất lại có thể dùng dc cho 5 sheet ko?
Mong nhận dc sự giúp đở!
ANH TUẤN

Không có cách nào bạn ạ.

Cái mà bạn cho rằng giống nhau nhưng thực tế lại khác nhau đấy :
VD : Có các ô cùng = giá trị của A1 nhưng mỗi ô lấy ở 1 sheet khác nhau.
Vậy thì tính chất và giá trị của các ô này sẽ rất khác nhau.

Chỉ có các name toàn cục và name cục bộ thôi :
--------name toàn cục : Dùng được cho tất cả các sheet trong workbook
--------name cục bộ : Chỉ dùng được cho sheet đó.

Vậy thì cái quan trọng là bạn hãy đặt ra 1 TH cần xử lý như câu hỏi, và nếu làm được vậy thì sẽ cho trường hợp nào, cái gì sẽ xảy ra.

VD : ta có thể lợi dụng sự kiện Sheet Active để gán vùng A1:A10 của sheet hiện hành vào name đó. Tuy nhiên khi đó các công thức có sử dụng name đó (với tham chiếu là sheet khác) sẽ bị sai ngay.

Thân!

 

[yeudoi]

Về comemt mình nghĩ là được, nhưng mà mình chưa thực hiện được cái này phải nhờ Bác Tuân. Bởi trong file kế toán Bác có sự dụng

 

[tedaynui]

- Các anh chèn hình vào Comment bằng cách nào vậy, hướng dẫn em với. Em tìm cách chèn nhưng sao không chèn được ? Thanks !
- Em nghĩ có thể mượn Form, khi Change_selection cũng có thể thay đổi hình được.

TDN

 

[Mr Okebab]

Bạn có thể cho tôi 1 VD về Name toàn cục dc ko? Toi chưa hiểu lắm
Thế còn vấn đề Comment thì sao? Có ai giúp tôi về vấn đề này ko?

Bạn xem qua File này nhé.

Ở File này mình dùng 3 name cục bộ cho 3 sheet 1,2,3 : GPE.

Và mình dùng 1 name toàn cục cho toàn bộ File : GPE.

Ở những Sheet nào chưa có name cục bộ là GPE sẽ lấy giá trị của name toàn cục và ngược lại.

Vì vậy cũng là GPE nhưng mỗi sheet sẽ có những giá trị khác nhau.

- Các anh chèn hình vào Comment bằng cách nào vậy, hướng dẫn em với. Em tìm cách chèn nhưng sao không chèn được ? Thanks !

Bác chèn Comment vào ô, sau đó show comment đó, và kích hoạt nó (nhấn vào cạnh của nó) ->Insert ->Picture . . .

Cứ vậy mà làm thôi ạ.


Thân!

 

[Mr Okebab]

Bác phải đặt ở chế độ thiết kế (Edit comment) nhé :
Đây chế độ thiết kế:

Còn đây là Edit :

Bác chú ý đường viền xung quanh nhé.

Thân!

 

[chibi]

Bác chèn Comment vào ô, sau đó show comment đó, và kích hoạt nó (nhấn vào cạnh của nó) ->Insert ->Picture . . .

Không thực hiện được !

 

[Đào Việt Cường]

Dear all,
--------
Nếu làm thủ công thì chúng ta phải vào Format Comment như hình dưới đây, chọn Fill Effects

 

[Đào Việt Cường]

Dear all,
--------
Có thể không đúng chủ để, nhưng em vẫn muốn lên đây kỹ thuật nâng cao bằng lập trình:
Hai thủ tục sau đây cho phép đưa hình ảnh do người dùng tự chọn vào comment:

Private Sub cmbSelectPicture_Click()
Cells(ActiveCell.Row, 2).Activate
Dim strFullName As String
Dim strPath As String
strFullName = Application.GetOpenFilename("Picture file, *.*", , "Select picture")
If InStrRev(strFullName, ".") = 0 Then Exit Sub
strPath = Left(strFullName, InStrRev(strFullName, "\") - 1)
Shape_SetPicture strFullName
ActiveCell.Cells(, 8).Value = Mid(strFullName, Len(strPath) + 2)
End Sub
[COLOR=Gray]'_______________________[/COLOR]
Sub Shape_SetPicture(strFullName As String)
On Error Resume Next
Dim sp As Shape
Set sp = ActiveCell.Comment.Shape
sp.Fill.UserPicture strFullName
End Sub

Còn nếu chúng ta muốn đưa hình ảnh hiện lên User Form thì insert một đối tượng Image rồi LoadPicture vào Picture của Image đó, ví dụ:

Image1.Picture = LoadPicture("C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\GPE_Logo.jpg")

 

[SA_DQ]

tedaynui hôm nay lười quá nha!

Vẫn không được, làm sao đây Hiếu ơi !!! Hình chèn vào, nó không vào Comment ???

http://giaiphapexcel.com/forum/showthread.php?t=432&highlight=comments

 

[Đào Việt Cường]

Dear anhtuan1066,
------------------
Mình thấy vấn đề của bạn được giải quyết theo nhiều hướng rồi đó chứ: từ đơn giản đến nâng cao. Tất nhiên, nếu bạn muốn tự động hoá cao thì phải lập trình. Mình gửi lên đây ví dụ minh hoạ về vấn đề này nhé!

 

[TranThanhPhong]

Picture Comment

Chào anhtuan1066,

Bạn xem có phải bạn muốn tạo Comment giống file này không?

Enable Macro, chọn dòng cần xem, trỏ chuột vào cột đầu tiên sẽ thấy. File này cực kỳ hay, bao gồm rất nhiều thủ thuật VBA.

TP.

 

[vungoc]

Mấy cái vụ Comment này hay lắm, đáng tiếc là nó chẳng giúp gì trong trường hợp của tôi cả... Tôi nhớ có lần tôi đã nhìn thấy ai đó làm về vụ này rồi. Picture trong Comment thay đỗi liên tục theo giá trị của 1 cell nào đó, rất tuyệt, tôi tải về rồi nhưng ko dùng đến nên giờ ko biết nó nằm ở đâu! Khổ thân! Hicccccc
ANH TUẤN

Hình như đây là file bác đang muốn tìm (Xin phép & cảm ơn tác giả của file này nhé), mình up lên xem bác xem có đúng ý không nhé !

 

[anhtuan1066]

Bạn VuNgoc ơi, chính xác đây là cái mà tôi cần tìm... Cám ơn bạn rất nhiều... Lở giúp thì giúp luôn cho trót, bạn có cách nào hủy luôn password ko? Vì tôi chẳng có việc gì cần đến password cả (chỉ thêm phiền phức mà thôi... mà tôi lại kém về VBA lắm nên chẳng biết đường nào mà sửa Code)
Riêng file bạn ttphong2007, công nhận là từ trước đến giờ tôi mới gặp dạng trình bày như thế này. Phải nói là "Choáng ngợp" (tuy rằng tôi chưa biết nên sử dụng nó vào việc gì)... Hồi nảy mở file bạn lên, chẳng biết bấm vào đâu tự dung nó ẩn luôn Taskbar, ko làm sao phục hồi dc, phải LogOff... Hic...
Cám ơn tất cả mọi người (Nhất là bạn VuNgoc)
Còn về phần Define Name tôi hỏi ở trên. Theo bạn Hiếu nói thì có loại Name toàn cục, và bạn ấy có post 1 file lên nhưng tôi vẫn ko hiễu bằng cách nào bạn ấy làm dc như thế. Có ai biết giúp tôi với (Có lẽ bạn Hiếu đang bận việc nên chẳng thấy bạn ấy trã lời, mà tôi thì lại đang rất gấp)
Mến
ANH TUẤN

Ah, còn nữa bạn VuNgọc ơi... Nếu tôi muốn thêm vài dòng nữa bên Sheet DATA thì làm sao đễ ComboBox hiểu và cập nhật dc vậy? (Chẳng hạn thêm 1 dòng với mã SV là KT011...)
ANH TUẤN

 

[TranThanhPhong]

Chào anhtuan1066,

Bạn có thể dùng Excel 2007 để tạo Name toàn cục, nó có phân loại sẵn. Trong Excel các phiên bản cũ thì làm Insert | Name | Define | Đặt tên và Refers to thì chỉ nhập địa chỉ Range không có tên Sheet phía trước.

TP.

 

[vungoc]

Dear Anhtuan1066 !

1 - Bác muôn bỏ password thì chỉ cần Unprotect sheets và vào Insert \ Name \ Difine Name: Xóa đi Name tên là Password đồng thời bên sheet Data bác xóa đi cột Password (Cột J) sau đó bác nhấn chọn thử dòng Mã SV (nhấn nút mũi tên số xuống để xem sự thay đổi). Kế tiếp bác xóa đi các dấu sao (***) trong dòng Mật khẩu. Từ lần thứ 2 trở đi bác nhấp chọn sẽ không còn đòi mật khẩu nữa.

2- Bác muốn thêm các dòng nữa thì trước tiên bác phải vào trong các Name đổi lại - cụ thể là mở rộng thêm vùng chọn của các Name (ví dụ trong name đó đang chọn vùng từ A2:A11 thì bác thay đổi thành A2:A100 chẳng hạn). sau đó bác ra ngoài bảng tính excel để copy thêm số dòng dữ liệu mà bác muốn thêm xuống (cho nhanh) - thay đổi thứ tự Mã và Picture, đặt trỏ chuột vào ô hình có comment sau đó chọn button Select picture để chọn add thêm hình vào comment mới này (Ghi chú: Trước các thao tác này thì bác nên copy hình ma bác muốn thêm vào trong thư mục PicForm - đặt tên file cho hình mới theo logic các hình đã có sẵn).

Bác thử xem sao, chúc bác mạnh khỏe và thành công !

 

[Mr Okebab]

Bạn Hiêu ơi! Cái Define Name của bạn chính là cái mà tôi đang cần đấy! Nhưng tôi nhìn mãi mà vẫn ko biết làm làm nó như thế nào. Có thể hướng dẩn cụ thể dc ko? (Vụ này hơi bị mới à nha!)

Cách tạo name toàn cục : Có tác dụng cho tất cả các sheet, trừ sheet nào có name cục bộ trùng tên với nó.
Đây là cách chúng ta vẫn thường hay tạo name mà chúng ta lại không biết

Cách tạo name cục bộ : Có tác dụng cho sheet đó, khi đó name toàn cục bị trùng tên sẽ không có tác dụng với sheet đó. Và name này chỉ thấy đươc (sử dụng được) khi ở sheet đó thôi.

VD : Khi ta muốn tạo name cục bộ có tên là GPE ở sheet Data thì ta đặt tên là : Data!GPE.
Khi đó 1 name cục bộ sẽ được tạo ra.

Chúc các bạn thành công.

Thân!

 

[ThuNghi]

Tôi mới xem file của Vũ Ngọc, xin trả lời bạn như sau:
- Pass chỉ là dùng Vlookup, sửa công thức tại D4
- Delete background cho dễ thấy
- Tại ô C3 dùng Validation với list là Masv được xác định A2:A11 trong sheet Data, vậy bạn tăng lên và nên dùng offset, Masv=offset(....) kết hợp với count.
Tôi chỉ biết có vậy. Biết nữa chỉ nữa.

 

[mymichau]

Kích họat chế độ Edit comment, chọn Format comment, chọn tab color and liens, chọn nút hình tam giác trong fill color , chọn fill effects, chọn tab picture, chọn select picture, sau đó chọn hình và insert

 

[hoaloaken]

Mình đọc mục này thấy hay quá, đúng lúc theo yêu cầu của sếp, nhưng mình mò mãi không ra, bởi vì mình chỉ hiểu excel sơ sài thôi. Các bạn có thể giúp mình được không. sheet 1 là dữ liệu, còn sheet 2 sẽ là form thông tin của công nhân bao gồm ảnh, số thẻ, họ tên, ngày vào, mức lương. Mà khi mình đánh vào form này bất kỳ số thẻ nào thì các thông số khác cập nhật theo. Các bạn chỉ cho mình cách làm từng bước một nhé. (Từ cách add ảnh vào excel, rồi lập form ở sheet 2 như thế nào)
ảnh thì các bạn có thể lấy bất kỳ đâu chèn vào.
Cám ơn các bạn nhiều