大神请帮下忙的日语怎么说VBA
点击联系发帖人
时间：2018-06-20 11:52
只需一步，快速开始
扫一扫，访问微社区
查看: 1138|回复: 1|关注: 0
关于VS2010下调试mexw64程序，哪位大神帮下忙
<h1 style="color:# 麦片财富积分
新手, 积分 10, 距离下一级还需 40 积分
今天，想调试一个c++工具包，它给出了matlab接口，于是我在VS2010下建了一个工程，一些cpp文件和头文件都添加好了，但是编译链接时出现如下问题：
mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dcopy_，该符号在函数 &void __cdecl cblas_copy&double&(int,double *,int,double *,int)& (??$cblas_copy@N@@YAXHPEANH0H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 daxpy_，该符号在函数 &void __cdecl cblas_axpy&double&(int,double,double *,int,double *,int)& (??$cblas_axpy@N@@YAXHNPEANH0H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dgemv_，该符号在函数 &void __cdecl cblas_gemv&double&(enum CBLAS_ORDER,enum CBLAS_TRANSPOSE,int,int,double,double *,int,double *,int,double,double *,int)& (??$cblas_gemv@N@@YAXW4CBLAS_ORDER@@W4CBLAS_TRANSPOSE@@HHNPEANH2HN2H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dgemm_，该符号在函数 &void __cdecl cblas_gemm&double&(enum CBLAS_ORDER,enum CBLAS_TRANSPOSE,enum CBLAS_TRANSPOSE,int,int,int,double,double *,int,double *,int,double,double *,int)& (??$cblas_gemm@N@@YAXW4CBLAS_ORDER@@W4CBLAS_TRANSPOSE@@1HHHNPEANH2HN2H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dsyrk_，该符号在函数 &void __cdecl cblas_syrk&double&(enum CBLAS_ORDER,enum CBLAS_UPLO,enum CBLAS_TRANSPOSE,int,int,double,double *,int,double,double *,int)& (??$cblas_syrk@N@@YAXW4CBLAS_ORDER@@W4CBLAS_UPLO@@W4CBLAS_TRANSPOSE@@HHNPEANHN3H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 ddot_，该符号在函数 &double __cdecl cblas_dot&double&(int,double *,int,double *,int)& (??$cblas_dot@N@@YANHPEANH0H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 scopy_，该符号在函数 &void __cdecl cblas_copy&float&(int,float *,int,float *,int)& (??$cblas_copy@M@@YAXHPEAMH0H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 saxpy_，该符号在函数 &void __cdecl cblas_axpy&float&(int,float,float *,int,float *,int)& (??$cblas_axpy@M@@YAXHMPEAMH0H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 sgemv_，该符号在函数 &void __cdecl cblas_gemv&float&(enum CBLAS_ORDER,enum CBLAS_TRANSPOSE,int,int,float,float *,int,float *,int,float,float *,int)& (??$cblas_gemv@M@@YAXW4CBLAS_ORDER@@W4CBLAS_TRANSPOSE@@HHMPEAMH2HM2H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 sgemm_，该符号在函数 &void __cdecl cblas_gemm&float&(enum CBLAS_ORDER,enum CBLAS_TRANSPOSE,enum CBLAS_TRANSPOSE,int,int,int,float,float *,int,float *,int,float,float *,int)& (??$cblas_gemm@M@@YAXW4CBLAS_ORDER@@W4CBLAS_TRANSPOSE@@1HHHMPEAMH2HM2H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 ssyrk_，该符号在函数 &void __cdecl cblas_syrk&float&(enum CBLAS_ORDER,enum CBLAS_UPLO,enum CBLAS_TRANSPOSE,int,int,float,float *,int,float,float *,int)& (??$cblas_syrk@M@@YAXW4CBLAS_ORDER@@W4CBLAS_UPLO@@W4CBLAS_TRANSPOSE@@HHMPEAMHM3H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 sdot_，该符号在函数 &float __cdecl cblas_dot&float&(int,float *,int,float *,int)& (??$cblas_dot@M@@YAMHPEAMH0H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dscal_，该符号在函数 &void __cdecl cblas_scal&double&(int,double,double *,int)& (??$cblas_scal@N@@YAXHNPEANH@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 sscal_，该符号在函数 &void __cdecl cblas_scal&float&(int,float,float *,int)& (??$cblas_scal@M@@YAXHMPEAMH@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dnrm2_，该符号在函数 &double __cdecl cblas_nrm2&double&(int,double *,int)& (??$cblas_nrm2@N@@YANHPEANH@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dsyr_，该符号在函数 &void __cdecl cblas_syr&double&(enum CBLAS_ORDER,enum CBLAS_UPLO,int,double,double *,int,double *,int)& (??$cblas_syr@N@@YAXW4CBLAS_ORDER@@W4CBLAS_UPLO@@HNPEANH2H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dsymv_，该符号在函数 &void __cdecl cblas_symv&double&(enum CBLAS_ORDER,enum CBLAS_UPLO,int,double,double *,int,double *,int,double,double *,int)& (??$cblas_symv@N@@YAXW4CBLAS_ORDER@@W4CBLAS_UPLO@@HNPEANH2HN2H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 snrm2_，该符号在函数 &float __cdecl cblas_nrm2&float&(int,float *,int)& (??$cblas_nrm2@M@@YAMHPEAMH@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 ssyr_，该符号在函数 &void __cdecl cblas_syr&float&(enum CBLAS_ORDER,enum CBLAS_UPLO,int,float,float *,int,float *,int)& (??$cblas_syr@M@@YAXW4CBLAS_ORDER@@W4CBLAS_UPLO@@HMPEAMH2H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 ssymv_，该符号在函数 &void __cdecl cblas_symv&float&(enum CBLAS_ORDER,enum CBLAS_UPLO,int,float,float *,int,float *,int,float,float *,int)& (??$cblas_symv@M@@YAXW4CBLAS_ORDER@@W4CBLAS_UPLO@@HMPEAMH2HM2H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 idamax_，该符号在函数 &int __cdecl cblas_iamax&double&(int,double *,int)& (??$cblas_iamax@N@@YAHHPEANH@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 isamax_，该符号在函数 &int __cdecl cblas_iamax&float&(int,float *,int)& (??$cblas_iamax@M@@YAHHPEAMH@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dtrmv_，该符号在函数 &void __cdecl cblas_trmv&double&(enum CBLAS_ORDER,enum CBLAS_UPLO,enum CBLAS_TRANSPOSE,enum CBLAS_DIAG,int,double *,int,double *,int)& (??$cblas_trmv@N@@YAXW4CBLAS_ORDER@@W4CBLAS_UPLO@@W4CBLAS_TRANSPOSE@@W4CBLAS_DIAG@@HPEANH4H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 strmv_，该符号在函数 &void __cdecl cblas_trmv&float&(enum CBLAS_ORDER,enum CBLAS_UPLO,enum CBLAS_TRANSPOSE,enum CBLAS_DIAG,int,float *,int,float *,int)& (??$cblas_trmv@M@@YAXW4CBLAS_ORDER@@W4CBLAS_UPLO@@W4CBLAS_TRANSPOSE@@W4CBLAS_DIAG@@HPEAMH4H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dasum_，该符号在函数 &double __cdecl cblas_asum&double&(int,double *,int)& (??$cblas_asum@N@@YANHPEANH@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 sasum_，该符号在函数 &float __cdecl cblas_asum&float&(int,float *,int)& (??$cblas_asum@M@@YAMHPEAMH@Z) 中被引用复制代码之后发现，这些文件都在一个头文件里声明的，但是没有定义，如下：
extern &C& {
& &double dnrm2_(INTT *n,double *x,INTT *incX);
& &float snrm2_(INTT *n,float *x,INTT *incX);
& &void dcopy_(INTT *n,double *x,INTT *incX, double *y,INTT *incY);
& &void scopy_(INTT *n,float *x,INTT *incX, float *y,INTT *incY);
& &void daxpy_(INTT *n,double* a, double *x,INTT *incX, double *y,INTT *incY);
& &void saxpy_(INTT *n,float* a, float *x,INTT *incX, float *y,INTT *incY);
& &void daxpby_(INTT *n,double* a, double *x,INTT *incX,double* b,&&double *y,INTT *incY);
& &void saxpby_(INTT *n,float* a, float *x,INTT *incX, float* b, float *y,INTT *incY);
& &void dscal_(INTT *n,double* a, double *x,INTT *incX);
& &void sscal_(INTT *n,float* a, float *x,INTT *incX);
& &double dasum_(INTT *n,double *x,INTT *incX);
& &float sasum_(INTT *n,float *x,INTT *incX);
& &double ddot_(INTT *n,double *x,INTT *incX, double *y,INTT *incY);
& &float sdot_(INTT *n,float *x,INTT *incX, float *y,INTT *incY);
& &void dgemv_(char& &*trans, INTT *m, INTT *n, double *alpha, double *a,
& && && &INTT *lda, double *x, INTT *incx, double *beta, double *y,INTT *incy);
& &void sgemv_(char& &*trans, INTT *m, INTT *n, float *alpha, float *a,
& && && &INTT *lda, float *x, INTT *incx, float *beta, float *y,INTT *incy);
& &void dger_(INTT *m, INTT *n, double *alpha, double *x, INTT *incx,double *y, INTT *incy, double *a, INTT *lda);
& &void sger_(INTT *m, INTT *n, float *alpha, float *x, INTT *incx,float *y, INTT *incy, float *a, INTT *lda);
& &void dtrmv_(char *uplo, char *trans, char& &*diag, INTT *n, double *a,INTT *lda, double *x, INTT *incx);
& &void strmv_(char *uplo, char *trans, char& &*diag, INTT *n, float *a,INTT *lda, float *x, INTT *incx);
& &void dsyr_(char *uplo, INTT *n, double *alpha, double *x, INTT *incx,double *a, INTT *lda);
& &void ssyr_(char *uplo, INTT *n, float *alpha, float *x, INTT *incx,float *a, INTT *lda);
& &void dsymv_(char& &*uplo, INTT *n, double *alpha, double *a, INTT *lda,
& && && &double *x, INTT *incx, double *beta, double *y, INTT *incy);
& &void ssymv_(char& &*uplo, INTT *n, float *alpha, float *a, INTT *lda,
& && && &float *x, INTT *incx, float *beta, float *y, INTT *incy);
& &void dgemm_(char *transa, char *transb, INTT *m, INTT *n, INTT *k,
& && && &double *alpha, double *a, INTT *lda, double *b, INTT *ldb, double *beta,double *c, INTT *ldc);
& &void sgemm_(char *transa, char *transb, INTT *m, INTT *n, INTT *k,float *alpha, float *a, INTT *lda, float *b, INTT *ldb, float *beta,
& && && &float *c, INTT *ldc);
& &void dsyrk_(char *uplo, char *trans, INTT *n, INTT *k, double *alpha,double *a, INTT *lda, double *beta, double *c, INTT *ldc);
& &void ssyrk_(char *uplo, char *trans, INTT *n, INTT *k, float *alpha,float *a, INTT *lda, float *beta, float *c, INTT *ldc);
& &void dtrmm_(char *side,char *uplo,char *transa, char *diag, INTT *m,INTT *n, double *alpha, double *a, INTT *lda, double *b,
& && && &INTT *ldb);
& &void strmm_(char *side,char *uplo,char *transa, char *diag, INTT *m,INTT *n, float *alpha, float *a, INTT *lda, float *b,
& && && &INTT *ldb);
& &INTT idamax_(INTT *n, double *dx, INTT *incx);
& &INTT isamax_(INTT *n, float *dx, INTT *incx);
& &void dtrtri_(char* uplo, char* diag, INTT* n, double * a, INTT* lda,
& && && &INTT* info);
& &void strtri_(char* uplo, char* diag, INTT* n, float * a, INTT* lda,
& && && &INTT* info);
& &void dsytrf_(char* uplo, INTT* n, double* a, INTT* lda, INTT* ipiv,
& && && &double* work, INTT* lwork, INTT* info);
& &void ssytrf_(char* uplo, INTT* n, float* a, INTT* lda, INTT* ipiv,
& && && &float* work, INTT* lwork, INTT* info);
& &void dsytri_(char* uplo, INTT* n, double* a, INTT* lda, INTT* ipiv,
& && && &double* work, INTT* info);
& &void ssytri_(char* uplo, INTT* n, float* a, INTT* lda, INTT* ipiv,
& && && &float* work, INTT* info);
& &void dlasrt_(char* id,&&INTT* n, double *d, INTT* info);
& &void slasrt_(char* id,&&INTT* n, float*d, INTT* info);
& &void dgesvd_(char*jobu, char *jobvt, INTT *m, INTT *n, double *a,
& && && &INTT *lda, double *s, double *u, INTT *ldu, double *vt,
& && && &INTT *ldvt, double *work, INTT *lwork, INTT *info);
& &void sgesvd_(char*jobu, char *jobvt, INTT *m, INTT *n, float *a,
& && && &INTT *lda, float *s, float *u, INTT *ldu, float *vt,
& && && &INTT *ldvt, float *work, INTT *lwork, INTT *info);
& &void dsyev_(char *jobz, char *uplo, INTT *n, double *a, INTT *lda,
& && && &double *w, double *work, INTT *lwork, INTT *info);
& &void ssyev_(char *jobz, char *uplo, INTT *n, float *a, INTT *lda,
& && && &float *w, float *work, INTT *lwork, INTT *info);
}复制代码我觉得是我有些库文件没有添加，但是我不知道这些函数都在哪个库文件里，有没有哪位大神指导一下小弟，不胜感激！
<h1 style="color:# 麦片财富积分
已解决，我添加了libmwblas.libmwlapack.lib两个库，应该就在这两个库中，但是我发现还是出现了这个错误，于是我尝试改了改代码，代码如下：
#ifdef REMOVE_
#define dnrm2_ dnrm2
#define snrm2_ snrm2
#define dcopy_ dcopy
#define scopy_ scopy
#define daxpy_ daxpy
#define saxpy_ saxpy
#define daxpby_ daxpby
#define saxpby_ saxpby
#define dscal_ dscal
#define sscal_ sscal
#define dasum_ dasum
#define sasum_ sasum
#define ddot_ ddot
#define sdot_ sdot
#define ddoti_ ddoti
#define sdoti_ sdoti
#define dgemv_ dgemv
#define sgemv_ sgemv
#define dger_ dger
#define sger_ sger
#define dtrmv_ dtrmv
#define strmv_ strmv
#define dsyr_ dsyr
#define ssyr_ ssyr
#define dsymv_ dsymv
#define ssymv_ ssymv
#define dgemm_ dgemm
#define sgemm_ sgemm
#define dsyrk_ dsyrk
#define ssyrk_ ssyrk
#define dtrmm_ dtrmm
#define strmm_ strmm
#define dtrtri_ dtrtri
#define strtri_ strtri
#define idamax_ idamax
#define isamax_ isamax
#define dsytrf_ dsytrf
#define ssytrf_ ssytrf
#define dsytri_ dsytri
#define ssytri_ ssytri
#define dlasrt_ dlasrt
#define slasrt_ slasrt
#define dgesvd_ dgesvd
#define sgesvd_ sgesvd
#define dsyev_ dsyev
#define ssyev_ ssyev
#endif复制代码
以上是原来的代码，我把#ifdef REMOVE_和#endif注释掉就好了。怀疑是因为库文件不能识别dnrm2_，只能识别dnrm，不知道是不是这样，求大神解释
站长推荐 /3
筑起功能安全的堡垒 - 基于模型设计的软件开发
MATLAB中文论坛是全球最大的 MATLAB & Simulink 中文社区。用户免费注册会员后，即可下载代码，讨论问题，请教资深用户及结识书籍作者。立即注册加入我们吧！
MATLAB官方社交平台
MATLAB中文论坛微社区查看: 785|回复: 6
请高手帮下忙。谢谢，汇总的事。
阅读权限30
在线时间 小时
(30.62 KB, 下载次数: 26)
21:09 上传
点击文件名下载附件
附件里，我按网上下的分类方法，用不了。帮忙下，谢谢。
阅读权限50
在线时间 小时
本帖最后由 云朵中的民族 于
21:45 编辑
用透视表，方便还不容易出错
21:45 上传
点击文件名下载附件
13.9 KB, 下载次数: 6
阅读权限30
在线时间 小时
有帮忙的没
阅读权限30
在线时间 小时
我要做的是201212这个文件。
阅读权限95
在线时间 小时
短信收到，请测试：Sub 插入汇总()
& & Dim arr, brr(), m&, i&
& & Application.ScreenUpdating = False
& & Call 删除汇总
& & arr = Range(&a1&).CurrentRegion
& & ReDim brr(1 To UBound(arr))
& & For i = 4 To UBound(arr)
& && &&&If arr(i, 3) && arr(i - 1, 3) Then
& && && && &m = m + 1
& && && && &brr(m) = i
& && &&&End If
& & Next
& & brr(m + 1) = i
& & Cells(brr(m + 1), 3) = &总计&
& & With Cells(brr(m + 1), 4).Resize(, 10)
& && &&&.FormulaR1C1 = &=SUM(R4C:R& & brr(m + 1) - 1 & &C)&
& && &&&.Value = .Value
& & End With
& & For i = m To 1 Step -1
& && &&&Rows(brr(i + 1)).Insert
& && &&&Cells(brr(i + 1), 3) = arr(brr(i), 3) & &汇总&
& && &&&Cells(brr(i + 1), 4).Resize(, 10).FormulaR1C1 = &=SUM(R& & brr(i) & &C:R& & brr(i + 1) - 1 & &C)&
& & Next
& & Application.ScreenUpdating = True
End Sub
Sub 删除汇总()
& & On Error Resume Next
& & Range(&B4:B& & ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
& & On Error GoTo 0
End Sub
复制代码
阅读权限95
在线时间 小时
& & & & & & & &
(13.88 KB, 下载次数: 7)
16:07 上传
点击文件名下载附件
阅读权限30
在线时间 小时
谢谢，太谢谢了。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师服务器维护中.......
我们会尽快恢复，请稍后再试，谢谢！查看: 792|回复: 3
求大神帮忙解释下VBA代码
阅读权限10
在线时间 小时
老师给了一个EXCEL，能实现预定功能和发邮件的功能，我对VBA不是特别了解，看不懂。求大神帮忙解释下其中的意思，用的函数。谢谢！
Private Sub CommandButton1_Click()
& & For i = 1 To 12
& && &&&For j = 1 To 31
& && && && && & If Cells(j + 5, i).Interior.ColorIndex = 4 Then
& && && && && && &&&Cells(j + 5, i).Interior.ColorIndex = xlNone
& && && && && & End If
& && &&&Next j
Private Sub CommandButton2_Click()
Private Sub CommandButton21_Click()
&&Dim wb As Workbook: Dim ws As Worksheet
&&ThisWorkbook.SaveCopyAs ThisWorkbook.Path & &/& & &Planning(& & TextBox21.Value & &).xlsm&
Private Sub SpinButton21_SpinDown()
& & If TextBox21.Value & 2000 Then
& && &&&TextBox21.Value = TextBox21.Value - 1
& & End If
Private Sub SpinButton21_SpinUp()
If TextBox21.Value & 2100 Then
& & TextBox21.Value = TextBox21.Value + 1
Private Sub TextBox21_Change()
& & Dim datetest As Date
& & Dim d As Long
& & Range(&A6:L36&).ClearContents
& & Range(&A6:L36&).Interior.ColorIndex = xlNone
& & For i = 1 To 12
'& && &&&For j = 1 To 31
& && && &d = Day(DateSerial(TextBox21.Value, i + 1, 0))
& && && &For j = 1 To d
& && && &datetest = DateSerial(TextBox21.Value, i, j)
& && && &Range(Cells(j + 5, i), Cells(j + 5, i)) = datetest
& && && &Range(Cells(j + 5, i), Cells(j + 5, i)).NumberFormat = &ddd dd&
& && && && && & If Cells(j + 5, i).Interior.ColorIndex = 6 Or Cells(j + 5, i).Interior.ColorIndex = 4 Then
& && && && && && &Cells(j + 5, i).Interior.ColorIndex = xlNone
& && && && && & End If
& && && && && &
& && && && && & If Weekday(Cells(j + 5, i).Value, vbSunday) = 1 Or Weekday(Cells(j + 5, i).Value, vbSaturday) = 1 Then
& && && && && &&&Cells(j + 5, i).Interior.ColorIndex = 6
& && && && && & End If
& && && && &
& && &&&Next j
& & Next i
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
& & If Not Application.Intersect(Target, Range(&B5:L36&)) Is Nothing Then
& && &&&UserForm1.Show
& & End If
& & Cancel = True
这个是主界面的
Private Sub ComboBox1_Change()
& & ComboBox1.Value = Format(CDate(ComboBox1.Value), &hh:mm&)
Private Sub ComboBox2_Change()
& & ComboBox2.Value = Format(CDate(ComboBox2.Value), &hh:mm&)
Private Sub CommandButton1_Click()
Dim plage As String:&&Dim date1 As Date: Dim date2 As Date: Dim plage2 As String
Dim r As Long
plage = UserForm1.RefEdit1.Value
plage2 = UserForm1.RefEdit2.Value
& && &&&If plage = && Then
& && && &&&MsgBox &vous n'avez rien s閘ectionn? recommencez !&
& && && && &Exit Sub
& && &&&End If
& &&&Range(plage).Interior.ColorIndex = 4
& &&&If plage2 = && Then
& && && &&&MsgBox &vous n'avez rien s閘ectionn? recommencez !&
& && && && &Exit Sub
& && &&&End If
& &&&Range(plage2).Interior.ColorIndex = 4
& &&&With Range(plage)
& && && && &date1 = Cells(.Row, .Column).Value
& && && && &date2 = Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1).Value
& &&&End With
& &&&With Range(plage2)
& && && && &date3 = Cells(.Row, .Column).Value
& && && && &date4 = Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1).Value
& &&&End With
Worksheets(&Données&).Select
&&With Worksheets(&Données&)
& && && &r = .Range(&A655536&).End(xlUp).Row
& && && &r = r + 1
& && &&&.Range(&A& & r).Value = date1
& && &&&.Range(&b& & r).Value = UserForm1.ComboBox1.Value
& && &&&.Range(&c& & r).Value = date4
& && &&&.Range(&d& & r).Value = UserForm1.ComboBox2.Value
& && &&&.Range(&e& & r).Value = TextBox1.Value
& && &&&.Range(&f& & r).Value = TextBox4.Value
&&End With
&&Unload Me
Private Sub Label1_Click()
Private Sub RefEdit1_BeforeDragOver(Cancel As Boolean, ByVal Data As MSForms.DataObject, ByVal x As stdole.OLE_XPOS_CONTAINER, ByVal y As stdole.OLE_YPOS_CONTAINER, ByVal DragState As MSForms.fmDragState, Effect As MSForms.fmDropEffect, ByVal Shift As Integer)
Private Sub RefEdit2_BeforeDragOver(Cancel As Boolean, ByVal Data As MSForms.DataObject, ByVal x As stdole.OLE_XPOS_CONTAINER, ByVal y As stdole.OLE_YPOS_CONTAINER, ByVal DragState As MSForms.fmDragState, Effect As MSForms.fmDropEffect, ByVal Shift As Integer)
Private Sub TextBox1_Change()
Private Sub TextBox4_Change()
Private Sub UserForm_Initialize()
& & TextBox2 = ActiveCell.Value
& & For i = 2 To 12
& & Me.ComboBox1.AddItem Format(Worksheets(&emploi du temps&).Cells(2, i), &hh:mm&)
& & Me.ComboBox2.AddItem Format(Worksheets(&emploi du temps&).Cells(2, i), &hh:mm&)
这个是USERFORM的
Sub Mail_Text_in_Body()
Dim msg As String, cell As Range
Dim Recipient As String, Subj As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String
Recipient = &&
Recipientcc = &&
Recipientbcc = &&
Subj = &demande&
msg = &Il y a une nouvelle resevation d'une machine&
HLink = &mailto:& & Recipient & &?& & &cc=& & Recipientcc & &&& & &bcc=& & Recipientbcc & &&&
HLink = HLink & &subject=& & Subj & &&&
HLink = HLink & &body=& & msg
ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue(&0:00:03&))
Application.SendKeys &%s&
这个是发邮件功能的
附件里面是这个EXCEL截图 求大神帮忙 谢谢
(12.14 KB, 下载次数: 0)
22:12 上传
(90.47 KB, 下载次数: 0)
22:11 上传
(86.01 KB, 下载次数: 0)
22:11 上传
22:14 上传
点击文件名下载附件
266.08 KB, 下载次数: 4
阅读权限95
在线时间 小时
通过解释是读不懂这么长的代码的，如果有问题还是求助或找原作者
阅读权限10
在线时间 小时
doitbest 发表于
通过解释是读不懂这么长的代码的，如果有问题还是求助或找原作者
和学软件的同学一起做的一个机械管理，学软件的同学走了，老师让我们了解到时候能讲下软件的原理，大概就是每个语句大概是什么意思
阅读权限95
在线时间 小时
软件原理可不是每个语句大概意思，意思明白易，说清楚原理要吃透代码，没有基础是不行的
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}
扫一扫，访问微社区
查看: 1138|回复: 1|关注: 0
关于VS2010下调试mexw64程序，哪位大神帮下忙
<h1 style="color:# 麦片财富积分
新手, 积分 10, 距离下一级还需 40 积分
今天，想调试一个c++工具包，它给出了matlab接口，于是我在VS2010下建了一个工程，一些cpp文件和头文件都添加好了，但是编译链接时出现如下问题：
mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dcopy_，该符号在函数 &void __cdecl cblas_copy&double&(int,double *,int,double *,int)& (??$cblas_copy@N@@YAXHPEANH0H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 daxpy_，该符号在函数 &void __cdecl cblas_axpy&double&(int,double,double *,int,double *,int)& (??$cblas_axpy@N@@YAXHNPEANH0H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dgemv_，该符号在函数 &void __cdecl cblas_gemv&double&(enum CBLAS_ORDER,enum CBLAS_TRANSPOSE,int,int,double,double *,int,double *,int,double,double *,int)& (??$cblas_gemv@N@@YAXW4CBLAS_ORDER@@W4CBLAS_TRANSPOSE@@HHNPEANH2HN2H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dgemm_，该符号在函数 &void __cdecl cblas_gemm&double&(enum CBLAS_ORDER,enum CBLAS_TRANSPOSE,enum CBLAS_TRANSPOSE,int,int,int,double,double *,int,double *,int,double,double *,int)& (??$cblas_gemm@N@@YAXW4CBLAS_ORDER@@W4CBLAS_TRANSPOSE@@1HHHNPEANH2HN2H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dsyrk_，该符号在函数 &void __cdecl cblas_syrk&double&(enum CBLAS_ORDER,enum CBLAS_UPLO,enum CBLAS_TRANSPOSE,int,int,double,double *,int,double,double *,int)& (??$cblas_syrk@N@@YAXW4CBLAS_ORDER@@W4CBLAS_UPLO@@W4CBLAS_TRANSPOSE@@HHNPEANHN3H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 ddot_，该符号在函数 &double __cdecl cblas_dot&double&(int,double *,int,double *,int)& (??$cblas_dot@N@@YANHPEANH0H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 scopy_，该符号在函数 &void __cdecl cblas_copy&float&(int,float *,int,float *,int)& (??$cblas_copy@M@@YAXHPEAMH0H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 saxpy_，该符号在函数 &void __cdecl cblas_axpy&float&(int,float,float *,int,float *,int)& (??$cblas_axpy@M@@YAXHMPEAMH0H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 sgemv_，该符号在函数 &void __cdecl cblas_gemv&float&(enum CBLAS_ORDER,enum CBLAS_TRANSPOSE,int,int,float,float *,int,float *,int,float,float *,int)& (??$cblas_gemv@M@@YAXW4CBLAS_ORDER@@W4CBLAS_TRANSPOSE@@HHMPEAMH2HM2H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 sgemm_，该符号在函数 &void __cdecl cblas_gemm&float&(enum CBLAS_ORDER,enum CBLAS_TRANSPOSE,enum CBLAS_TRANSPOSE,int,int,int,float,float *,int,float *,int,float,float *,int)& (??$cblas_gemm@M@@YAXW4CBLAS_ORDER@@W4CBLAS_TRANSPOSE@@1HHHMPEAMH2HM2H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 ssyrk_，该符号在函数 &void __cdecl cblas_syrk&float&(enum CBLAS_ORDER,enum CBLAS_UPLO,enum CBLAS_TRANSPOSE,int,int,float,float *,int,float,float *,int)& (??$cblas_syrk@M@@YAXW4CBLAS_ORDER@@W4CBLAS_UPLO@@W4CBLAS_TRANSPOSE@@HHMPEAMHM3H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 sdot_，该符号在函数 &float __cdecl cblas_dot&float&(int,float *,int,float *,int)& (??$cblas_dot@M@@YAMHPEAMH0H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dscal_，该符号在函数 &void __cdecl cblas_scal&double&(int,double,double *,int)& (??$cblas_scal@N@@YAXHNPEANH@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 sscal_，该符号在函数 &void __cdecl cblas_scal&float&(int,float,float *,int)& (??$cblas_scal@M@@YAXHMPEAMH@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dnrm2_，该符号在函数 &double __cdecl cblas_nrm2&double&(int,double *,int)& (??$cblas_nrm2@N@@YANHPEANH@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dsyr_，该符号在函数 &void __cdecl cblas_syr&double&(enum CBLAS_ORDER,enum CBLAS_UPLO,int,double,double *,int,double *,int)& (??$cblas_syr@N@@YAXW4CBLAS_ORDER@@W4CBLAS_UPLO@@HNPEANH2H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dsymv_，该符号在函数 &void __cdecl cblas_symv&double&(enum CBLAS_ORDER,enum CBLAS_UPLO,int,double,double *,int,double *,int,double,double *,int)& (??$cblas_symv@N@@YAXW4CBLAS_ORDER@@W4CBLAS_UPLO@@HNPEANH2HN2H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 snrm2_，该符号在函数 &float __cdecl cblas_nrm2&float&(int,float *,int)& (??$cblas_nrm2@M@@YAMHPEAMH@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 ssyr_，该符号在函数 &void __cdecl cblas_syr&float&(enum CBLAS_ORDER,enum CBLAS_UPLO,int,float,float *,int,float *,int)& (??$cblas_syr@M@@YAXW4CBLAS_ORDER@@W4CBLAS_UPLO@@HMPEAMH2H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 ssymv_，该符号在函数 &void __cdecl cblas_symv&float&(enum CBLAS_ORDER,enum CBLAS_UPLO,int,float,float *,int,float *,int,float,float *,int)& (??$cblas_symv@M@@YAXW4CBLAS_ORDER@@W4CBLAS_UPLO@@HMPEAMH2HM2H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 idamax_，该符号在函数 &int __cdecl cblas_iamax&double&(int,double *,int)& (??$cblas_iamax@N@@YAHHPEANH@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 isamax_，该符号在函数 &int __cdecl cblas_iamax&float&(int,float *,int)& (??$cblas_iamax@M@@YAHHPEAMH@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dtrmv_，该符号在函数 &void __cdecl cblas_trmv&double&(enum CBLAS_ORDER,enum CBLAS_UPLO,enum CBLAS_TRANSPOSE,enum CBLAS_DIAG,int,double *,int,double *,int)& (??$cblas_trmv@N@@YAXW4CBLAS_ORDER@@W4CBLAS_UPLO@@W4CBLAS_TRANSPOSE@@W4CBLAS_DIAG@@HPEANH4H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 strmv_，该符号在函数 &void __cdecl cblas_trmv&float&(enum CBLAS_ORDER,enum CBLAS_UPLO,enum CBLAS_TRANSPOSE,enum CBLAS_DIAG,int,float *,int,float *,int)& (??$cblas_trmv@M@@YAXW4CBLAS_ORDER@@W4CBLAS_UPLO@@W4CBLAS_TRANSPOSE@@W4CBLAS_DIAG@@HPEAMH4H@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 dasum_，该符号在函数 &double __cdecl cblas_asum&double&(int,double *,int)& (??$cblas_asum@N@@YANHPEANH@Z) 中被引用
1&mexTrainDL.obj : error LNK2019: 无法解析的外部符号 sasum_，该符号在函数 &float __cdecl cblas_asum&float&(int,float *,int)& (??$cblas_asum@M@@YAMHPEAMH@Z) 中被引用复制代码之后发现，这些文件都在一个头文件里声明的，但是没有定义，如下：
extern &C& {
& &double dnrm2_(INTT *n,double *x,INTT *incX);
& &float snrm2_(INTT *n,float *x,INTT *incX);
& &void dcopy_(INTT *n,double *x,INTT *incX, double *y,INTT *incY);
& &void scopy_(INTT *n,float *x,INTT *incX, float *y,INTT *incY);
& &void daxpy_(INTT *n,double* a, double *x,INTT *incX, double *y,INTT *incY);
& &void saxpy_(INTT *n,float* a, float *x,INTT *incX, float *y,INTT *incY);
& &void daxpby_(INTT *n,double* a, double *x,INTT *incX,double* b,&&double *y,INTT *incY);
& &void saxpby_(INTT *n,float* a, float *x,INTT *incX, float* b, float *y,INTT *incY);
& &void dscal_(INTT *n,double* a, double *x,INTT *incX);
& &void sscal_(INTT *n,float* a, float *x,INTT *incX);
& &double dasum_(INTT *n,double *x,INTT *incX);
& &float sasum_(INTT *n,float *x,INTT *incX);
& &double ddot_(INTT *n,double *x,INTT *incX, double *y,INTT *incY);
& &float sdot_(INTT *n,float *x,INTT *incX, float *y,INTT *incY);
& &void dgemv_(char& &*trans, INTT *m, INTT *n, double *alpha, double *a,
& && && &INTT *lda, double *x, INTT *incx, double *beta, double *y,INTT *incy);
& &void sgemv_(char& &*trans, INTT *m, INTT *n, float *alpha, float *a,
& && && &INTT *lda, float *x, INTT *incx, float *beta, float *y,INTT *incy);
& &void dger_(INTT *m, INTT *n, double *alpha, double *x, INTT *incx,double *y, INTT *incy, double *a, INTT *lda);
& &void sger_(INTT *m, INTT *n, float *alpha, float *x, INTT *incx,float *y, INTT *incy, float *a, INTT *lda);
& &void dtrmv_(char *uplo, char *trans, char& &*diag, INTT *n, double *a,INTT *lda, double *x, INTT *incx);
& &void strmv_(char *uplo, char *trans, char& &*diag, INTT *n, float *a,INTT *lda, float *x, INTT *incx);
& &void dsyr_(char *uplo, INTT *n, double *alpha, double *x, INTT *incx,double *a, INTT *lda);
& &void ssyr_(char *uplo, INTT *n, float *alpha, float *x, INTT *incx,float *a, INTT *lda);
& &void dsymv_(char& &*uplo, INTT *n, double *alpha, double *a, INTT *lda,
& && && &double *x, INTT *incx, double *beta, double *y, INTT *incy);
& &void ssymv_(char& &*uplo, INTT *n, float *alpha, float *a, INTT *lda,
& && && &float *x, INTT *incx, float *beta, float *y, INTT *incy);
& &void dgemm_(char *transa, char *transb, INTT *m, INTT *n, INTT *k,
& && && &double *alpha, double *a, INTT *lda, double *b, INTT *ldb, double *beta,double *c, INTT *ldc);
& &void sgemm_(char *transa, char *transb, INTT *m, INTT *n, INTT *k,float *alpha, float *a, INTT *lda, float *b, INTT *ldb, float *beta,
& && && &float *c, INTT *ldc);
& &void dsyrk_(char *uplo, char *trans, INTT *n, INTT *k, double *alpha,double *a, INTT *lda, double *beta, double *c, INTT *ldc);
& &void ssyrk_(char *uplo, char *trans, INTT *n, INTT *k, float *alpha,float *a, INTT *lda, float *beta, float *c, INTT *ldc);
& &void dtrmm_(char *side,char *uplo,char *transa, char *diag, INTT *m,INTT *n, double *alpha, double *a, INTT *lda, double *b,
& && && &INTT *ldb);
& &void strmm_(char *side,char *uplo,char *transa, char *diag, INTT *m,INTT *n, float *alpha, float *a, INTT *lda, float *b,
& && && &INTT *ldb);
& &INTT idamax_(INTT *n, double *dx, INTT *incx);
& &INTT isamax_(INTT *n, float *dx, INTT *incx);
& &void dtrtri_(char* uplo, char* diag, INTT* n, double * a, INTT* lda,
& && && &INTT* info);
& &void strtri_(char* uplo, char* diag, INTT* n, float * a, INTT* lda,
& && && &INTT* info);
& &void dsytrf_(char* uplo, INTT* n, double* a, INTT* lda, INTT* ipiv,
& && && &double* work, INTT* lwork, INTT* info);
& &void ssytrf_(char* uplo, INTT* n, float* a, INTT* lda, INTT* ipiv,
& && && &float* work, INTT* lwork, INTT* info);
& &void dsytri_(char* uplo, INTT* n, double* a, INTT* lda, INTT* ipiv,
& && && &double* work, INTT* info);
& &void ssytri_(char* uplo, INTT* n, float* a, INTT* lda, INTT* ipiv,
& && && &float* work, INTT* info);
& &void dlasrt_(char* id,&&INTT* n, double *d, INTT* info);
& &void slasrt_(char* id,&&INTT* n, float*d, INTT* info);
& &void dgesvd_(char*jobu, char *jobvt, INTT *m, INTT *n, double *a,
& && && &INTT *lda, double *s, double *u, INTT *ldu, double *vt,
& && && &INTT *ldvt, double *work, INTT *lwork, INTT *info);
& &void sgesvd_(char*jobu, char *jobvt, INTT *m, INTT *n, float *a,
& && && &INTT *lda, float *s, float *u, INTT *ldu, float *vt,
& && && &INTT *ldvt, float *work, INTT *lwork, INTT *info);
& &void dsyev_(char *jobz, char *uplo, INTT *n, double *a, INTT *lda,
& && && &double *w, double *work, INTT *lwork, INTT *info);
& &void ssyev_(char *jobz, char *uplo, INTT *n, float *a, INTT *lda,
& && && &float *w, float *work, INTT *lwork, INTT *info);
}复制代码我觉得是我有些库文件没有添加，但是我不知道这些函数都在哪个库文件里，有没有哪位大神指导一下小弟，不胜感激！
<h1 style="color:# 麦片财富积分
已解决，我添加了libmwblas.libmwlapack.lib两个库，应该就在这两个库中，但是我发现还是出现了这个错误，于是我尝试改了改代码，代码如下：
#ifdef REMOVE_
#define dnrm2_ dnrm2
#define snrm2_ snrm2
#define dcopy_ dcopy
#define scopy_ scopy
#define daxpy_ daxpy
#define saxpy_ saxpy
#define daxpby_ daxpby
#define saxpby_ saxpby
#define dscal_ dscal
#define sscal_ sscal
#define dasum_ dasum
#define sasum_ sasum
#define ddot_ ddot
#define sdot_ sdot
#define ddoti_ ddoti
#define sdoti_ sdoti
#define dgemv_ dgemv
#define sgemv_ sgemv
#define dger_ dger
#define sger_ sger
#define dtrmv_ dtrmv
#define strmv_ strmv
#define dsyr_ dsyr
#define ssyr_ ssyr
#define dsymv_ dsymv
#define ssymv_ ssymv
#define dgemm_ dgemm
#define sgemm_ sgemm
#define dsyrk_ dsyrk
#define ssyrk_ ssyrk
#define dtrmm_ dtrmm
#define strmm_ strmm
#define dtrtri_ dtrtri
#define strtri_ strtri
#define idamax_ idamax
#define isamax_ isamax
#define dsytrf_ dsytrf
#define ssytrf_ ssytrf
#define dsytri_ dsytri
#define ssytri_ ssytri
#define dlasrt_ dlasrt
#define slasrt_ slasrt
#define dgesvd_ dgesvd
#define sgesvd_ sgesvd
#define dsyev_ dsyev
#define ssyev_ ssyev
#endif复制代码
以上是原来的代码，我把#ifdef REMOVE_和#endif注释掉就好了。怀疑是因为库文件不能识别dnrm2_，只能识别dnrm，不知道是不是这样，求大神解释
站长推荐 /3
筑起功能安全的堡垒 - 基于模型设计的软件开发
MATLAB中文论坛是全球最大的 MATLAB & Simulink 中文社区。用户免费注册会员后，即可下载代码，讨论问题，请教资深用户及结识书籍作者。立即注册加入我们吧！
MATLAB官方社交平台
MATLAB中文论坛微社区查看: 785|回复: 6
请高手帮下忙。谢谢，汇总的事。
阅读权限30
在线时间 小时
(30.62 KB, 下载次数: 26)
21:09 上传
点击文件名下载附件
附件里，我按网上下的分类方法，用不了。帮忙下，谢谢。
阅读权限50
在线时间 小时
本帖最后由 云朵中的民族 于
21:45 编辑
用透视表，方便还不容易出错
21:45 上传
点击文件名下载附件
13.9 KB, 下载次数: 6
阅读权限30
在线时间 小时
有帮忙的没
阅读权限30
在线时间 小时
我要做的是201212这个文件。
阅读权限95
在线时间 小时
短信收到，请测试：Sub 插入汇总()
& & Dim arr, brr(), m&, i&
& & Application.ScreenUpdating = False
& & Call 删除汇总
& & arr = Range(&a1&).CurrentRegion
& & ReDim brr(1 To UBound(arr))
& & For i = 4 To UBound(arr)
& && &&&If arr(i, 3) && arr(i - 1, 3) Then
& && && && &m = m + 1
& && && && &brr(m) = i
& && &&&End If
& & Next
& & brr(m + 1) = i
& & Cells(brr(m + 1), 3) = &总计&
& & With Cells(brr(m + 1), 4).Resize(, 10)
& && &&&.FormulaR1C1 = &=SUM(R4C:R& & brr(m + 1) - 1 & &C)&
& && &&&.Value = .Value
& & End With
& & For i = m To 1 Step -1
& && &&&Rows(brr(i + 1)).Insert
& && &&&Cells(brr(i + 1), 3) = arr(brr(i), 3) & &汇总&
& && &&&Cells(brr(i + 1), 4).Resize(, 10).FormulaR1C1 = &=SUM(R& & brr(i) & &C:R& & brr(i + 1) - 1 & &C)&
& & Next
& & Application.ScreenUpdating = True
End Sub
Sub 删除汇总()
& & On Error Resume Next
& & Range(&B4:B& & ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
& & On Error GoTo 0
End Sub
复制代码
阅读权限95
在线时间 小时
& & & & & & & &
(13.88 KB, 下载次数: 7)
16:07 上传
点击文件名下载附件
阅读权限30
在线时间 小时
谢谢，太谢谢了。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师服务器维护中.......
我们会尽快恢复，请稍后再试，谢谢！查看: 792|回复: 3
求大神帮忙解释下VBA代码
阅读权限10
在线时间 小时
老师给了一个EXCEL，能实现预定功能和发邮件的功能，我对VBA不是特别了解，看不懂。求大神帮忙解释下其中的意思，用的函数。谢谢！
Private Sub CommandButton1_Click()
& & For i = 1 To 12
& && &&&For j = 1 To 31
& && && && && & If Cells(j + 5, i).Interior.ColorIndex = 4 Then
& && && && && && &&&Cells(j + 5, i).Interior.ColorIndex = xlNone
& && && && && & End If
& && &&&Next j
Private Sub CommandButton2_Click()
Private Sub CommandButton21_Click()
&&Dim wb As Workbook: Dim ws As Worksheet
&&ThisWorkbook.SaveCopyAs ThisWorkbook.Path & &/& & &Planning(& & TextBox21.Value & &).xlsm&
Private Sub SpinButton21_SpinDown()
& & If TextBox21.Value & 2000 Then
& && &&&TextBox21.Value = TextBox21.Value - 1
& & End If
Private Sub SpinButton21_SpinUp()
If TextBox21.Value & 2100 Then
& & TextBox21.Value = TextBox21.Value + 1
Private Sub TextBox21_Change()
& & Dim datetest As Date
& & Dim d As Long
& & Range(&A6:L36&).ClearContents
& & Range(&A6:L36&).Interior.ColorIndex = xlNone
& & For i = 1 To 12
'& && &&&For j = 1 To 31
& && && &d = Day(DateSerial(TextBox21.Value, i + 1, 0))
& && && &For j = 1 To d
& && && &datetest = DateSerial(TextBox21.Value, i, j)
& && && &Range(Cells(j + 5, i), Cells(j + 5, i)) = datetest
& && && &Range(Cells(j + 5, i), Cells(j + 5, i)).NumberFormat = &ddd dd&
& && && && && & If Cells(j + 5, i).Interior.ColorIndex = 6 Or Cells(j + 5, i).Interior.ColorIndex = 4 Then
& && && && && && &Cells(j + 5, i).Interior.ColorIndex = xlNone
& && && && && & End If
& && && && && &
& && && && && & If Weekday(Cells(j + 5, i).Value, vbSunday) = 1 Or Weekday(Cells(j + 5, i).Value, vbSaturday) = 1 Then
& && && && && &&&Cells(j + 5, i).Interior.ColorIndex = 6
& && && && && & End If
& && && && &
& && &&&Next j
& & Next i
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
& & If Not Application.Intersect(Target, Range(&B5:L36&)) Is Nothing Then
& && &&&UserForm1.Show
& & End If
& & Cancel = True
这个是主界面的
Private Sub ComboBox1_Change()
& & ComboBox1.Value = Format(CDate(ComboBox1.Value), &hh:mm&)
Private Sub ComboBox2_Change()
& & ComboBox2.Value = Format(CDate(ComboBox2.Value), &hh:mm&)
Private Sub CommandButton1_Click()
Dim plage As String:&&Dim date1 As Date: Dim date2 As Date: Dim plage2 As String
Dim r As Long
plage = UserForm1.RefEdit1.Value
plage2 = UserForm1.RefEdit2.Value
& && &&&If plage = && Then
& && && &&&MsgBox &vous n'avez rien s閘ectionn? recommencez !&
& && && && &Exit Sub
& && &&&End If
& &&&Range(plage).Interior.ColorIndex = 4
& &&&If plage2 = && Then
& && && &&&MsgBox &vous n'avez rien s閘ectionn? recommencez !&
& && && && &Exit Sub
& && &&&End If
& &&&Range(plage2).Interior.ColorIndex = 4
& &&&With Range(plage)
& && && && &date1 = Cells(.Row, .Column).Value
& && && && &date2 = Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1).Value
& &&&End With
& &&&With Range(plage2)
& && && && &date3 = Cells(.Row, .Column).Value
& && && && &date4 = Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1).Value
& &&&End With
Worksheets(&Données&).Select
&&With Worksheets(&Données&)
& && && &r = .Range(&A655536&).End(xlUp).Row
& && && &r = r + 1
& && &&&.Range(&A& & r).Value = date1
& && &&&.Range(&b& & r).Value = UserForm1.ComboBox1.Value
& && &&&.Range(&c& & r).Value = date4
& && &&&.Range(&d& & r).Value = UserForm1.ComboBox2.Value
& && &&&.Range(&e& & r).Value = TextBox1.Value
& && &&&.Range(&f& & r).Value = TextBox4.Value
&&End With
&&Unload Me
Private Sub Label1_Click()
Private Sub RefEdit1_BeforeDragOver(Cancel As Boolean, ByVal Data As MSForms.DataObject, ByVal x As stdole.OLE_XPOS_CONTAINER, ByVal y As stdole.OLE_YPOS_CONTAINER, ByVal DragState As MSForms.fmDragState, Effect As MSForms.fmDropEffect, ByVal Shift As Integer)
Private Sub RefEdit2_BeforeDragOver(Cancel As Boolean, ByVal Data As MSForms.DataObject, ByVal x As stdole.OLE_XPOS_CONTAINER, ByVal y As stdole.OLE_YPOS_CONTAINER, ByVal DragState As MSForms.fmDragState, Effect As MSForms.fmDropEffect, ByVal Shift As Integer)
Private Sub TextBox1_Change()
Private Sub TextBox4_Change()
Private Sub UserForm_Initialize()
& & TextBox2 = ActiveCell.Value
& & For i = 2 To 12
& & Me.ComboBox1.AddItem Format(Worksheets(&emploi du temps&).Cells(2, i), &hh:mm&)
& & Me.ComboBox2.AddItem Format(Worksheets(&emploi du temps&).Cells(2, i), &hh:mm&)
这个是USERFORM的
Sub Mail_Text_in_Body()
Dim msg As String, cell As Range
Dim Recipient As String, Subj As String, HLink As String
Dim Recipientcc As String, Recipientbcc As String
Recipient = &&
Recipientcc = &&
Recipientbcc = &&
Subj = &demande&
msg = &Il y a une nouvelle resevation d'une machine&
HLink = &mailto:& & Recipient & &?& & &cc=& & Recipientcc & &&& & &bcc=& & Recipientbcc & &&&
HLink = HLink & &subject=& & Subj & &&&
HLink = HLink & &body=& & msg
ActiveWorkbook.FollowHyperlink (HLink)
Application.Wait (Now + TimeValue(&0:00:03&))
Application.SendKeys &%s&
这个是发邮件功能的
附件里面是这个EXCEL截图 求大神帮忙 谢谢
(12.14 KB, 下载次数: 0)
22:12 上传
(90.47 KB, 下载次数: 0)
22:11 上传
(86.01 KB, 下载次数: 0)
22:11 上传
22:14 上传
点击文件名下载附件
266.08 KB, 下载次数: 4
阅读权限95
在线时间 小时
通过解释是读不懂这么长的代码的，如果有问题还是求助或找原作者
阅读权限10
在线时间 小时
doitbest 发表于
通过解释是读不懂这么长的代码的，如果有问题还是求助或找原作者
和学软件的同学一起做的一个机械管理，学软件的同学走了，老师让我们了解到时候能讲下软件的原理，大概就是每个语句大概是什么意思
阅读权限95
在线时间 小时
软件原理可不是每个语句大概意思，意思明白易，说清楚原理要吃透代码，没有基础是不行的
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}
我要回帖
更多关于 越帮越忙 的文章
更多推荐
- ·如何查看运费险从哪里查看赔没赔付已理赔多少
- ·政府一图看懂四套班子子是哪一图看懂四套班子子
- ·自助火锅烤肉一体店加盟培训地址？
- ·从事电商好做吗服务的中小企业如何打造自己的竞争优势？
- ·微信怎么召唤如何不充钱获得亚索皮肤？
- ·为啥打开朋友圈不让他看 显示什么显示的是58天前的？
- ·为什么很多能选斐讯W2斐讯智能手表表？
- ·为什么电脑版红豆写小说时人物说的话算一句话吗发不出去
- ·一个男的总找你聊天，现在不那么频繁了？有什么办法挽救吗
- ·苹果手机苹果8原装充电器器多少钱，求报价/撇嘴/撇
- ·信ios11把信号改为数字病句
- ·有哪位亲知道现在上林重庆电信宽带开户费连接开户
- ·如何用时间续电器的作用设置开5秒后，关5秒循环
- ·潮流购物网站软件哪个好
- ·最近听的听一段纯音乐联想到都能联想到前任怎么办
- ·怎样如何盲打及快速打字法的盲打字
- ·4k小米无人机4k无法起飞，新人求助
- ·手机信号显示null一会显示有卡，一会显示没卡，一会有信号，一会没
- ·云米456冰箱使用说明书冰箱如何连接wifi
- ·P60和骁龙骁龙653和636哪个好好
- ·大神请帮下忙的日语怎么说VBA
- ·果木浪子第四版 云盘吉他教程pdf
- ·中兴手机配件质量怎么样？
- ·笔记本电脑苹果手机连不上无线网网怎么回事，无线网正常，我手机能连上，但是笔记本电脑连不上，
- ·如何用时间续电器设置5秒定时开关怎么设置时间
- ·QQ被人举报封了怎么快速帮人解封微信号还是要等？
- ·微信好友，微信好友不小心删除了能找回吗，怎么能加回来
- ·求！强制爱系列绝爱by拓人人的小说百度云txt，完整版加番外，谢谢啦！
- ·手机外手机怎么连接键盘鼠标连接
- ·L440开机显示0190critical batterylow-battery error
- ·是不是只有笔记本有快速启动功能 联想台式机快速启动没有
- ·kp5gc和zx6zx8 cp5s1评测哪个性价比高
- ·ViV0×21和华为和荣耀的区别Mate10的区别
