小编Sid*_*out的帖子

我有JPEG图像到我的本地驱动器.我想将JPEG图像转换为BMP,然后将托盘应用于所有转换的BMP图像.

请建议我这可能是最好的方法.托盘是.pal文件.

我需要将多个图表从excel粘贴到powerpoint.我发现了一些优秀的VBA代码(主要在Jon Peltier的网站上).现在我的powerpoint模板有许多布局(例如,1个图表占据大部分幻灯片或1个图表,幻灯片中有一个文本框等).

我想要的是图表成为幻灯片布局的一部分,这样如果我重新格式化幻灯片 - 例如我改变了上面给出的示例中的布局 - 图表将相应地移动.目前我可以粘贴占位符所在的位置,具有正确的大小和所有内容,但它不在占位符中,它位于占位符上(因此如果我更改布局,它会保留在那里).

理想情况下,我希望能够选择布局(从15开始)并在所选布局中选择占位符(通常我有一个标题,一个页脚,然后是1到4个占位符,用于图表,图像,文本或所有以上).

我不是VBA程序员,我只是使用一点逻辑并抓取代码,这些代码在网上是很好的共享.我不知道如何识别正确的布局(它们有名称,但是是变量？),也不是布局中的正确占位符(这里我甚至不知道如何识别它们).

任何帮助非常感谢.DF

在下面,我在这里和那里复制的代码(主要是Jon Peltier的网站).

Sub ChartToPresentation()
' Set a VBE reference to Microsoft PowerPoint Object Library

Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Dim AddSlidesToEnd As Boolean

AddSlidesToEnd = True

' Make sure a chart is selected
If ActiveChart Is Nothing Then
  MsgBox "Please select a chart and try again.", vbExclamation, _
  "No Chart Selected"
Else
' Reference existing instance of PowerPoint
Set PPApp = GetObject(, "Powerpoint.Application") …

这段代码已经工作了很长时间.我想也许我意外地按了一把钥匙,但我似乎无法看到它.我突然得到错误:

无法设置Range类的NumberFormat属性

在下面的代码中:

Worksheets("Sheet1").Cells(y + k, x + j).Select
TempValue = Worksheets("Sheet1").Cells(y + k, x + j).Value
Worksheets("Sheet1").Cells(y + k, x + j).NumberFormat = "#,##0" //ERROR HERE
Worksheets("Sheet1").Cells(y + k, x + j).Value = TempValue

我的一张表列出了一系列阶段(目前阶段2-12,阶段1已经完成).每个阶段在col A中有一个数字,在col B中有一个开始日期,在col C中有一个结束日期.阶段是连续的,并且按照从最早到最晚的顺序列出.

有没有办法可以在给定的日期返回它落入的阶段？我在vba中有一个函数,但我希望可能有一些内置的公式(或某种方式陪审团装备一堆内置公式).基本上我想要返回一个阶段的编号,该阶段的开始日期小于或等于给定日期,结束日期大于或等于该日期.感谢任何可以提供帮助的人.

我只是想知道是否可以强制进行位置更新,以便在我点击菜单中的刷新项目后获取移动设备的位置.

以下是我在论坛中找到的代码,我想添加一个新功能.

import android.os.Bundle;

import com.google.android.maps.GeoPoint;
import com.google.android.maps.MapActivity;
import com.google.android.maps.MapController;
import com.google.android.maps.MapView;

import com.google.android.maps.OverlayItem;

import android.graphics.drawable.Drawable;
import android.location.Location;
import android.location.LocationListener;
import android.location.LocationManager;
import android.util.Log;
import android.view.KeyEvent;
import android.view.Menu;
import android.view.MenuInflater;
import android.view.MenuItem;
import android.widget.Toast;

public class MapLocator extends MapActivity implements LocationListener {
    /** Called when the activity is first created. */

     private MapView mapView;
     private LocationManager lm;
     private MapController mc;
     private double lat = 0;
     private double lng = 0;

@Override
public void onCreate(Bundle savedInstanceState) {
    super.onCreate(savedInstanceState);
    setContentView(R.layout.map);

    mapView = …

在Excel中,如果双击其右侧"边框"上的列,则可以将宽度自动调整为该列中最大值的宽度.

如何在VBA中复制此内容？

我正在编写一个程序,它应该从给定的单元格地址获取所有依赖单元格,直接或间接地影响同一工作表中的其他单元格值.对于前者

A1 = 10
A2 = A1+20
A3 = A2+30

如果我想要A3的依赖,它应该产生A1和A2.

我已经使用了Range.Dependents应该给出所有依赖单元格的方法,但它失败了.因此,我正在尝试使用Range.DirectDependents,它只返回立即的单元格依赖项,并编写递归函数为每个结果执行相同操作.对于前者 A3列表A2再次A2递归返回A1.

我的问题是

1. 为什么Range.dependents无法正确列出所有嵌套的依赖单元格.

2. 对每个单元格使用递归方法是个好主意.(我们不确定它们的深度)

这是我的示例代码

Dim Address As String
Try
    For Each DataRange In ValidRange
        cellAddress = DataRange.Address
        Try
            cellRange = DataRange.Dependents
            Slno = Slno + 1
            Address = cellRange.Address
            Output = Output & "<tr><td>" & Slno & "<td>" & cellAddress & "</td><td>" & Address & "</td></tr>"
        Catch ex As Exception
            'Skip if no dependencies found
        End Try
    Next
Catch ex As Exception
        Response.Write(ex.Message) …

我需要什么样的语句来检查vba中的SaveAs操作是否成功？

Sub saveBookAs()
    wb.SaveAs fileName:="newFile"

End Sub

我的表如下所示

如果"team1"值小于该月份的"一般"值,则它具有蓝色,如果"team2"值小于该月的"一般"值,则它具有粉红色,

现在我想计算一年中每行上有多少蓝色和多少个粉红色的细胞(细胞AK3和AL3)

最合适的配方是什么？

描述

我正在试验鼠标悬停事件。在一张纸上，我有以下布局：

在塔A中，有3个命名范围：RegionOne这是A2:A4 RegionTwo这是A5:A7和RegionThree它是A8:A10。这些范围名称列在C1:C3. 在D1:D3我有以下公式：

=IFERROR(HYPERLINK(ChangeValidation(C1)),"RegionOne") （C1更改为C2，C3在D2，D3）

单元格F1是一个命名范围：NameRollover。单元格F2是数据验证单元格，其中Allow:= 源根据代码执行而变化。

目的

当用户将鼠标滚动到范围上时D1:D3，会发生以下情况：

1. 根据条件格式突出显示单元格
2. 单元格F1( NameRollover) 更改为突出显示的单元格内容
3. 单元格F2数据验证将源更改为与单元格中的值匹配的命名范围F1
4. 单元格F2填充数据验证列表的第一个条目

这是通过Private Sub在 Sheet1 上使用以下内容来实现的：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyList As String
If Not Intersect(Range("F1"), …