đính kèm hình bằng userform bị lỗi code

[phan van tai]

mình có làm cái userform đính kèm hình ảnh, mà nó bị lỗi không chạy được (học trên youtube)

Kiểm tra mấy lần cũng không nhận thấy lỗi sai chổ nào=> nhờ các cao nhân xem giúp em với

 

[truongvu317]

Lệnh set I =.... là chưa đúng rồi, với kiểm tra lại xem gõ chính tả đã đúng chưa á

 

[huhumalu]

TextBox1.Text = Application.WorksheetFunction.Max(Sheet1.Range("A:A")) + 1

gõ chữ WorksheetFuntion bị sai --> WorksheetFunction

'cap nhat thong tin userform vao excel
With y
    .Cells(x, 1).Value = TextBox1.Text
    .Cells(x, 2).Value = TextBox2.Text
        With Worksheets("sheet1").Cells(x, 3)
        Rows(x).RowHeight = 60
        Columns("C").ColumnWidth = 15
        Set insert_pic = ActiveSheet.Pictures.Insert(fpath)
        insert_pic.Top = .Top
        insert_pic.Left = .Left
        insert_pic.ShapeRange.LockAspectRatio = msoTrue
        insert_pic.ShapeRange.Width = 50
        insert_pic.ShapeRange.Height = 50
        End With

    End With

gõ chữ With Worksheet bị thiếu chữ s --> Worksheets
Cụm

Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
p = Application.FileDialog(msoFileDialogOpen).Show

nên thay bằng

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "HinhAnh", "*.jpg; *.png; *.bmp", 1
        p = .Show
    End With

Cho dễ lựa chọn hình ảnh theo các đuôi thông dụng như "*.jpg; *.png; *.bmp";

 

[phan van tai]

TextBox1.Text = Application.WorksheetFunction.Max(Sheet1.Range("A:A")) + 1

gõ chữ WorksheetFuntion bị sai --> WorksheetFunction

'cap nhat thong tin userform vao excel
With y
    .Cells(x, 1).Value = TextBox1.Text
    .Cells(x, 2).Value = TextBox2.Text
        With Worksheets("sheet1").Cells(x, 3)
        Rows(x).RowHeight = 60
        Columns("C").ColumnWidth = 15
        Set insert_pic = ActiveSheet.Pictures.Insert(fpath)
        insert_pic.Top = .Top
        insert_pic.Left = .Left
        insert_pic.ShapeRange.LockAspectRatio = msoTrue
        insert_pic.ShapeRange.Width = 50
        insert_pic.ShapeRange.Height = 50
        End With

    End With

gõ chữ With Worksheet bị thiếu chữ s --> Worksheets
Cụm

Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
p = Application.FileDialog(msoFileDialogOpen).Show

nên thay bằng

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "HinhAnh", "*.jpg; *.png; *.bmp", 1
        p = .Show
    End With

Cho dễ lựa chọn hình ảnh theo các đuôi thông dụng như "*.jpg; *.png; *.bmp";

cám ơn bạn nhiều nha

 

[phan van tai]

TextBox1.Text = Application.WorksheetFunction.Max(Sheet1.Range("A:A")) + 1

gõ chữ WorksheetFuntion bị sai --> WorksheetFunction

'cap nhat thong tin userform vao excel
With y
    .Cells(x, 1).Value = TextBox1.Text
    .Cells(x, 2).Value = TextBox2.Text
        With Worksheets("sheet1").Cells(x, 3)
        Rows(x).RowHeight = 60
        Columns("C").ColumnWidth = 15
        Set insert_pic = ActiveSheet.Pictures.Insert(fpath)
        insert_pic.Top = .Top
        insert_pic.Left = .Left
        insert_pic.ShapeRange.LockAspectRatio = msoTrue
        insert_pic.ShapeRange.Width = 50
        insert_pic.ShapeRange.Height = 50
        End With

    End With

gõ chữ With Worksheet bị thiếu chữ s --> Worksheets
Cụm

Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
p = Application.FileDialog(msoFileDialogOpen).Show

nên thay bằng

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "HinhAnh", "*.jpg; *.png; *.bmp", 1
        p = .Show
    End With

Cho dễ lựa chọn hình ảnh theo các đuôi thông dụng như "*.jpg; *.png; *.bmp";

mình có lồng code vô file thiết kế của mình, mà nó ko chạy add hình vô excel

báo lỗi liên tục.

 

[huhumalu]

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "HinhAnh", "*.bmp; *.dib; *.gif; *.pict; *.emf; *.eps; *.epfs; *.jfif; *.jpeg; *.jpg", 1
        p = .Show
    End With

Bạn sửa lại nha.

 

[phan van tai]

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "HinhAnh", "*.bmp; *.dib; *.gif; *.pict; *.emf; *.eps; *.epfs; *.jfif; *.jpeg; *.jpg", 1
        p = .Show
    End With

View attachment 283570
Bạn sửa lại nha.

bạn có thể xem giúp mình code của button Ghi vào. Khi nhập dữ liệu => add thì dữ liệu vẫn thêm vào excel, mà báo lỗi ảnh ko thêm được

 

[huhumalu]

bạn có thể xem giúp mình code của button Ghi vào. Khi nhập dữ liệu => add thì dữ liệu vẫn thêm vào excel, mà báo lỗi ảnh ko thêm được

Do bạn khai báo biến

Dim fpath As String

không phải là biến toàn cục, đầu tiên bạn bỏ dòng khai báo trong

Public Sub NGhiTam_Click()
    'Dim fpath      As String
    ' Bỏ dòng khai báo này.

tiếp đó bổ sung dòng bên dưới lên dòng đầu tiên của toàn bộ code trong UserForm "nhap_kho";

Dim fpath As String

 

[phan van tai]

Do bạn khai báo biến

Dim fpath As String

không phải là biến toàn cục, đầu tiên bạn bỏ dòng khai báo trong

Public Sub NGhiTam_Click()
    'Dim fpath      As String
    ' Bỏ dòng khai báo này.

tiếp đó bổ sung dòng bên dưới lên dòng đầu tiên của toàn bộ code trong UserForm "nhap_kho";

Dim fpath As String

file được rồi ak. Thanks bạn rất nhiều nhiều

 

[phan van tai]

    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "HinhAnh", "*.bmp; *.dib; *.gif; *.pict; *.emf; *.eps; *.epfs; *.jfif; *.jpeg; *.jpg", 1
        p = .Show
    End With

View attachment 283570
Bạn sửa lại nha.

mình thử một số hình có thể load được, có một số hình thì ko load được. VD hình mình đính kèm, khi load vào là báo lỗi

 

[phan van tai]

mình thử một số hình có thể load được, có một số hình thì ko load được. VD hình mình đính kèm, khi load vào là báo lỗi

chọn hình là báo lỗi

 

[cantl]

View attachment 283606
chọn hình là báo lỗi

Thử đặt file ảnh không dấu xem sao?

 

[phan van tai]

Thử đặt file ảnh không dấu xem sao?

Đúng rồi ak, sửa lại ko dấu thì nó load được. Thanks nhiều lắm