小编xyz*_*xyz的帖子

我需要从Excel中除了句点和空格之外的字符串中删除所有非字母数字字符.使用VBA而不是纯excel函数的解决方案就好了.

我用这段代码制作了一个菜单项.菜单项显示但短代码输出不存在.有什么我可以添加或不同的方法来做到这一点.我也希望这可能有所帮助.

add_filter('wp_nav_items', 'do_shortcode', 7);

或者也许有人知道这是不可能的,可以告诉我.

/* Nav Menu */
function add_profile_link_to_nav(){ 
 if ( is_user_logged_in() ) { ?> 

<ul> 
  <li class="menu-item"id="one"> <a href="http://example.com/members/">All  Members</a>
  <ul class="sub-menu"> 
      <li class="menu-item"><?php echo custom_execute_shortcode(); ?> </li>
  </ul> 
 </li>
</ul>    <!--end menu--->
<?php } 
}
add_action( "wp_nav_items","add_profile_link_to_nav" );

function custom_execute_shortcode() {
$myfunction= '[my shortcode"]';
$myfunction_parsed = do_shortcode($myfunction);
return $myfunction_parsed;
}

谢谢

我想将分隔列插入Excel报表,以使现有列更易于查看.

报告是动态创建的,我不知道会有多少列; 可能有5,10,17等

该部分从F开始,然后转到 ival=Application.WorksheetFunction.CountIf(range("D2:D" & LastRow), "Other")

因此,如果ival=10那时列是FGHIJKLMNO,我需要在F&G,G&H,H&I,I&J,...和N&O之间插入列.

这可能是插入列的可能性: Workbooks("yourworkbook").Worksheets("theworksheet").Columns(i).Insert

但我不知道如何循环ival.

Sub InsertColumns()
    Dim iVal As Integer
    Dim Rng As range
    Dim LastRow As Long
    Dim i  As Integer

    With Sheets("sheet1")
        LastRow = .range("D" & .Rows.Count).End(xlUp).Row
    End With

    iVal = Application.WorksheetFunction.CountIf(range("D2:D" & LastRow), "Other")

    For i = 7 To iVal - 1
    Workbooks("yourworkbook").Worksheets("theworksheet").Columns(i+1).Insert
    Next i

End Sub

我想通过一个弹出框添加x天数到一个长日期.

Public Function AskForDeadlinePlus4() As String
    Dim strUserResponse As String

    strUserResponse = InputBox("Enter Validuntil Date: Add # of Days To Survey end date")
    strUserResponse = FormatDateTime(strUserResponse + I2, vbLongDate)
    ActiveSheet.Cells(2, 10).Value = strUserResponse 'the 2, 10 is the cell reference for J2 - row 2, column 10.

End Function

调查结束日期在单元格I2中.

当我运行这个我得到(谷歌搜索如何做到这一点,我很累)

4 + I2(何处I2 = Friday, April 05, 2013)>> Wednesday, January 03, 1900

当然我需要 Tuesday, April 09, 2013

谢谢

我可以用下面的脚本修剪我的爸爸

但是有没有一种方法可以使用类似于 VBA 中的 Clean 的 Google 脚本来清理 Google 中的数据？

即删除所有非打印字符

我无法查找并替换从其他来源复制并粘贴到 GS 的数据

谢谢

function trimSpacesSHT(shtName) {
 var sheet = SpreadsheetApp.getActive().getSheetByName(shtName);
 var activeRange = sheet.getDataRange();

  // Read Height and Width only once
  var maxHeight = activeRange.getHeight();
  var maxWidth = activeRange.getWidth();

  // Read all values and formulas at once
  var rangeValues = activeRange.getValues();
 // iterate through all cells in the selected range
 for (var cellRow = 0; cellRow < maxHeight; cellRow++) {
    for (var cellColumn = 0; cellColumn < maxWidth; …

我正在尝试将最后一列用于我的范围：WS.range("F2:LastCol" & LastRow).Cells我的子适用于

WS.range("F2:K" & LastRow).Cells但它Last Column是动态的并且不断变化

谢谢

Sub QQ()

Dim LastRow As Long
Dim LastCol As Long
Dim WS As Worksheet
Dim rCell As range

Set WS = Sheets("sheet1")

LastRow = WS.range("F" & WS.Rows.Count).End(xlUp).Row

LastCol = Cells(2, .Columns.Count).End(xlToLeft).Column
'Also tried: LastCol=rgRange.Cells(rgRange.Count).Column 

For Each rCell In WS.range("F2:LastCol" & LastRow).Cells

STUFF 'The stuff works for WS.range("F2:K" & LastRow).Cells

End Sub

我正在阅读此线程 自定义查找功能 ，这是说明

Interesting result. Note that Evaluate is same as Application.Evaluate and takes roughly twice as long as Activesheet.Evaluate – chris neilsen

应该总是使用Activesheet.Evaluate代替Application.Evaluate吗？

谢谢

我已经在我的网站上添加了一个标题图片:

#header_area {
    background: url('my_header_image.com');
    background-repeat:no-repeat;
    background-position: top center;
}

我的网站响应除了标题.

有没有办法使我的标题响应？

我正在努力但是要工作

谢谢

Sub Enter_Values3()
Dim dbl As Double
dbl = ThisWorkbook.Worksheets(2).Columns("A:A").Select
End Sub

我正在尝试连接由 分隔的两列,并将结果回发到第三列数据如下所示：

colA     colb      concatenated
aa bb    ww ww     aa bb, ww ww
mm
         qq        qq
zz oo              zz oo

ss       vv zz     ss, vv zz

我收到错误Cannot read property "0" from undefined.

谢谢你的帮助

function ConCat() {
    var sheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName("Elements");
    var lr = sheet.getLastRow();
    var values1 = sheet.getRange(1, 1, lr,1).getValues();  //Get vales for Column1
    var values2 = sheet.getRange(1, 2, lr,1).getValues();  //Get values for column 2
    var results = [];                               //Create a empty array to be filled concatenated …