小编Roh*_*han的帖子
如何计算R中的双重积分
这是我的r代码，用于计算每种情况的beta值，这非常简单
data =data.frame(
"t" = seq(0, 1, 0.001)
)
B3t <- function(t){
t**3 - 1.6*t**2 +0.76*t+1
}
B2t <- function(t){
ifelse(t >= 0 & t < 0.342,
((t-0.5)^2-0.025),
ifelse( data$t >= 0.342 & data$t <= 0.658,
0,
ifelse(t > 0.658 & t <= 1,
(-(t-0.5)^2+0.025),
0
)))
}
B1t <- function(t){
0
}
X1t <- function(t){
a0 = rnorm(1)
a1 = rnorm(1)
a2 = rnorm(1)
a3 = rnorm(1)
return(a0 + a1*t + a2*(t^2) + a3*(t^3))
}
X2t <- function(t){
a0 …推荐指数
解决办法
查看次数
当1传递给它时,为什么日期返回"31-12-1899"？
我使用的是Windows 10 OS excel 13所以在下面的代码中1应该返回1/1/1900正确的？下面不是为什么.
在这个问题上,OP通过2016并获得了相同的结果,如果有一些错误,我为什么在通过时获得与OP相同的结果2016？
Sub ndat()
Dim dt As Date
dt = 2016
Debug.Print "dt is " & dt
End Sub
推荐指数
解决办法
查看次数
新名称：* `` -> R 控制台中的 `..18` 消息
我运行了一个 Rshiny 应用程序，它按预期工作，但在控制台中我收到以下消息：
New names:
* `` -> `..18`
这是什么意思？
当我尝试这样做时会发生这种情况
> data1<-read_excel("CUMMULATIVE COLLECTION POS_UPLOAD.xls")
New names:
* `` -> `..18`
当我再次执行相同的操作时，它不会给出消息
> data2<-read_excel("DATA.xlsx")
推荐指数
解决办法
查看次数
如何清除合并单元格的内容
我试图清除单元格中的内容,但其中一些已合并,所以我收到错误
1004:"我们不能这样做来合并细胞"
For l = 4 To 9
If ws.Cells(j, l).Interior.ColorIndex = 19 Then
ws.Range(j, l).ClearContents 'Error here
End If
Next l
另一个尝试使用.Cells仍然它返回错误
For l = 4 To 9
If ws.Cells(j, l).Interior.ColorIndex = 19 Then
ws.Cells(j, l).ClearContents 'Error here
End If
Next l
推荐指数
解决办法
查看次数
在outlook邮件体中嵌入图片excel vba
我试图将工作表中的范围作为Outlook邮件正文中的图像嵌入.它正确保存图片,但我只在Outlook邮件正文中看到空白图片.我在这做错了什么？
Sub View_Email()
tName = Trim(MAIN.Range("tEmail"))
If Not tName Like "*@*.*" Then MsgBox "Invalid Email address": Exit Sub
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
'File path/name of the gif file
Fname = ThisWorkbook.Path & "\Claims.jpg"
Set oCht = Charts.Add
STAT.Range("A3:G26").CopyPicture xlScreen, xlBitmap
With oCht
.Paste
.Export Filename:=Fname, Filtername:="JPG"
'.Delete
End With
On Error Resume Next
With OutMail
.To = tName
.CC = ""
.BCC = ""
.Subject = STAT.Range("C1").Value
.HTMLBody = "<html><p>Summary of Claim Status.</p>" & _
"<img …推荐指数
解决办法
查看次数
尝试自动完成ActiveX组合框时Excel崩溃
我在工作表上有一个ActiveX Combobox控件,这是_Change事件代码
Private Sub ComboBox1_Change()
Me.ComboBox1.ListFillRange = "ItemSearch"
Me.ComboBox1.DropDown
End Sub
当我使用键盘上/下键在列表中移动时,它会自动退出Excel.
有谁知道这个问题的解决方案？我基本上想要一个动态的ComboBox.
推荐指数
解决办法
查看次数
从列表中选择项目
问题:
下面的格式有N个足球运动员,每张11名球员的球员组合将会吐出.
每个11人的阵容必须遵循以下限制.
它应该能够选择球员作为"核心",这意味着他们将出现在100%的输出阵容中.
输入:
A B C D E
Name Position Team Salary Core Player? 1="Yes",0="No"
Darron Gibson M EVE 6500000 0
Riyad Mahrez M LEI 11700000 0
Andrej Kramaric F LEI 6900000 0
Sadio Mané M SOT 12600000 0
Victor Anichebe F WBA 5300000 1
Serge Gnabry M WBA 6300000 0
Dimitri Payet M WHM 13500000 0
Juan Mata M MUN 10700000 0
.
.
.so on there is list of players
每个团队的限制:
Maximum Salary 100000000 Allowed per …推荐指数
解决办法
查看次数
在Excel中引用错误行的按钮
我有这个代码块,它帮助按钮识别它所在的行.但是,当我隐藏上面的行时,按钮引用该隐藏的行.
例如:如果按钮在第20行并且我隐藏第19行,则单击该按钮将返回第19行.如果我隐藏第19行和第18行,则该按钮返回第18行.
这真的很奇怪.
这是我用来创建按钮的块:
Sub AddButtons()
Dim button As button
Application.ScreenUpdating = False
Dim st As Range
Dim sauce As Integer
For sauce = 10 To Range("F" & Rows.Count).End(xlUp).Row Step 1
Set st = ActiveSheet.Range(Cells(sauce, 11), Cells(sauce, 11))
Set button = ActiveSheet.Buttons.Add(st.Left, st.Top, st.Width, st.Height)
With button
.OnAction = "GoToIssue.GoToIssue"
.Caption = "Go To Source"
.Name = "Button" & sauce
End With
Next sauce
Application.ScreenUpdating = True
End Sub
这里是一个块,它会在点击按钮后返回按钮的行ID:
Sub GoToIssue()
Dim b As Object
Dim myrow As Integer …推荐指数
解决办法
查看次数
如何在字符串vba中包含引号
我想存储以下文本
"Test1":"Monday","Test_Abcdef":":"
全部在字符串中包含引号
我知道要在字符串中包含引号，我必须在""a 之前包含"引号，但这里这不是一个很好的解决方案，因为我在文本中包含太多引号。
知道如何一次完成这一切吗？
推荐指数
解决办法
查看次数
Excel会不会用完表名？
我有一个VBA代码,它首先删除工作簿中的任何表,并在循环中创建excel中的新表,现在它一次制作大约1000个表目前我有下表no.Table59860171作为表的名称.
问题是否会在表格的唯一名称用完之后表现出色？
出现这个问题是因为我将一次又一次地运行同样的过程,所以这可能是个问题吗？
如果是,我该如何避免呢？
推荐指数
解决办法
查看次数
设置pivotcache时类型不匹配
我有 pCach 作为 PivotCache
当我做
ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=pTRng).CreatePivotTable(TableDestination:= _
wOPT.Cells(3, 1), TableName:="PivotTable2")
它按预期工作并在目标单元格上插入 pivotcache
但是当我尝试这个时，它给了我类型不匹配错误？
Set pCach = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=pTRng).CreatePivotTable(TableDestination:= _
wOPT.Cells(3, 1), TableName:="PivotTable2")
推荐指数
解决办法
查看次数
比较一天,为什么31> = 20在这里返回False？
我正在调试这段代码,但我不确定为什么这会返回false而不是true.
?Day(i)>salday(0)
False
?Day(i)
31
?salday(0)
20
?isnumeric(day(i))
True
?isnumeric(salday(0))
True
Option Explicit
Option Compare Text
Sub genOP()
Dim wO As Worksheet
Dim i As Long, j As Long
Dim stDate, enDate, intVal, entR As Long, salDay, salAmt, stTime, enTime, dbMin, dbMax
Dim stRow As Long
Dim cet, curMn
'On Error Resume Next
Application.ScreenUpdating = False
stDate = STG.Range("B2"): enDate = STG.Range("B4")
intVal = Split(STG.Range("B3"), ","): entR = STG.Range("B5")
salDay = Split(STG.Range("B6"), "-")
salAmt = STG.Range("B7"): stTime = STG.Range("B8"): enTime …推荐指数
解决办法
查看次数
How to extract table values from a Website
https://www.morningstar.com/stocks/xnas/ATVI/price-fair-value
I am trying to extract the total returns data year wise
28.59 13.32 0.36 -12.34 69.68 14.13 93.25 -6.04 76.18 -25.92 3.99
from the above site. I need help regarding how to proceed next.
Option Explicit
Sub genOP()
Dim i As Long, fI As Long
Dim tickeR As String
Dim urlStr As String
Dim ie As New InternetExplorer
With INP
fI = .Range("A" & .Rows.Count).End(xlUp).Row
For i = 2 To fI
tickeR = Trim(.Range("A" & i))
Debug.Print tickeR
'https://www.morningstar.com/stocks/xnas/abmd/price-fair-value' …推荐指数
解决办法
查看次数
标签 统计
excel ×11
vba ×11
excel-vba ×7
r ×2
algorithm ×1
button ×1
combinations ×1
date ×1
integration ×1
module ×1
outlook ×1
pivot-table ×1
readxl ×1
regression ×1
string ×1
web-scraping ×1