Lập trình Excel có thể dùng ngôn ngữ lập trình nào? (1 người xem)

Tuanba1992 đã viết:

1.Visual Basic : VBA viết luôn không cần cài gì nhưng thiếu thư viện, phải viết nhiều
2.C#, Vb.net, F
3.Python
4.Delphi, C++, Go, Rust....
Mọi người còn biết ngôn ngữ nào lập trình cho excel?
Nên chọn cái nào để tối ưu?

Nhấp chuột vào đây để mở rộng...

Tuanba1992 đã viết:

Cá nhân em từng thử qua
1.VBA thì nhẹ nhưng thiếu thư viện
2.Net em có thử c# và vb.net(Excel DNA) không dùng vsto thì thấy nó tiện gần như làm mọi thứ c# làm được thì nó cũng ok mỗi tội chỉ yêu win thôi
3.Python nếu mua thì em thấy ngon như pxll hoặc xlwings hoặc không muốn mua có thể dùng pythonCom
4.Delphi, Go.. thì phải viết wrapper Chuyển code vào
E thấy nếu tiện nhanh chuyên .Net nên dùng C# hoặc .net muốn bảo mật hơn thì viết base Delphi, Go gọi qua .net cho nhàn còn không viết wapper.
C++ em cũng thích đấy nhưng để học nó thì khó thực sự nên em bỏ qua nó viết nhóc nào dễ hơn thôi.

Nhấp chuột vào đây để mở rộng...

nguyendang95 đã viết:

Nói chung là khi lập trình với C++ bạn phải làm tất cả mọi thứ, vd: Trong .NET bạn tạo một ứng dụng WinForm, chỉ với vài thao tác kéo thả là có thể giúp bạn tạo ra một ứng dụng Windows truyền thống một cách nhanh gọn lẹ, tuy nhiên với C++ bạn phải nắm được tất cả những thông điệp (message) cần phải xử lý, các hàm Win32 API tương ứng để tạo cửa sổ, control (CreateWindow hoặc CreateWindowEx), các hàm Win32 API để xử lý các thông điệp do cửa sổ hoặc control trả về (có thể xem đây là sự kiện (event) của control trong .NET vậy).
VD: Create a window
Khi lập trình COM add-in, bên .NET đã có sẵn giải pháp VSTO add-in giúp lập trình viên có thể dễ dàng tạo ra một add-in với đầy đủ chức năng như ý muốn một cách nhanh gọn, tuy nhiên với C++ bạn phải nắm được cách thức làm việc với đối tượng COM (IUnknown, IDispatch, cấp phát và giải phóng bộ nhớ đúng cách, thread, v.v.,), cũng may là Microsoft cung cấp giải pháp ATL Project giúp đơn giản hóa quá trình viết COM DLL, tuy vậy những công việc mà VSTO add-in ngầm thực hiện giúp bạn thì bạn phải tự làm lấy, nói chung là rất nhiều thứ phải lo xử lý.

Nhấp chuột vào đây để mở rộng...

Tuanba1992 đã viết:

Cái đúng là C++ phải làm từ đầu hết mọi cái, cái này bước đầu đã rất khó, khó thêm cái là giải phóng bộ nhớ thủ công không cẩn thận là đi cả chương trình nên thôi em chọn ngôn ngữ nào nó dễ chút học chứ học anh c++ này ong thủ lắm

Nhấp chuột vào đây để mở rộng...

#include <Windows.h>
#include <strsafe.h>

#pragma comment(linker,"\"/manifestdependency:type='win32' \
name='Microsoft.Windows.Common-Controls' version='6.0.0.0' \
processorArchitecture='*' publicKeyToken='6595b64144ccf1df' language='*'\"")

LRESULT CALLBACK WindowProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam);

int WINAPI wWinMain(_In_ HINSTANCE hInstance, _In_opt_ HINSTANCE hPrevInstance, _In_ LPWSTR lpCmdLine, _In_ int nShowCmd) {
    const WCHAR wszClassname[] = L"My Window Class";
    WNDCLASS wndClass = {};
    wndClass.hCursor = (HCURSOR)LoadImage(hInstance, IDC_CROSS, IMAGE_CURSOR, LR_DEFAULTSIZE, LR_DEFAULTSIZE, LR_DEFAULTSIZE);
    wndClass.lpfnWndProc = WindowProc;
    wndClass.lpszClassName = wszClassname;
    wndClass.hInstance = hInstance;
    wndClass.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
    wndClass.hIcon = (HICON)LoadImage(hInstance, IDI_APPLICATION, IMAGE_ICON, LR_DEFAULTSIZE, LR_DEFAULTSIZE, LR_DEFAULTSIZE);
    wndClass.style = CS_HREDRAW | CS_VREDRAW;
    if (!RegisterClass(&wndClass))
        return 1;
    HWND hWnd = CreateWindow(wszClassname, L"My Window", WS_VISIBLE | WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, 305, 158, NULL, NULL, hInstance, NULL);
    if (!hWnd)
        return 1;
    MSG msg = {};
    BOOL bRetVal = FALSE;
    while ((bRetVal = GetMessage(&msg, NULL, 0, 0)) != 0) {
        if (bRetVal == -1) {
            //Handle error

        }
        else {
            TranslateMessage(&msg);
            DispatchMessage(&msg);
        }
    }
    return (int)msg.wParam;
}

LRESULT CALLBACK WindowProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam) {
    static HWND hButton = NULL, hTxt = NULL, hLbl = NULL;
    static HINSTANCE hInstance = NULL;
    switch (uMsg) {
        case WM_CREATE:
        {
            hInstance = (HINSTANCE)GetWindowLongPtr(hWnd, GWLP_HINSTANCE);
            hButton = CreateWindow(L"BUTTON", L"OK", WS_VISIBLE | WS_CHILD, 108, 84, 72, 24, hWnd, (HMENU)1, hInstance, NULL);
            if (!hButton) return -1;
            hTxt = CreateWindowEx(WS_EX_CLIENTEDGE, L"EDIT", L"", WS_VISIBLE | WS_CHILD, 96, 48, 150, 18, hWnd, (HMENU)2, hInstance, NULL);
            if (!hTxt) return -1;
            hLbl = CreateWindow(L"STATIC", L"Ngày giờ hiện tại", WS_VISIBLE | WS_CHILD, 114, 18, 140, 18, hWnd, (HMENU)3, hInstance, NULL);;
            if (!hLbl) return -1;
            return 0;
        }
        case WM_PAINT:
        {
            PAINTSTRUCT ps = {};
            HDC hdc = BeginPaint(hWnd, &ps);
            FillRect(hdc, &ps.rcPaint, (HBRUSH)(COLOR_WINDOW + 1));
            EndPaint(hWnd, &ps);
            return 0;
        }
        case WM_DESTROY:
        {
            PostQuitMessage(0);
            return 0;
        }
        case WM_COMMAND:
        {
            switch (HIWORD(wParam)) {
                case BN_CLICKED:
                {
                    switch (LOWORD(wParam)) {
                        case 1:
                        {
                            SYSTEMTIME systemTime = {};
                            GetLocalTime(&systemTime);
                            wchar_t wszBuffer[30]{};
                            HRESULT hr = StringCchPrintf(wszBuffer, 30, L"%u/%u/%u %u:%u:%u", systemTime.wMonth, systemTime.wDay, systemTime.wYear, systemTime.wHour, systemTime.wMinute, systemTime.wSecond);
                            if (SUCCEEDED(hr)) {
                                if (!SendMessage(hTxt, WM_SETTEXT, 0, (LPARAM)wszBuffer)) MessageBox(hWnd, L"WM_SETTEXT failed", L"Error", MB_OK | MB_SETFOREGROUND);
                            }
                            return 0;
                        }
                    }
                    return 0;
                }
            }
            return 0;
        }
        case WM_CTLCOLORSTATIC:
        {
            return (INT_PTR)GetStockObject(WHITE_BRUSH);
        }
    }
    return DefWindowProc(hWnd, uMsg, wParam, lParam);
}

nguyendang95 đã viết:

Nói chung là, với VBA chỉ cần gõ vài dòng lệnh là xong.

View attachment 309474
View attachment 309475
Còn với C++ thì phải viết cả đống code, nhiều khi gặp mấy hàm Win32 API ít khi dùng, lúc động đến lại quên thế là phải tra lại tài liệu cho chính xác.

C++: Sao chép.

#include <Windows.h>
#include <strsafe.h>

#pragma comment(linker,"\"/manifestdependency:type='win32' \
name='Microsoft.Windows.Common-Controls' version='6.0.0.0' \
processorArchitecture='*' publicKeyToken='6595b64144ccf1df' language='*'\"")

LRESULT CALLBACK WindowProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam);

int WINAPI wWinMain(_In_ HINSTANCE hInstance, _In_opt_ HINSTANCE hPrevInstance, _In_ LPWSTR lpCmdLine, _In_ int nShowCmd) {
    const WCHAR wszClassname[] = L"My Window Class";
    WNDCLASS wndClass = {};
    wndClass.hCursor = (HCURSOR)LoadImage(hInstance, IDC_CROSS, IMAGE_CURSOR, LR_DEFAULTSIZE, LR_DEFAULTSIZE, LR_DEFAULTSIZE);
    wndClass.lpfnWndProc = WindowProc;
    wndClass.lpszClassName = wszClassname;
    wndClass.hInstance = hInstance;
    wndClass.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
    wndClass.hIcon = (HICON)LoadImage(hInstance, IDI_APPLICATION, IMAGE_ICON, LR_DEFAULTSIZE, LR_DEFAULTSIZE, LR_DEFAULTSIZE);
    wndClass.style = CS_HREDRAW | CS_VREDRAW;
    if (!RegisterClass(&wndClass))
        return 1;
    HWND hWnd = CreateWindow(wszClassname, L"My Window", WS_VISIBLE | WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, 305, 158, NULL, NULL, hInstance, NULL);
    if (!hWnd)
        return 1;
    MSG msg = {};
    BOOL bRetVal = FALSE;
    while ((bRetVal = GetMessage(&msg, NULL, 0, 0)) != 0) {
        if (bRetVal == -1) {
            //Handle error

        }
        else {
            TranslateMessage(&msg);
            DispatchMessage(&msg);
        }
    }
    return (int)msg.wParam;
}

LRESULT CALLBACK WindowProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam) {
    static HWND hButton = NULL, hTxt = NULL, hLbl = NULL;
    static HINSTANCE hInstance = NULL;
    switch (uMsg) {
        case WM_CREATE:
        {
            hInstance = (HINSTANCE)GetWindowLongPtr(hWnd, GWLP_HINSTANCE);
            hButton = CreateWindow(L"BUTTON", L"OK", WS_VISIBLE | WS_CHILD, 108, 84, 72, 24, hWnd, (HMENU)1, hInstance, NULL);
            if (!hButton) return -1;
            hTxt = CreateWindowEx(WS_EX_CLIENTEDGE, L"EDIT", L"", WS_VISIBLE | WS_CHILD, 96, 48, 150, 18, hWnd, (HMENU)2, hInstance, NULL);
            if (!hTxt) return -1;
            hLbl = CreateWindow(L"STATIC", L"Ngày giờ hiện tại", WS_VISIBLE | WS_CHILD, 114, 18, 140, 18, hWnd, (HMENU)3, hInstance, NULL);;
            if (!hLbl) return -1;
            return 0;
        }
        case WM_PAINT:
        {
            PAINTSTRUCT ps = {};
            HDC hdc = BeginPaint(hWnd, &ps);
            FillRect(hdc, &ps.rcPaint, (HBRUSH)(COLOR_WINDOW + 1));
            EndPaint(hWnd, &ps);
            return 0;
        }
        case WM_DESTROY:
        {
            PostQuitMessage(0);
            return 0;
        }
        case WM_COMMAND:
        {
            switch (HIWORD(wParam)) {
                case BN_CLICKED:
                {
                    switch (LOWORD(wParam)) {
                        case 1:
                        {
                            SYSTEMTIME systemTime = {};
                            GetLocalTime(&systemTime);
                            wchar_t wszBuffer[30]{};
                            HRESULT hr = StringCchPrintf(wszBuffer, 30, L"%u/%u/%u %u:%u:%u", systemTime.wMonth, systemTime.wDay, systemTime.wYear, systemTime.wHour, systemTime.wMinute, systemTime.wSecond);
                            if (SUCCEEDED(hr)) {
                                if (!SendMessage(hTxt, WM_SETTEXT, 0, (LPARAM)wszBuffer)) MessageBox(hWnd, L"WM_SETTEXT failed", L"Error", MB_OK | MB_SETFOREGROUND);
                            }
                            break;
                        }
                    }
                    break;
                }
            }
        }
        case WM_CTLCOLORSTATIC:
        {
            return (INT_PTR)GetStockObject(WHITE_BRUSH);
        }
    }
    return DefWindowProc(hWnd, uMsg, wParam, lParam);
}

Nếu viết bằng C++ thì tự do hơn, tùy biến thoải mái không bị gò bó như VBA, có thể tối ưu hiệu năng nhất có thể.
VD: VBA không hỗ trợ đa luồng, nhưng với C++ thì thoải mái.ái n

Nhấp chuột vào đây để mở rộng...